Excel: wie gleichfarbige Zeilen gesamt löschen?

[typometer]

Habe eine Frage zu MS Excel:

ich habe eine Tabelle mit unterschiedlich farbigen Zeilen und möchte z.B. alle roten Zeilen mit möglichst einem Befehl löschen, bisher habe ich alle einzeln markiert und dann gelöscht, ist aber bei ca. 500 Zeilen/Tabelle sehr zeitaufwendig.

Gibt's da eine schnellere Möglichkeit?

Gruß

typometer

 

[Leola13]

Hai,

wie hast du den die Zellen rot gemacht ? Bedingte Formatierung ?

Lässt sich kein Sortierkriterium bilden ?

Beispiel wäre nicht schlecht.

Ciao Stefan

 

[typometer]

Hallo Leola13,

keine bedingte Formatierung, alle Zeilen per Hand eingefärbt.

1. die komplette Zeile ist rot,

2. die komplette Zeile soll gelöscht werden,

3. jede Arbeitsmappe hat ca. 300 bis 500 Zeilen unterschiedlicher Färbung.

Es würde mir schon sehr helfen wenn man die Zeilen nach Farben sortieren kann.

Beispieldatei hänge ich mal an.

Gruß

typometer

 

[thekorn]

so geht's (wenn die Tabelle "Tabelle1" heißt und sich die Daten im Datenbereich "daten" befinden):

Public Sub zeile_farbe_loeschen()
For Each zeile In Worksheets("Tabelle1").Range("daten").Rows
    If zeile.Cells(1).Interior.ColorIndex = 3 Then
        zeile.Delete
    End If
Next
End Sub

Achtung: Habe den Code geteste - zu früh gefreut. Sind zwei Zeilen hintereinander rot, es nicht zuverlässig, da "delete" den Bereich anpasst.
Also wird kein weg an einer "For..Next"-Konstruktion vorbeiführen.

gruß
thekorn