Excel aufmöbeln mit VBA

Sub DateTest()
Dim Weihnacht As Date, Sylvester As Date, diff As Long
Dim aus As String, J As Long
J = Year(Now)
diff = DateSerial(J, 12, 24) - Now + Time
aus = "Now: " & Now & ", Time: " & Time
aus = aus & "." & vbNewLine & diff & "-mal werden wir noch"
aus = aus & " wach, heißa dann ist Weihnachtstach!"
MsgBox (aus)
End Sub
DateAdd
Sub DateAddTest()
Dim dt As Date
dt = DateSerial(2008, 12, 24)
MsgBox DateAdd("d", 7, dt) & ", " & DateAdd("yyyy", 7, dt) _
& ", " & DateAdd("m", -7, dt) & ", " & DateAdd("y", -7, dt)
End Sub
Public Function Muttertag(ByVal Jahr As Long) As Date
Muttertag = DateSerial(Jahr, 5, _
15 - Weekday(DateSerial(Jahr, 5, 1), vbMonday))
End Function
Public Function Ostersonntag(ByVal Jahr As Long) As Date
Dim a As Long, b As Long, C As Long
Dim D As Long, e As Long, f As Long