AW: Nichtfarbige Zellen löschen
20.01.2010 15:01:23
Tino
Hallo,
versuche es mal mit diesem Code.
Sub test()
Dim Bereich As Range, tmpRng As Range
Set Bereich = Range("A1", Cells(Cells(Rows.Count, 1).End(xlUp).Row, 70))
Application.ScreenUpdating = False
For Each Bereich In Bereich
If Bereich.Interior.ColorIndex xlColorIndexNone Then
If Not tmpRng Is Nothing Then
Set tmpRng = Union(tmpRng, Bereich)
Else
Set tmpRng = Bereich
End If
End If
Next Bereich
If Not tmpRng Is Nothing Then
tmpRng.ClearContents
End If
Application.ScreenUpdating = True
End Sub
Gruß Tino