ich möchte, dass in einem bestimmten Bereich der Inhalt gelöscht wird, wenn die Zellen eine bestimmte Farben haben.
Bei folgenden Farben soll es angewendet werden:
3, 15, 33 und 44
Bisher habe ich folgende Formel, die allerdings nur bei schwarz funktioniert und sich auf die ganze Tabelle bezieht:
Sub test()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange
If rng.Interior.ColorIndex = 1 Then
rng.ClearContents
End If
Next rng
End Sub