|
Geschrieben von: Marcus Rose
|
|
Sonntag, 11. Mai 2008 um 07:17 Uhr |
|
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
|
VBA Makro Beispiele 
