Excel aufmöbeln mit VBA

End Function
Function ZaehleVokale(ByRef s As String) As Long
Dim i As Long, z As Long
z = 0
For i = 1 To Len(s)
Select Case UCase(Mid(s, i, 1))
Case "A", "E", "I", "O", "U": z = z + 1
End Select
Next i
ZaehleVokale = z
End Function
MyHour(d) MyMinute(d)
MyHour(0) = 0
MyMinute(0) = 0 MyHour(1) = 24 MyMinute(1) = 0
d
Function MyMinute(d As Double) As Long
If (d < 0 Or d > 1) Then MyMinute = -1
MyMinute = Fix(d * 24 * 60) Mod 60
End Function
Function MyHour(d As Double)
If (d < 0 Or d > 1) Then MyHour = -1
MyHour = Fix(24 * d)
End Function
Schaltjahr()
LaufendeNr() TageSeitGregor()
AnzTageNeu()
AnzTage()
Select Case If
ElseIf