Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
benutzerdefinierte Funktion wird nicht richtig angezeigt
zurück: Performance durch Matrix-Berechnung weiter: Suche einen Professionellen VBA Programmierer... Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Angel123
Gast


Verfasst am:
12. Aug 2009, 11:29
Rufname:

benutzerdefinierte Funktion wird nicht richtig angezeigt - benutzerdefinierte Funktion wird nicht richtig angezeigt

Nach oben
       Version: Office XP (2002)

Hallo zusammen,

erstmal vorab ein Riesenkompliment an dieses Forum. Habe mich als VBA-Neuling an diverse Projekte gewagt und konnte durch einige Beiträge hier schon einen Großteil meiner Probleme "selbst" lösen.

Zu folgender Fragestellung habe ich leider noch nichts passendes finden können:

Bin gerade dabei einen Kalender anzulegen und habe hierzu auch eine Funktion zum bestimmen des Osterdatums gefunden (über einen Link hier im Forum). Nun sagt mir dieser Link, dass ich die neue Funktion über den Funktionsassistenten automatisch aufrufen kann. Hier ist mein Problem: Die Funktion wird im Funktionsassistent nicht angezeigt...Woran kann das liegen und wie kann ichs beheben?

Vielen lieben Dank im Voraus..

LG
stefan onken
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Aug 2009, 12:02
Rufname:
Wohnort: hamburg


AW: benutzerdefinierte Funktion wird nicht richtig angezeigt - AW: benutzerdefinierte Funktion wird nicht richtig angezeigt

Nach oben
       Version: Office XP (2002)

hallo,
könntest du den link hier auch mit angeben?
Es könnte nämlich verschiedene Gründe haben, zB dass der Code als Private Function angelegt ist (das Private muss dann weg).

Gruß
stefan
Angel123
Gast


Verfasst am:
12. Aug 2009, 13:15
Rufname:

AW: benutzerdefinierte Funktion wird nicht richtig angezeigt - AW: benutzerdefinierte Funktion wird nicht richtig angezeigt

Nach oben
       Version: Office XP (2002)

Hi,

wie mans als Link einfügt weiß ich leider nicht, aber hier der komplette Code:

Function bewFeiert(Jahr As Integer) As Date
'berechnet das Osterdatum (Sonntag)
Dim D As Integer
D = (((255 - 11 * (Jahr Mod 19)) - 21) Mod 30) + 21
bewFeiert = DateSerial(Jahr, 3, 1) + D + (D > 48) + 6 - ((Jahr + Jahr \ 4 + D + (D > 48) + 1) Mod 7)

End Function
Rolf-H
Gast


Verfasst am:
12. Aug 2009, 15:08
Rufname:

AW: benutzerdefinierte Funktion wird nicht richtig angezeigt - AW: benutzerdefinierte Funktion wird nicht richtig angezeigt

Nach oben
       Version: Office XP (2002)

Hallo unbekannter Engel,
wo steht denn der Code? Er gehört in ein normales Modul. Nicht unter ein Tabellenblatt oder "DieseArbeitmappe".
Im VBE unter Einfügen --> Modul ein Modul anlegen und den Code dorthin eintragen.
Unter "Benutzerdefiniert" wirst du ihn dann auch im Assistenten finden.

Gruss Rolf
Phelan XLPH
Fortgeschritten


Verfasst am:
12. Aug 2009, 17:11
Rufname: Phelan

AW: benutzerdefinierte Funktion wird nicht richtig angezeigt - AW: benutzerdefinierte Funktion wird nicht richtig angezeigt

Nach oben
       Version: Office XP (2002)

wo hast du bloss die Formel her, die stimmt ja gar nicht.

probiers hiermit:
Code:
Public Function OSTERSONNTAG(Jahr As Integer) As Long
Dim a As Integer, b As Integer, c As Integer, m As Integer
Dim s As Integer, m2 As Integer, n As Integer, d As Integer
Dim d2 As Integer, e As Integer, erg As Variant

a = Jahr Mod 19
b = Jahr Mod 4
c = Jahr Mod 7
m = Int((8 * Int(Jahr / 100) + 13) / 25) - 2
s = Int(Jahr / 100) - Int(Jahr / 400) - 2
m2 = (15 + s - m) Mod 30
n = (6 + s) Mod 7
d = (m2 + 19 * a) Mod 30
If d = 29 Then
    d2 = 28
ElseIf d = 28 And a >= 11 Then
    d2 = 27
Else
    d2 = d
End If
e = (2 * b + 4 * c + 6 * d2 + n) Mod 7
OSTERSONNTAG = d2 + e + 1 + DateSerial(Jahr, 3, 21)
End Function

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Angel123
Gast


Verfasst am:
14. Aug 2009, 07:59
Rufname:


AW: benutzerdefinierte Funktion wird nicht richtig angezeigt - AW: benutzerdefinierte Funktion wird nicht richtig angezeigt

Nach oben
       Version: Office XP (2002)

Ohhhhh ganz fantastisch. Die Funktion wird jetzt angezeigt und der neue Code funktioniert auch prima....Den alten hatte ich auch über dieses Forum, aber nicht direkt in einem Post hier gefunden.

Vielen, vielen Dank nochmal...

Liebe Grüße
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: =Otto.xls!Otto1 als Funktion - aber wie? 9 Zahlenheinz 902 17. Jun 2005, 10:56
frankkubiak =Otto.xls!Otto1 als Funktion - aber wie?
Keine neuen Beiträge Excel Formeln: Wenn Dann Funktion zusammenfassen 5 Zoran 1323 31. Mai 2005, 11:10
Zoran Wenn Dann Funktion zusammenfassen
Keine neuen Beiträge Excel Formeln: benutzerdefinierte Währungen mit Tausendertrennzeichen? 9 Schachguru 2207 08. Apr 2005, 15:48
fl618 benutzerdefinierte Währungen mit Tausendertrennzeichen?
Keine neuen Beiträge Excel Formeln: Funktion mit wenn 8 Siri2485 1833 18. März 2005, 14:36
Siri2485 Funktion mit wenn
Keine neuen Beiträge Excel Formeln: Funktion zum autom. Einblenden einer Gruppierung? 2 original-m 819 28. Feb 2005, 19:11
original-m Funktion zum autom. Einblenden einer Gruppierung?
Keine neuen Beiträge Excel Formeln: Funktion m. Excel 1 Nee_Help 3237 20. Feb 2005, 20:21
Sigrid Funktion m. Excel
Keine neuen Beiträge Excel Formeln: Funktion in Textfeld? 4 Andre1977 2347 16. Feb 2005, 08:47
Kuwe Funktion in Textfeld?
Keine neuen Beiträge Excel Formeln: Wert wird nicht angezeigt 10 NixWisserin 1127 01. Jan 2005, 23:06
NixWisserin Wert wird nicht angezeigt
Keine neuen Beiträge Excel Formeln: Verknüpfung mit ATPVBAEN.XLA / Eomonth Funktion 3 loisl04 5161 11. Dez 2004, 08:29
Thomas Ramel Verknüpfung mit ATPVBAEN.XLA / Eomonth Funktion
Keine neuen Beiträge Excel Formeln: fortlaufende zahl in spalte - funktion? 2 lifius 1741 10. Dez 2004, 19:45
lifius fortlaufende zahl in spalte - funktion?
Keine neuen Beiträge Excel Formeln: wenn dann funktion klappt nicht 9 ReneZ. 1344 20. Okt 2004, 21:34
ReneZ. wenn dann funktion klappt nicht
Keine neuen Beiträge Excel Formeln: WENN(ODER)-Funktion... 2 Karin K. 733 13. Okt 2004, 15:51
Arnim WENN(ODER)-Funktion...
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks