Excel VBA - Buß und Beettag

Bei diesem Makro ist eine Abfrage nach der Jahreszahl eingebaut. Würden wir einen Kalender erstellen, so würde hier direkt die Jahreszahl aus einer Zelle übernommen. Anhand dieser Jahreszahl berechnet dieses Makro auf welchen Tag der Feiertag (Buß- und Beettag) fällt:

 

Option Explicit

Sub Busstag()
    'Buss- und Bettag: 11 Tage vor 1. Advent
    Dim Weihnacht1 As Date
    Dim Busstag As Date
    Dim intjahr As Date
    intjahr = InputBox("Bitte eine Jahreszahl eingeben.")
    Weihnacht1 = DateSerial(intjahr, 12, 25)
        If Weekday(Weihnacht1) = vbSunday Then
            Weihnacht1 = Weihnacht1 - 7
        End If
        While Weekday(Weihnacht1) <> vbSunday
            Weihnacht1 = Weihnacht1 - 1
        Wend
    Busstag = Weihnacht1 - 32
    MsgBox ("Der Buß- und Bettag ist am: " & Busstag)
End Sub

Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Nutzung unserer Dienste erklären Sie sich damit einverstanden, dass wir Cookies verwenden.
Weitere Informationen Ok