Zelle löschen, wenn Hintergrund rot
22.06.2009 10:52:58
Sabine
ich habe zwar im Archiv schon gesucht, aber nix passendes gefunden bzw. diesen Code, der aber nix macht.
Sub farben_löschen()
Dim zelle As Range
For Each zelle In Sheets("Tabelle2").Range("A:D") 'statt A:D Name einfügen
If zelle.Interior.Color = vbRed Then
zelle.Delete
End If
Next zelle
End Sub
Ich benötige ein Makro, was die Zelle löscht, wenn die Hintergrundfarbe rot ist. Das Makro muss alle Zellen im Bereich A2:D1000 prüfen.
Kann mir jemand helfen?
LG Sabine