Excel aufmöbeln mit VBA

Frist = DateAdd("d", n, dat)
If (Weekday(Frist, vbMonday) = 6) Then _
Frist = DateAdd("d", n + 2, dat)
If (Weekday(Frist, vbMonday) = 7) Then _
Frist = DateAdd("d", n + 1, dat)
End Function
Public Function Sommerzeit(ByVal JahrA As Long) As Date
Sommerzeit = DateSerial(JahrA, 3, 31 - _
(Weekday(DateSerial(JahrA, 3, 31), vbMonday) Mod 7))
End Function
Public Function Winterzeit(ByVal JahrA As Long) As Date
Winterzeit = DateSerial(JahrA, 10, 31 - _
(Weekday(DateSerial(JahrA, 10, 31), vbMonday) Mod 7))
End Function
Public Function VierterAdvent(ByVal JahrA As Long) As Date
VierterAdvent = DateSerial(JahrA, 12, 25 - _
Weekday(DateSerial(JahrA, 12, 25), vbMonday))
End Function
KMult
Invers(z) 1/z
InversSub(z) z 1/z
KomplexToString(z)
Option Explicit
Public Type Komplex
Re As Double
Im As Double
End Type
Function KomplexToString(ByRef z As Komplex) As String
If (z.Re = 0 And z.Im = 0) Then
KomplexToString = "0"
ElseIf (z.Re = 0) Then
KomplexToString = z.Im & "i"
If (z.Im = 1) Then KomplexToString = "i"
If (z.Im = -1) Then KomplexToString = "-i"
Else
If (z.Im > 0) Then KomplexToString = _