function Aufruf in excel
20.01.2004 13:03:57
Kermit
was muss ich tun, damit ich eine in VBA verfasste Funktion, wie die nachfolgende für den Ostersonntag in einer Excel - Zelle aufrufen kann?
Zur Zeit kommt nur die Fehlermeldung #Name?
Gruss und vielen Dank vorab
Kermit
______
Public
Function Ostersonntag(Yr As Integer)
Dim D As Integer
D = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
Ostersonntag = DateSerial(Yr, 3, 1) + D + (D > 48) + 6 - ((Yr + Yr \ 4 + D + (D > 48) + 1) Mod 7)
End Function
Anzeige