Sub
myRotMarkierteLöschen()
Dim
Rng
As
Range, x
As
Long
, y
As
Long
Set
Rng = Range(Cells(1, 1), Cells(20, 1)).SpecialCells(xlCellTypeAllFormatConditions)
For
x = Rng.Areas.Count
To
1
Step
-1
For
y = Rng.Areas(x).Cells.Count
To
1
Step
-1
With
Rng.Areas(x).Cells(y)
If
.FormatConditions(1).Interior.Color <> .DisplayFormat.Interior.Color
Then
.
Select
.EntireRow.Delete
End
If
End
With
Next
y
Next
x
End
Sub