ich benutze ein Makro der mir Text in markierten Bereich klein schreibt.
Bei nochmaligem Drücken wird er gross und beim dritten Mal wird nur der erste Buchstabe jedes Wortes gross.
Meine Frage:
Was muss ich in Makro erweitern, damit beim vierten Mal nur der erste Buchstabe des Zellinhaltes gross wird, Rest klein?
Public
Sub GrossKleinSchreibung()
Dim zelle As Range
For Each zelle In Selection.Cells
If zelle = LCase(zelle) Then
zelle.Formula = UCase(zelle)
ElseIf zelle = UCase(zelle) Then
zelle.Formula = StrConv(zelle, vbProperCase)
Else
zelle.Formula = LCase(zelle)
End If
Next zelle
End Sub
Danke im Voraus....
Liebe Grüße
SELMA