|
Hallo,
ich habe ein kleines Problem, für dass ich eigentlich schon eine Lösung gefunden geglaubt hatte:
Ich möchte mittels for-Schleife eine bestimmte Spalte in meiner Tabelle durchlaufen, dort nach dem Schlüsselwort "Status" suchen, und ab dessen Position den restlichen Text der Spalte rot einfärben.
Das Ganze habe ich so gelöst:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Dim Zelle As Range, StatusPos As Integer, Länge As Integer
For i = 4 To 45 Step 1
StatusPos = InStr(1, Cells(i, 12), "Status")
StatusPos = StatusPos + 6
If StatusPos > 0 Then
Länge = Len(Worksheets(Worksheets.Count).Cells(i, 12))
Worksheets(Worksheets.Count).Cells(i, 12).Characters(StatusPos, Länge).Font.ColorIndex = 5
End If
Next i
|
Jetzt macht dies aber komische Sachen: der Text verrutscht innerhalb der Zellen komisch, die Schriftart ist teilweise versetzt und der Text ist manchmal durcheinander. Für mich absolut nicht nachvollziehbar.
Könnt ihr mir helfen?
|