Thema: zeichen zählen | Herbers Excel-Forum

Hallo,
wenn ich in einer Zelle Text schreibe, möchte ich daß nach einer bestimmten Länge das Zeichen farbig erscheint, z.B. bei Zeichenanzahl 64 sollte der Buchstabe rot dargestellt werden, geht sowas?
Bin für alle Hinweise dankbar
Schöne Grüße
Georg

Hallo,
könnte so funktionieren, färbt das 64. Zeichen ein und macht es Fett.
kommt als Code in Tabelle

Option Explicit 
 
 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim Bereich As Range 
'nur in Spalte A 
Set Bereich = Intersect(Range("A:A"), Target) 
 
If Not Bereich Is Nothing Then 
    For Each Bereich In Bereich 
        With Bereich 
            .Font.Bold = False 
            .Font.ColorIndex = xlAutomatic 
            If Len(.Value) > 63 Then 
               'Zeichen an 64. Stelle 
               With .Characters(Start:=64, Length:=1).Font 
                   .ColorIndex = 3 
                   .Bold = True 
               End With 
            End If 
        End With 
    Next Bereich 
End If 
 
End Sub 
 
 

Gruß Tino

Hallo Tino,
der Effekt müßte während der Eingabe passieren, damit ich weiß, aha jetzt hab ich noch soundsoviel Zeichen
schöne Grüße
Georg

HAllo Georg
Wenn du deine Eingaben in eine TextBox machen würdest, könnte man was machen.
Die hat genug Ereignisse die man während der Eingabe auswerten könnte.
ransi

Hallo
da ich noch fleissig am ueben bin mit VBA, hab ich mal was mit UserForm gebastelt. Schreib was in die Textbox.
https://www.herber.de/bbs/user/66324.xls
Gruss hary