Gestern hatte ich was falsch formuliert.
Meine Frage wäre: Zellen in der Wörter großgeschrieben sind möchte ich anklicken, dann ein Markro starten das diese umwandelt 1. Buchstabe groß der rest klein.
Hier ein Beispiel das alles klein macht.
Sub WandleInKleinBuchstabenUm()
Dim Zelle As Range
For Each Zelle In Selection
Zelle.Value = LCase(Zelle.Value)
Next Zelle
End Sub
Bitte um Hilfe
Vielen Dank schon mal im voraus
Gruß Peter