Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle herausgefilterten Zeilen löschen

Forumthread: Alle herausgefilterten Zeilen löschen

Alle herausgefilterten Zeilen löschen
10.03.2020 10:28:39
before
Hallo zusammen,
hoffe ihr könnt mir nochmals helfen.
Und zwar möchte ich alle Zeilen in einer Tabelle die nach einer Filterung angezeigt werden löschen.
Hier ist mein Ansatz:
Sub AutofilterLoeschen()
Sheets("Tabelle1").Select
If ActiveSheet.FilterMode Then
With ActiveSheet.AutoFilter.Range.Offset(1)
.Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1).EntireRow.Delete _
shift:=xlUp
End With
End If
End Sub

Das funktioniert auch soweit. Wenn ich diesen Befehl jedoch in einem anderem
Sub unterbringen bzw auf eine andere Tabelle beziehen will kommt die Fehlermeldung " _
Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt".
Markiert wird die Zeile "With ActiveSheet.AutoFilter.Range.Offset(1)".
Kann mir da jemand weiterhelfen?
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle herausgefilterten Zeilen löschen
10.03.2020 10:47:34
Torsten
Hallo,
dann benutze statt ActiveSheet den Blattnamen, also z.B.: 
Sheets("Tabelle1").AutoFilter.......

Gruss Torsten
AW: Alle herausgefilterten Zeilen löschen
10.03.2020 10:47:51
Werner
Hallo,
Sub AutofilterLoeschen()
With Worksheets("Tabelle1")
If .FilterMode Then
With .AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
End With
End If
End With
End Sub
Gruß Werner
Anzeige
AW: Alle herausgefilterten Zeilen löschen
10.03.2020 11:43:52
before
Vielen Dank!
Irgendwie klappt es jedoch noch nicht so ganz.
Wenn ich den Filter per Hand setze und dann dein Makro ausführe klappt es perfekt!
Wenn ich das Makro jedoch in eine anderes einfüge welches meine Tabelle filtert (also nicht händisch filtere) bekomme ich die gleiche Fehlermeldung wieder...
Anzeige
AW: Alle herausgefilterten Zeilen löschen
10.03.2020 11:57:22
Werner
Hallo,
und was soll ich jetzt dazu sagen, ohne dass ich "Dein anderes Makro" kenne?
Gruß Werner
AW: Alle herausgefilterten Zeilen löschen
10.03.2020 13:21:13
before
Ja den Beitrag hätte ich mir vermutlich sparen können.
Hab ein bisschen rumprobiert und es hinbekommen.
Danke nochmal für die Unterstützung!
Gerne u. Danke für die Rückmeldung. o.w.T.
11.03.2020 12:44:26
Werner
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
Alle Zeilen löschen mit Spaltenbedingung ?
alexander

Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex
16.09.2009 10:37:32
Thread-ID: 1103140
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
Alle Leere Zeilen In A Spalte Löschen
Leo

Abend zusammen,
ich hab folgendes Problem !?
Ich habe in der A SPALTE eine Namensliste, mit mehreren tausend Namen, doch leider sind mir beim kopieren in Excel ein paar "ZEILEN Lücken" - ich hoffe ihr versteht mein Problem, kann es nicht besser formulieren - aufgestoßen ...
Meine Fr...
28.09.2011 21:43:27
Thread-ID: 1231905
4 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
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
Alle Zeilen und spalten löschen außer A2
Chrissi

Guten Abend, ich würde gerne beim starten der Userform alle Zeilen und Spalten ab A2 löschen
hatte vorher
ActiveWorkbook.Worksheets("Target").Range(Cells(2, 1), Cells(1000, 11)).ClearContents

Der Rangebefehl .Range("A2:K") klappt nicht
15.01.2012 23:10:16
Thread-ID: 1246308
3 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
UDF nur auf sichtbare Zellen anwenden.
Michael

HAllo zusammen,
ich mal wieder! Ist es möglich eine UDF
https://www.herber.de/forum/archiv/1308to1312/t1309027.htm#1309038
so zu modifizieren, dass sie bei einem gesetzten Filter nur auf die sichtbaren Zellen angewendet wird?
Danke und Gruß
Micha
16.07.2013 15:49:24
Thread-ID: 1322776
2 Beiträge
Nur sichtbare Zeilen kopieren und einfügen
Tim

Hallo zusammen,
ich habe eine Tabelle mit bereits mehreren Makros (daher auch ausgeblendete Zeilen).
Nun möchte ich der Übersicht halber nur die sichtbaren Zeilen:
- ab Zeile 12 bis zum Ende des Worksheets (das Ende variiert)
- und nur Spalte A bis Spalte D
kopieren und in...
23.09.2013 11:16:11
Thread-ID: 1331885
6 Beiträge
Anzeige
Zeilenhöhe nur für sichtbare Zeilen
Burghard

Hallo,
ich habe ein lauffähiges Makro, das allerdings für den gesamten Range, also auch für die ausgeblendeten Zeilen gilt. Ich hätte es allerdings gerne so, dass es nur für die sichtbaren Zeilen gilt. Kann mir jemand helfen? Mein Makro:
Sub zeilenhoehe() On Error GoTo nix Dim rng As Ra...
13.10.2013 21:30:03
Thread-ID: 1334271
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Alle herausgefilterten Zeilen löschen in Excel

Schritt-für-Schritt-Anleitung

Um alle herausgefilterten Zeilen in Excel zu löschen, kannst du ein VBA-Makro verwenden. Hier ist eine einfache Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke auf "Einfügen" und dann auf "Modul".

  3. Kopiere den folgenden Code in das Modul:

    Sub AutofilterLoeschen()
    With Worksheets("Tabelle1")
        If .FilterMode Then
            With .AutoFilter.Range
                .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
            End With
        End If
    End With
End Sub

  4. Ändere "Tabelle1" zu dem Namen deiner Tabelle, wenn nötig.

  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Führe das Makro aus: Gehe zu "Entwicklertools" > "Makros", wähle AutofilterLoeschen und klicke auf "Ausführen".

Jetzt solltest du alle gefilterten Zeilen gelöscht haben!

Häufige Fehler und Lösungen

  • Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt: Dieser Fehler tritt auf, wenn das Makro auf eine Tabelle zugreifen möchte, die nicht gefiltert ist. Stelle sicher, dass der Filter aktiv ist, bevor du das Makro ausführst.

  • "Zellen in einem gefilterten Bereich oder in einer gefilterten Tabelle können nicht verschoben werden": Dies geschieht, wenn du versuchst, Zellen aus einem gefilterten Bereich zu löschen. Stelle sicher, dass du nur mit sichtbaren Zellen arbeitest.

Alternative Methoden

  1. Manuelles Löschen: Du kannst gefilterte Zeilen manuell löschen, indem du den Filter aktivierst, die Zeilen auswählst und dann mit der rechten Maustaste auf "Löschen" klickst.

  2. Excel 365 Funktionen: In Excel 365 kannst du die Funktion FILTER verwenden, um nur die gewünschten Daten anzuzeigen und dann die nicht benötigten Daten zu löschen.

  3. Spezialfilter: Nutze den Spezialfilter in Excel, um gezielt nur die relevanten Zeilen zu filtern und diese dann zu löschen.

Praktische Beispiele

  • Beispiel 1: Wenn du eine Liste von Verkäufen hast und nur die Zeilen mit Verkäufen über 1000 Euro sehen möchtest, filtere die Liste und führe dann das Makro aus, um alle anderen Zeilen zu löschen.

  • Beispiel 2: In einer Tabelle mit Bewerbungen kannst du die Zeilen für abgelehnte Kandidaten herausfiltern und mit dem Makro alle herausgefilterten Zeilen löschen.

Tipps für Profis

  • Verwende die Entwicklertools: Wenn du regelmäßig mit Makros arbeitest, aktiviere die Entwicklertools in der Excel-Menüleiste für einen schnelleren Zugriff.

  • Speichere deine Arbeit: Bevor du das Makro ausführst, speichere deine Arbeit, um Datenverlust zu vermeiden.

  • Teste das Makro in einer Kopie deiner Datei, bevor du es auf deine Hauptdatei anwendest, um sicherzustellen, dass es wie gewünscht funktioniert.

FAQ: Häufige Fragen

1. Wie kann ich gefilterte Zeilen in Excel 2016 löschen? Du kannst das gleiche VBA-Makro verwenden, um gefilterte Zeilen in Excel 2016 zu löschen. Die Vorgehensweise bleibt gleich.

2. Was passiert, wenn ich das Makro auf eine nicht gefilterte Tabelle anwende? Wenn du das Makro auf eine nicht gefilterte Tabelle anwendest, wird es keine Zeilen löschen, da der Filter nicht aktiv ist. Achte darauf, dass der Filter gesetzt ist, bevor du das Makro ausführst.

3. Kann ich nur sichtbare Zellen löschen? Ja, das VBA-Makro löscht nur die sichtbaren (gefilterten) Zeilen, sodass keine nicht gefilterten Zeilen betroffen sind.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige