Mit diesem Makro wird der erste Buchstabe eines jeden Wortes in einen Großbuchstaben umgewandelt.

Dieses Makro muss in ein Tabellenblatt und nicht in ein Modul eingefügt werden, da die Eigenschaft Worksheet_Change verwendet wird.

Der erste Buchstabe wird groß geschrieben, sobald die Zell-Eingabe mit Enter bestätigt wurde.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Bereich As Range

Dim Z

Application.EnableEvents = False

' Bereich, auf welchen dieses Makro angewendet wird

Set Bereich = Range("a1:C20")

' überprüfen ob mehr als eine Zelle markiert $A$1:$B$3

' wurde mehere Zellen markiert ist wert größer 0

If InStr(Target.Address, ":") = 0 Then

If Intersect(Target, Bereich) Is Nothing Then GoTo Ende ' Abbruch, wenn Aktion nicht im Zielbereich

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

Else

' es wurden mehere Zellen markiert

For Each Z In Selection

' überprüfen ob Zelle im vorgegebenen Bereich

If Intersect(Z, Bereich) Is Nothing Then

Else

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

End If

Next Z

End If

Ende:

Application.EnableEvents = True

End Sub