Kann Autofilter nicht löschen

Forumthread: Kann Autofilter nicht löschen

02.09.2019 16:31:47

Werner

Hallo Forum,
ich verarbeite CSV-Daten meiner Bankingsoftware. Dabei hatte ich noch Probleme mit führenden Nullen bzw. langen Zahlen. Im Forum hat man mir weitergeholfen (Thread 1708435) und auf die Importmöglichkeiten hingewiesen. Leider kann der durch den Recorder aufgezeichnete Code nur einmal ausgeführt werden. Wieder wurde mir geholfen und der generierte Code so erweitert, dass er nun mehrfach lauffähig ist (Thread 1708874)
Jetzt habe ich ein weiteres Problem: regelmäßig erstelle ich die CSV-Files und importiere sie in eine gemeinsame Excel-File. Dort können nun verschiedene Auswertungen gemacht werden.
Nun bin ich gerade dabei, eine neue Auswertung zu erstellen. Allerdings hatte ich dort schon mehrfach Probleme. Der Grund: in der mit "ActiveWorkbook.Queries.Add" erzeugten Tabelle ist gelegentlich (manuell) ein Autofilter gesetzt, und mir gelingt es nicht, dieser Filter per VBA zu löschen. Deshalb möchte ich sicherheitshalber immer zuerst alle möglichen Filter löschen. Verzichte ich darauf, sind meine Folgeergebnisse falsch.
Ich habe das von "Case" erweiterte Makro zusammen mit einem 2. Makro, in welchem ein möglicher Filter gelöscht werden soll, als xlsm-File bereitgestellt. Wird das 2. Makro ausgeführt, und ist ein Autofilter gesetzt, ist das Ergebnis ein Laufzeitfehler 1004. Auch die Eingabefile habe ich beigefügt, um die Excel-Tabelle ggf. neu generieren zu können.
https://www.herber.de/bbs/user/131791.xlsm
https://www.herber.de/bbs/user/131792.txt
Meine Frage: wie kann ich mögliche Filter löschen?
Gruß
Werner

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kann Autofilter nicht löschen

02.09.2019 17:22:11

Nepumuk
AW: Kann Autofilter nicht löschen

02.09.2019 17:38:36

Werner

AW: Kann Autofilter nicht löschen

02.09.2019 17:22:11

Nepumuk

Hallo Werner,
so:

Sub Makro2()
    If ActiveSheet.ListObjects(1).ShowAutoFilter Then
        With ActiveSheet.ListObjects(1).AutoFilter
            If .FilterMode Then Call .ShowAllData
        End With
    End If
End Sub

Gruß
Nepumuk

AW: Kann Autofilter nicht löschen

02.09.2019 17:38:36

Werner

Hallo Nepumuk,
vielen Dank für Dein Beispiel.
Problem gelöst.
Gruß
Werner

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne deine Excel-Datei, in der die Filter gesetzt sind.
Wechsle zum Daten-Tab und suche den Bereich mit dem Autofilter.
Klicke auf das Dropdown-Menü des Autofilters, den du entfernen möchtest.
Wähle „Filter löschen“ oder „Alle Filter entfernen“, um den Autofilter aus der Tabelle zu nehmen. Wenn der Befehl ausgegraut ist, kann es sein, dass die Filtereinstellungen auf der Arbeitsmappe bzw. auf dem Arbeitsblatt gesperrt sind.
Um alle Filter gleichzeitig zu löschen, kannst du auch die Tastenkombination Strg + Shift + L verwenden.

Wenn du VBA verwenden möchtest, verwende den folgenden Code:

Sub AutofilterEntfernen()
    If ActiveSheet.ListObjects(1).ShowAutoFilter Then
        With ActiveSheet.ListObjects(1).AutoFilter
            If .FilterMode Then
                .ShowAllData
            End If
        End With
    End If
End Sub

Dieser VBA-Code prüft, ob ein Autofilter aktiv ist und entfernt ihn, falls er gesetzt ist.

Häufige Fehler und Lösungen

Fehler: Excel Filter kann nicht gelöscht werden (ausgegraut)
- Lösung: Überprüfe, ob das Arbeitsblatt oder die Arbeitsmappe geschützt ist. Entferne den Schutz, um die Filter zu bearbeiten.
Fehler: Excel Zeilen lassen sich nicht löschen
- Lösung: Stelle sicher, dass keine Datenvalidierungen oder Filter auf dem Arbeitsblatt gesetzt sind.
Fehler: Excel Filter löschen nicht möglich
- Lösung: Überprüfe, ob die Tabelle korrekt formatiert ist und ob du im richtigen Bereich arbeitest.

Alternative Methoden

Tabelle in einen neuen Bereich kopieren: Kopiere die Tabelle ohne Filter in einen neuen Bereich oder ein neues Arbeitsblatt, um die Filter zu entfernen.
Excel Spezialfilter verwenden: Du kannst auch den „Spezialfilter“ verwenden, um die Daten ohne Filter zu extrahieren.

Praktische Beispiele

Beispiel 1: Du hast eine Tabelle mit Verkaufsdaten, die gefiltert ist. Um alle Filter zu entfernen und die gesamte Datenansicht zurückzuerhalten, kannst du die oben genannten Schritte befolgen.
Beispiel 2: Wenn du Daten importierst und sicherstellen möchtest, dass keine Filter aktiv sind, führe das VBA-Skript gleich nach dem Import aus, um alle Filter zu löschen und versicherst, dass deine Analyse korrekt ist.

Tipps für Profis

Automatisiere den Prozess: Füge das VBA-Skript zur Arbeitsmappe hinzu, um es automatisch beim Öffnen oder Aktualisieren der Daten auszuführen.
Verwende benannte Bereiche: Arbeiten mit benannten Bereichen kann helfen, Filter einfacher zu verwalten und spezifische Daten schnell zu finden.
Regelmäßige Sicherungen: Bevor du Filter entfernst oder Daten löschst, mache eine Sicherung deiner Tabelle, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Warum lässt sich der Excel Filter nicht löschen?
Möglicherweise ist das Arbeitsblatt geschützt oder die Tabelle ist nicht korrekt formatiert.

2. Was kann ich tun, wenn der Filter ausgegraut ist?
Überprüfe den Schutzstatus des Arbeitsblatts und stelle sicher, dass du den richtigen Bereich ausgewählt hast.

3. Wie kann ich alle Filter gleichzeitig entfernen?
Du kannst die Tastenkombination Strg + Shift + L verwenden, um alle Autofilter in der Tabelle zu entfernen.

4. Funktioniert dies in allen Excel-Versionen?
Ja, die beschriebenen Methoden funktionieren in den meisten modernen Excel-Versionen, einschließlich Excel 2016, 2019 und Excel 365.

Beliebteste Forumthreads (12 Monate)