VBA HILFE
02.12.2002 21:04:12
Claudia
Ich habe einen Kalender erstellt. In Tabelle 1 "Kalender" habe ich einen Jahreskalender erstellt in dem die Wochenenden farbig hervorgehoben werden (bedingte Formatierung) das war kein Problem. Jetzt will ich den Ostermontag mit folgendem VBA code ermittel.
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
wo soll ich den VBA Code einfügen in Tabelle 1 Tabelle2 oder in Diese Arbeitsmappe. Habe alles versucht funktioniert nicht. Was mache ich falsch????
Ich soll nachdem ich den Code in VBA eingefügt habe über den Funktionsassistenten Kategorie Benutzerdefiniert unter Funktion
den Eintrag bewFeiert finden. Diese Funktion ist aber nicht vorhanden.
Wer kann mir helfen.
Ach ja die restlichen Feiertage werden in Taabelle 2 "Termine" eigetragen.
Vielen Dank für eure Hilfe und noch einen schönen Abend wünscht Claudia.
Anzeige