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, 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


Drucken