Zellen löschen
Finer
Ich habe ein Problem mit einem VBA Code. Vll kennt ja jmd von euch die Lösung.
Auftrag: Ich habe eine Spalte mit ca. 10000 Zellen/Werten, davon sind einige willkürlich rot. Diese sollen gelöscht werden. Hier mein Ansatz, der Code funktioniert an sich, löscht aber komischerweise nicht alle roten Zellen, sondern lässt öferts, welche zurück die durch nochmaliges ausführen beseitigt werden müssen. Dies passiert vermehrt bei zusammenhängenden roten Zellblöcken.
Habt ihr eine Lösung für das Problem?
Sub farben()
Dim zelle As Range
For Each zelle In Range("A2:A10000")
If zelle.Interior.Color = vbRed Then
zelle.Delete
End If
Next zelle
End Sub