Zeilen ohne farbliche Markierungen löschen
08.12.2015 16:55:47
Patrick
Hallo Leute,
eigentlich müsste das Makro ganz einfach sein. Nur entweder stehe ich auf dem Schlauch oder ich denk zu kompliziert.
Ich habe eine Tabelle A5 bis O8000, also recht groß. In den Spalte A bis C sind diverse Einträge grün hinterlegt. Ich möchte nun durch ein Makro alle Zeilen, in denen diese farbliche Hinterlegung NICHT vorhanden ist, aus der Tabelle rauslöschen lassen, so dass ich nur noch die farblichen Einträge sehe.
Ich habe es über den Colour Index 2 probiert (2 steht doch für weiß, oder?), jedoch passiert dann nichts.
So sieht es bis jetzt aus:
Sub unfarbige_loeschen()
For rwIndex = 5 To 8000
With Worksheets("Completed").Rows(rwIndex)
If .Interior.ColorIndex = 2 Then
.Delete
End If
End With
Next rwIndex
End Sub
Wo steckt der Fehler?
Gruß Patrick