Funktionsfehler?
14.09.2004 09:21:57
Hamza
seit Umstellung von Office 97 auf 2003 funktioniert leider mein urlaubskalender nicht mehr. Es werden sämtliche Funktionen und Makros falsch angezeigt wie z.B.
Function istFeiertag(datum, Feiertage)
istFeiertag = 1
For f = 1 To 31
If datum = Feiertage(f) Then istFeiertag = 2
Next f
End Function
oder
Function bewFeiert(Ja As Integer) As Date 'berechnet die beweglichen Feiertage
Dim D As Integer
D = (((255 - 11 * (Ja Mod 19)) - 21) Mod 30) + 21
bewFeiert = DateSerial(Ja, 3, 1) + D + (D > 48) + 6 - ((Ja + Ja \ 4 + D + (D > 48) + 1) Mod 7)
End Function
da ich díesen Kalender mit viel Mühe und viel Hilfe zusammen gestellt habe, möchte auch diesen nutzen können.
Hoffe ihr könnt mir dabei helfen.
Danke im Voraus
Gruß Hamza