Farblich markieren
Klaus
Anzeige
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