Zelle markieren wenn Wert im Bereich vorkommt
Felix
ich habe in folgendem Code (-teil) irgendeinen Fehler...von dem ich ungefähr weiß, warum er da ist...
Es soll die Zelle x,2 dann farbig markiert werden, wenn sie irgendwo in dem Bereich A2:L7 vorkommt. Ich schätze mal, dass ich das mit dem "Range" irgendwie falsch mache, da ich ja nun nur dann markiere, wenn Zelle x, 2 dem Wert/Summe aus Range entspricht. Oder?
Vielen Dank für jede Hilfe bei dieser wahrscheinlich banalen Frage!
Private Sub CommandButton1_Click()
x = 11
Do Until Application.WorksheetFunction.CountBlank(Worksheets(1).Rows(x)) = 256
x = x + 1
If Worksheets(1).Cells(x, 2).Value = Worksheets(1).Range("A2: L7").Value Then
Worksheets(1).Cells(x, 2).Interior.ColorIndex = 36
End If
Loop
End Sub
Anzeige