ich möchte gern das die ersten Beiden Buchstaben groß geschrieben
werden sollen, dann nochmal weiter.
Also SS-w15
Habe dies gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
' erstellt von Hajo.Ziplies@web.de 16.08.03
' http://home.media-n.de/ziplies/
' erster Buchstabe in Zelle Groß rest Klein
Dim RaBereich As Range, RaZelle As Range
Application.EnableEvents = False
' Bereich der Wirksamkeit
Set RaBereich = Range("B3:B65000, C3:C6500")
' ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
If RaZelle "" Then
RaZelle.Value = UCase(Mid(RaZelle.Value, 1, 1)) _
& LCase(Mid(RaZelle.Value, 1, Len(RaZelle.Value) - 1))
End If
End If
Next RaZelle
Application.EnableEvents = True
' ActiveSheet.protect
Set RaBereich = Nothing
End Sub
klappt leider nicht,
gruß sigrid