Formel für die Groß/Kleinschreibung

'Macht aus HALLO ein Hallo
Public Function GrossKlein(S)
Dim Res As String, Init As Boolean, Ch As String * 1, i As Long
If IsNull(S) Then
GrossKlein = S
Else
Res = "": Init = True
For i = 1 To Len(S)
Ch = Mid(S, i, 1)
Select Case Ch
Case "A" To "Z", "Ä", "Ö", "Ü", "a" To "z", "ä", "ö", "ü", "ß"
Ch = IIf(Init, UCase(Ch), LCase(Ch))
Init = False
Case Else
Init = True
End Select
Res = Res & Ch
Next i
GrossKlein = Res
End If