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, nicht in ein Code-Modul, da die Eigenschaft Worksheet_Change verwendet wird und diese nur ausgeführt werden kann, wenn sich der Code im betreffenden Tabellenblatt befindet.
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
Anfrageformular öffnen 
Jetzt anrufen: +49 (0)151 164 55 914 
Anfrage per E-Mail senden 
Weitere Informationen 
