Ich markiere die 10 kleinsten Werte in einer Zeile per Bedingte Formatierung (Nur obere oder untere Werte formatieren) diese werden dann Rot hinterlegt.
Jetzt möchte ich gern diese markierten Werte (Rot) per VBA löschen, dazu habe ich folgenden Code
Option Explicit
Sub RotMarkierteLöschen()
Dim lngZeilen As Long
For lngZeilen = 20 To 1 Step -1
If ActiveSheet.Cells(lngZeilen, 1).Interior.ColorIndex = 3 Then _
ActiveSheet.Cells(lngZeilen, 1).EntireRow.Delete
Next lngZeilen
End Sub
Kann mir bitte jemand weiter helfen
Danke
|