Ich habe im Excel in einer Spalte Texte mit verschiedener Länge (1-40 Zeichen). Ich möchte ab der 21. Stelle diesen Text auf Schriftfarbe rot ändern. Ist sowas möglich?
Danke für Eure Hilfe, Leo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
If Len(Target) > 21 Then
Target.Characters(Start:=21, Length:=Len(Target) - 20).Font.ColorIndex = 3
End If
End If
End Sub
Gruß,