Alle Wörter mit einem Großbuchstaben beginnen lassen

Mit diesem Makro wird der erste Buchstabe in einer Zelle bereits bei der Eingabe in einen Großbuchstaben umgewandelt.
 
Damit dieses Makro funktioniert, muss es in den Codecontainer des betreffenden Arbeitsblattes eingefügt werden, nciht in ein Code-Modul, da die Eigenschaft Worksheet_Change verwendet wird.
 
 
 Private Sub Worksheet_Change(ByVal Target As Range)
'** den Ersten Buchstaben in einer Zelle groß schreiben

Application.EnableEvents = False

Target.Value = UCase(Mid(Target.Value, 1, 1)) & Mid(Target.Value, 2, Len(Target.Value) - 1)

Application.EnableEvents = True

End Sub