|
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:
'Deklaration für Einfärben:
Dim Zelle As Range, StatusPos As Integer, Länge As Integer
' ab dem Wort "Status" in Bemerkungsspalte alle Wörter färben, damit sichtbar, dass Status aktualisiert werden muss:
For i = 4 To 45 Step 1
StatusPos = InStr(1, Cells(i, 12), "Status") 'aktuelle Zeile nach Wort "Status" durchsuchen und Position festhalten
' jetzt ggf. von StatusPos (+6) alle übrigen Zeichen einfärben:
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?
|