Eine neue Funktion ermittelt den Ostersonntag

In den Tips & Tricks der CHIP-Ausgabe vom November 1997 wurde beschrieben, wie man in Lotus 1-2-3 die beweglichen Feiertage ermitteln kann, weil dem Programm eine entsprechende Funktion fehlt. Leider sucht man auch in Excel eine Funktion zur Ermittlung der beweglichen Feiertage vergeblich. Allerdings k÷nnen Sie mit dem im Kasten abgedruckten Makro Excel um die Funktion »Ostern« erweitern, die Sie wie jede andere Excel-Funktion verwenden k÷nnen.
Um die Funktion »Ostern« in Excel einzubauen, mⁿssen Sie zunΣchst mit »Einfⁿgen | Makro | Visual Basic-Modul« ein neues Modul-Blatt anlegen und das im Kasten abgedruckte Listing eingeben. Sie k÷nnen die Funktion testen, indem Sie in der Arbeitsmappe zu einem normalen Tabellenblatt wechseln und »Einfⁿgen | Funktion« wΣhlen. Wenn Sie unter »Kategorie« den Eintrag »Benutzerdefiniert« markieren, dann erscheint in der Liste rechts die neue Funktion »Ostern«.
Nachdem Sie sie ausgewΣhlt haben, klicken Sie auf die SchaltflΣche »Weiter« und geben an, fⁿr welches Jahr zwischen 1900 und 2078 Excel den Ostersonntag ermitteln soll. Ein Klick auf die SchaltflΣche »Ende« fⁿgt das ermittelte Datum in das Dokument ein.
Normalerweise erscheint das Datum jetzt in Form einer fⁿnfstelligen Zahl. Um diese Zahl in ein Datum umzuwandeln, weisen Sie der Zelle mit »Format | Zelle | Zahlen | Datum« das gewⁿnschte Datumsformat zu.
Damit die Funktion in allen Arbeitsmappen zur Verfⁿgung steht, mⁿssen Sie sie in ein Add-In umwandeln. Dafⁿr wechseln Sie wieder zu der Seite mit dem Listing und wΣhlen dann den Menⁿpunkt »Extras | Add-In erstellen«. Geben Sie einen Pfad fⁿr die Datei und einen Dateinamen an und bestΣtigen Sie mit »OK«.
Nun mⁿssen Sie das Add-In nur noch dauerhaft in Excel einbinden. Dafⁿr wΣhlen Sie »Extras | Add-In-Manager« und wΣhlen nach einem Klick auf »Durchsuchen« die soeben erzeugte Datei aus. Sie erscheint nun in der Liste der »Verfⁿgbaren Add-Ins« des Add-In-Managers. Wenn die Funktion mit einem HΣkchen versehen ist, steht die Funktion in Excel unter »Einfⁿgen | Funktion | Benutzerdefiniert« jederzeit zur Verfⁿgung.
Excel-Funktion zur Ermittlung des Ostersonntags:
Option Explicit
Function Ostern(Jahr As Variant) As Date
Dim A, B, C, D, E, J, M, N, O, Monat As Integer
If IsDate(Jahr) = True Then
J = Int(Year(Jahr))
ElseIf IsNumeric(Jahr) Then
J = Int(Jahr)
Else
Exit Function
End If
If J < 1900 Or J > 2078 Then
Exit Function
End If
M = 24
N = 5
A = J Mod 19
B = J Mod 4
C = J Mod 7
D = (19 * A + M) Mod 30
E = ((2 * B) + (4 * C) + (6 * D) + N) Mod 7
O = 22 + D + E
If O > 31 Then
O = D + E - 9
Monat = 4
If O = 26 Then O = 19
If O = 25 And D = 28 And (J Mod 19) > 10 Then O = 18
Else
Monat = 3
End If
Ostern = DateSerial(J, Monat, O)
End Function