wie kann ich alle Zellen ohne Füllfarbe löschen?
Danke & Grüße
Filip
Sub test()
Dim Zelle As Range
Application.ScreenUpdating = False
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Interior.ColorIndex = xlNone Then Zelle.Clear
Next Zelle
Application.ScreenUpdating = True
End Sub
Gruß