Bekommen alle Suchbegriffe dieselbe Farbe, kannst Du das geschickt mit einem Array() als Kriterium im Autofilter lösen.
Beispiel gibt es da ja zuhauf.
Sinngemäß:
Range.Autofilter Field:=1, Criteria1:=DeinArray, Operator:=xlAutoFilterOperator.xlFilterValues
Anschließend mit Intersect() prüfen, ob ein Range-Object als Rückgabewert
IF Not Intersect(TabellenBereich, TabellenBereich.Offset(1), TabellenBereich.SpecialCells(xlCellTypeVisible)) Is Nothing Then
'*** Färbe diesen Bereich
Beim Färben dann nicht den veralteten .ColorIndex, sondern die RGB()-Funktion verwenden.
|