Filterergebnis löschen
11.01.2008 17:32:00
Malte
ich habe folgende Frage.
Ich habe eine sehr große Tabelle mit Autofiltern.
Ich möchte in einer Spalte auf einen bestimmten Wert filtern und die nicht sichtbaren löschen.
Ich habe über die Suchfunktion folgende Lösung gefunden:
For Each zeilen In Worksheets("Tabelle1").Rows
If zeilen.EntireRow.Hidden = True Then
zeilen.Delete Shift:=xlUp
End If
Next
Das klappt auch soweit, dauert nur ewig, da die Tabelle so große ist und ich diese Prozedur mehrmals machen muss.
Wenn ich das ganze "von Hand" mache, filtere ich ja andersrum.
Filter rein, so dass ich dem Wert filtere, den ich behalten möchte
Erste sichtbare Zeile markieren
Strg+Schift+Pfeil nach Unten bis ich am Ende der Tabelle bin
Alle Zeilen auf einmal löschen.
Geht das auch in VBA alles auf einmal?
Problem ist, dass die erste sichtbare Zeile,d.h. der erste gefilterte Wert immer in einer anderen Zeile steht.
Vielen Dank im Voraus!