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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen