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
Anfrage per E-Mail
+49(0) 151 164 55 914
Anfrage per Kontaktformular
Hilfe-Forum
