dies ist bis jetzt mein VBA Code, läuft einwandfrei.
Ich möchte allerdings die Funktion ergänzen
z.B. mit "GmbH", "e.V." etc.
wie nehme ich diese Ausnahmen mit auf?
Jetzt schon einmal vielen Dank!
'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