0160-93 82 19 37 | Nehmen Sie 
Alle Wörter mit einem Großbuchstaben beginnen lassen
111001
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
