ich möchte in mehreren Tabellenblättern (Liste ist im Blatt Namen c3:c.. aufgeführt) bestimmte Buchstaben suchen und per VBA-Makro Schriftfarbe ändern . Bedingte Formatierung ist schon ausgereizt.
Wer kann mir weiterhelfen?
Gruss ad
Sub Zellen_färben()
Dim rngBlätter As Range
Dim rngZellen As Range
Dim strTexte As String
strTexte = "F, HTG, G7, 3, Z, L"
For Each rngBlätter In Sheets("Namen").Range("C3:C10") 'hier Zellbereich anpassen
For Each rngZellen In Sheets(rngBlätter.Value).Cells.SpecialCells(xlCellTypeConstants)
If InStr(strTexte, rngZellen.Value) > 0 Then
rngZellen.Font.ColorIndex = 3 'schriftfarbe ggf nach Wunsch anpassen
End If
Next
Next
End Sub