mit untenstehendem Makro färbe ich Zellen mit bestimmten Inhalten in Spalte L. Das funktioniert soweit gut. Da es ein großer Bereich ist, dauert es ein wenig, bis alle relevanten Zellen gefärbt sind.
Kann man dies beschleunigen?
Gruß
Chris
' grün
For Each zelleA In .Range("H2:H50")
For iA = 3 To 700
Select Case .Cells(iA, "H")
Case Is = "Apfel"
.Cells(iA, "H").Interior.Color = RGB(0, 255, 0)
End Select
Next iA
Next zelleA
'blau
For Each zelleB In .Range("L2:H50")
For iB = 3 To 700
Select Case .Cells(iB, "H")
Case Is = "Bananen"
.Cells(iB, "H").Interior.Color = RGB(0,0,255)
End Select
Next iB
Next zelleB
End With