Hallo Leute, wünsche euch ein schönen Tag. Ich habe mal eine Frage. Wie kann ich in verschiedenen Zeilen immer ein bestimmtes Wort automatisch blau markieren. Also zB. "Klaus / priva"t, in der nächsten Zeile steht "Sandra /geschäftlich", in der dritten Zeile steht "Elke / privat". Ich will nun immer nur das Wort privat automatisch blau markieren lassen. Vielleicht könnt Ihr mir da helfen. wäre auch ok, wenn es über ein makro geht, ohne wäre es besser. Danke.
Sub PrivatFärben()
Dim zelle As Range
For Each zelle In Selection
If InStr(1, zelle.Value, "privat") 0 Then _
zelle.Characters(InStr(1, zelle.Value, "privat"), 6).Font.ColorIndex = 5
Next zelle
End Sub
Gruß
Bertram
AW: Farblich markieren
28.01.2011 13:03:50
Klaus
Hallo Bertram,
danke für die schnelle Antwort.
Werde es gleich ausprobieren.
Gruß Klaus