Ich habe in der Tabelle1, Spalte AB in ca 42000 Zeilen Werte stehen. Überall dort wo die Buchstaben "MKP" in den Werten vorkommen sollen diese Zellen farblich markiert werden.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
Josef
sub Färben()
dim Zelle as range
range("Ab:AB").interior.colorindex=xlnone
for each Zelle in Range("AB1:AB" & Range("AB65536").end(xlup).row)
if Zelle.value like "*MKP*" then Zelle.interior.colorindex = 6
next
end sub
aber sie wird dich aufgrund langer Laufzeiten nicht glücklich machen.
besser ist die von HaJo erwähnte BedingteFormatierung
entweder von Hand einfügen, mit dieser Formel:" =ZÄHLENWENN(AB1;"*MKP*")>0",
oder wenn es als Makro sein muss:
With Range("AB")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=ZÄHLENWENN(AB1;""*MKP*"")>0"
.FormatConditions(1).Interior.ColorIndex = 6
End With
Gruß, Daniel