Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filterergebnis löschen

Forumthread: Filterergebnis löschen

Filterergebnis löschen
11.01.2008 17:32:00
Malte
Hallo,
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!

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filterergebnis löschen
11.01.2008 17:46:31
Ramses
Hallo
Probiers doch mal so
Sub Delete_Filter_Rows()
    'Filter nach den Werten die du nicht haben willst
    'also sichtbar sind....
    Dim i As Long, lastR As Long
    '1 = Letzten Wert in Spalte A bestimmen
    lastR = Cells(Rows.Count, 1).End(xlUp).Row
    'Bildschirmaktualisierung ausschalten
    Application.ScreenUpdating = False
    'Zeilen löschen
    '2 = Bis zur Zeile 2
    For i = lastR To 2 Step -1
        '... andernfalls muss hier "True" stehen
        If Rows(i).Hidden = False Then
            Rows(i).Delete
        End If
    Next i
End Sub

Gruss Rainer

Anzeige
AW: Filterergebnis löschen
11.01.2008 18:05:00
Malte
Hi, danke!
DAs klappt super, dauert aber sehr lange, da er halt jede Zeile kontrolliert. Es geht um ca. 1500 Zeilen.
Ich werde es erstmal so benutzen!
Gruß,
Malte

AW: Filterergebnis löschen
11.01.2008 19:26:00
Malte
.

AW: Filterergebnis löschen
11.01.2008 23:16:41
Ramses
Hallo
":..dauert aber sehr lange,..."
Dann kauf dir einen neuen Rechner :-)
Mit 12500 Datensätzen (12498 x 1 und 2 x 2) wird nach 2 gefiltert und die 12498 Zeilen gelöscht:
Das dauert bei mir weniger als 1 Sekunde !
Gruss Rainer

Anzeige
AW: Filterergebnis löschen
12.01.2008 10:05:00
Malte
Jahaaaa....
nur das die Tabelle 208 Spalten hat z.T. mit Formeln befüllt und farbigen Hintergrund. Das dauert bei mir dann ca. 1 minute das makro.
Gruß,
Malte

AW: Filterergebnis löschen
12.01.2008 20:51:00
Ramses
Hallo
Das ist doch egal wieviele Spalten deine Tabelle hat.
Sub Delete_Filter_Rows()
    'Filter nach den Werten die du nicht haben willst
    'also sichtbar sind....
    Dim i As Long, lastR As Long
    Dim start As Double
    '1 = Letzten Wert in Spalte A bestimmen
    lastR = Cells(Rows.Count, 1).End(xlUp).Row
    'Bildschirmaktualisierung ausschalten
    Application.ScreenUpdating = False
    'Automatische Berechnung abschalten
    Application.Calculation = xlCalculationManual
    'Zeilen löschen
    '2 = Bis zur Zeile 2
    start = Now
    For i = lastR To 2 Step -1
        '... andernfalls muss hier "True" stehen
        If Rows(i).Hidden = False Then
            Rows(i).Delete
        End If
    Next i
    'Automatische Berechnung wieder einschalten
    Application.Calculation = xlCalculationAutomatic
    MsgBox "Dauer: " & Format(Now - start, "hh:mm:ss")
End Sub

Gruss Rainer

Anzeige
AW: Filterergebnis löschen
11.01.2008 17:48:09
Knut
Hi,
der Makrorekorder sagt:

Sub Schaltfläche1_BeiKlick()
Columns("A:A").Select
Selection.AutoFilter Field:=1, Criteria1:="*öl*"
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.EntireRow.Delete
End Sub


Spalte und Kriterium natürlich anpassen.
mfg Knut

Anzeige
AW: Filterergebnis löschen
11.01.2008 18:08:22
Malte
HI Knut,
das klappt leider nicht.
Er filtert, markiert auch alles, dann kommt aber die Fehlermeldung:
"Bei überlappenden Markierungen ist die Ausführung dieses Befehls nicht möglich"
Über den eigentlichen Daten sind auch noch 7 Zeilen, die nicht gelöscht werden dürfen,
z.T. auch mit über mehrere Zeilen verdundene Zellen.
Kann man den
Selection.SpecialCells(xlCellTypeVisible).Select Befehl nicht noch eingrenzen, dass man z.B.
sagt, dass er nur ab Zeile 8 markieren soll?
Anzeige
;

Forumthreads zu verwandten Themen

Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Filter nicht möglich
otto

Hi,
warum kann anhängende Tabelle nicht richtig gefiltert werden ?
Ich habe die Zellen schon als Datum formatiert, es werden aber nur die Einträge bis zum 13.05.08 angezeigt.
https://www.herber.de/bbs/user/69835.zip
Gruß
otto
01.06.2010 10:27:19
Thread-ID: 1159749
2 Beiträge
VBA schreiben zum Zeilen löschen
Ludwig

Hallo,
vielleicht weis einer was ich hier schreiben müsste?
siehe Anhang
https://www.herber.de/bbs/user/72108.xls
Danke im voraus
lg Ludwig
31.10.2010 18:51:40
Thread-ID: 1184622
7 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
VBA Zeilen löschen beschleunigen
Frank

Hallo zusammen,
ich benutze folgenden Code, um Zeilen zu löschen, in deren Spalte "B" ein Wert steht, der in einer zuvor definierten Range auftaucht:
Sub cust_del() Application.ScreenUpdating = False Dim i As Integer Dim lz As Integer Worksheets("ergebnis").Activate lz = Range("A4").End...
29.03.2011 11:11:55
Thread-ID: 1208031
4 Beiträge
VBA: Zeilen mit Eintrag in Spalte B löschen
Martin

Guten Tag
Wie kann ich vermeiden beim untenstehende Code ein RC22 (hätte lieber ein Range oder Cells) einzugeben. Ich möchte, dass alle Zeilen mit Eintrag O oder P in Spalte B gelöscht werden.
Besten Dank im voraus.
Martin
'O und P löschen
With xxx.UsedRange
With .Colum...
13.04.2011 15:29:24
Thread-ID: 1210256
7 Beiträge
ausgeblendete Zeilen (Inhalt) löschen
Lorenz

Hallo Excelscheff`s
Für mich wieder mal ein ungelöstes Langzeitproblem.
Mit folgenden Codezeilen wird der Inhalt von ausgeblendeten (Filter-Rest) Zeilen nicht gelöscht.
Wie muß der Code lauten um die "ausgeblendeten Zeilen in den Löschvorgang ein zu beziehen?
LoLetzte = wksDaten...
16.05.2011 13:28:15
Thread-ID: 1214665
3 Beiträge
VBA: leere Zeilen löschen
Fritz_W

Hallo Forumsbesucher,
ich bitte um Eure Hilfe:
Mit welchem Code lassen sich alle leere Zeilen der aktiven Spalte (bis zur letzten Zeile mit Inhalt) löschen.
Beispiel: Befindet sich der Cursor in Zelle C6 und ist in Spalte C die letzte Zelle mit Inhalt die Zelle C957 sollten alle lee...
19.10.2011 09:27:12
Thread-ID: 1234458
3 Beiträge
Quelle kopieren nur in sichtbare Zielzellen ....
Stephan

Hallo Profis,
habe folgendes Problem:
möchte Zelleninhalte felxibel von einer Tabelle1 (sichbar Zellen) in eine andere Tabelle2 (sichbare Zellen) kopieren.
Beispiel:
C1=Apfel nach Tabelle2.A11
C2=Baum nach Tabelle2.A12
C...
08.12.2011 16:52:18
Thread-ID: 1241194
4 Beiträge
Anzeige
Nur sichtbare Zeilen zählen
Ron

Hallo Allerseits
Bin nicht sicher ob ich meinen vorigen Beitrag abgesendet habe.
Darum noch einmal.
Zuerst wünsche ich ein gutes neues Jahr.
Hier meine Frage
Wie kann ich via VBA herausfinden wieviele Zeilen vorhanden sind ohne aber die ausgeblendeten mitzuzählen?
Danke...
03.01.2012 10:10:02
Thread-ID: 1244340
2 Beiträge
Nur auf sichtbare Zeilen/Zellen reagieren
Ron

Hallo Allerseits
In meinem Excel habe ich einen Aufbau gewählt, der eine Darstellung von Titeln und Informationen beinhaltet.
Einige Zeilen sind dabei ausgeblendet, da sie in diesem Moment nicht benötigt werden.
Jetzt möchte ich für eine Formatierung der aktuellen Anzeige "sichtbare...
30.11.2012 08:59:58
Thread-ID: 1288667
8 Beiträge
Sichtbare Zeilen löschen in EXCEL 2007
Richard

Hallo Forum,
ich bin soeben von EXCEL 2003 auf EXCEL 2007 umgestiegen und bin beim Anwenden vorhandener Makros auf ein Problem gestossen:
Bisher konnte nach Anwenden eines Filters in einer Tabelle der gesamte (Zeilen-) Bereich gewählt werden und es wurden beim Befehl "Zeilen löschen" tr...
02.01.2013 10:04:47
Thread-ID: 1292634
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Gefilterte Zeilen in Excel Löschen

Schritt-für-Schritt-Anleitung

  1. Arbeitsblatt vorbereiten: Stelle sicher, dass dein Arbeitsblatt Autofilter aktiviert hat. Du kannst dies über Daten > Filter > Autofilter tun.

  2. Filtern: Wähle die Spalte, auf die Du filtern möchtest, und setze den Filter auf den gewünschten Wert.

  3. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  4. Modul erstellen: Klicke mit der rechten Maustaste auf VBAProject (dein Arbeitsblattname), gehe zu Einfügen und wähle Modul.

  5. Code einfügen: Füge den folgenden VBA-Code ein, um die gefilterten Zeilen zu löschen:

    Sub Delete_Filtered_Rows()
   Dim i As Long, lastR As Long
   Application.ScreenUpdating = False
   lastR = Cells(Rows.Count, 1).End(xlUp).Row
   For i = lastR To 2 Step -1
       If Rows(i).Hidden = False Then
           Rows(i).Delete
       End If
   Next i
   Application.ScreenUpdating = True
End Sub

  6. Makro ausführen: Schließe den VBA-Editor und kehre zu Excel zurück. Drücke ALT + F8, wähle Delete_Filtered_Rows und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler: "Bei überlappenden Markierungen ist die Ausführung dieses Befehls nicht möglich."
    Lösung: Stelle sicher, dass Du keine überlappenden Zellen markiert hast. Versuche, den Befehl auf einen spezifischen Zellbereich zu begrenzen.

  • Fehler: "Excel Filter kann nicht gelöscht werden."
    Lösung: Überprüfe, ob die Filtereinstellungen in Excel korrekt gesetzt sind. Gehe zu Daten > Filter > Filter löschen.

Alternative Methoden

  1. Makrorekorder nutzen: Du kannst den Makrorekorder verwenden, um eine Aktion aufzuzeichnen. Wähle die gefilterten Zeilen aus und lösche sie. Der aufgezeichnete Code kann dann bearbeitet werden, um ihn effizienter zu gestalten.

  2. Excel-Formeln: Anstatt gefilterte Zeilen zu löschen, kannst Du auch eine neue Spalte erstellen, die nur die sichtbaren Zeilen anzeigt. Verwende die Formel =WENN(SICHTBAR(A2);A2;"") und kopiere sie nach unten.

Praktische Beispiele

  • Beispiel 1: Angenommen, Du hast eine Tabelle mit Verkaufszahlen. Du filterst nach einem bestimmten Produkt und möchtest alle anderen Produkte löschen. Mit dem obigen VBA-Code kannst Du alle nicht sichtbaren Zeilen schnell entfernen.

  • Beispiel 2: In einer großen Datenbank möchtest Du nur die Einträge für einen bestimmten Zeitraum behalten. Filtere die Spalte nach Datum und führe das Makro aus, um alle nicht sichtbaren Zeilen zu löschen.

Tipps für Profis

  • Schnelligkeit erhöhen: Deaktiviere die Bildschirmaktualisierung und die automatische Berechnung, um die Ausführungsgeschwindigkeit Deines Makros zu erhöhen. 

    Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

  • Fehlerbehandlung: Füge Fehlerbehandlungsroutinen hinzu, um sicherzustellen, dass das Makro auch bei unerwarteten Problemen nicht abstürzt.

FAQ: Häufige Fragen

1. Warum dauert das Löschen gefilterter Zeilen so lange?
Das Löschen kann lange dauern, wenn Du eine große Anzahl von Zeilen hast. Verwende die optimierten VBA-Methoden, um die Geschwindigkeit zu erhöhen.

2. Kann ich nur bestimmte gefilterte Zeilen löschen?
Ja, Du kannst den VBA-Code anpassen, um nur bestimmte Bedingungen zu überprüfen, bevor eine Zeile gelöscht wird.

3. Funktioniert das in Excel 365?
Ja, die beschriebenen Methoden und VBA-Skripte funktionieren auch in Excel 365.

4. Wie lösche ich ausgeblendete Zeilen ohne Filter?
Du kannst die Funktion SpecialCells(xlCellTypeVisible) verwenden, um nur die sichtbaren Zellen auszuwählen und zu löschen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige