KutoolsforOffice — Eine Lösung, fünf leistungsstarke Tools.Mehr erreichen mit weniger Aufwand.März-Aktion: 20 % Rabatt

Wie entfernt man Filter beim Öffnen, Speichern oder Schließen einer Arbeitsmappe in Excel?

AutorSiluvia Änderungsdatum

Angenommen, Sie haben mehrere Arbeitsblätter mit gefilterten Daten in Ihrer Arbeitsmappe. Um alle Filter zu entfernen, müssten Sie jede gefilterte Liste in den verschiedenen Arbeitsblättern einzeln prüfen und manuell nacheinander löschen – ein echter Zeitaufwand! In diesem Artikel zeigen wir Ihnen mehrere Methoden, wie Sie Filter beim Öffnen, Speichern oder Schließen einer Arbeitsmappe in Excel automatisch entfernen können.

Filter beim Öffnen der Arbeitsmappe in Excel löschen
Filter beim Speichern der Arbeitsmappe in Excel löschen
Filter beim Schließen/Beenden der Arbeitsmappe in Excel löschen

Filter beim Öffnen der Arbeitsmappe in Excel löschen

Dieser Abschnitt erläutert, wie Sie beim Öffnen einer Arbeitsmappe alle Filter in sämtlichen Arbeitsblättern entfernen. Gehen Sie dazu wie folgt vor:

1. Drücken Sie in einer Arbeitsmappe, in der beim Öffnen automatisch alle Filter gelöscht werden sollen, die Tastenkombination Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Doppelklicken Sie im Fenster Microsoft Visual Basic für Applikationen im linken ThisWorkbook-Bereich des Projekt-Bereichs, und fügen Sie anschließend den folgenden VBA-Code in das ThisWorkbook (Code)-Fenster ein. Siehe Screenshot:

Kopieren und Einfügen des Codes in das ThisWorkbook-Modul

VBA-Code: Alle Filter beim Öffnen der Arbeitsmappe löschen

Private Sub Workbook_Open()
'Updated by Extendoffice 20221012
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.AutoFilterMode Then
            ws.ShowAllData
        End If
    Next ws
End Sub

3. Drücken Sie die Tastenkombination Alt+Q, um das Fenster Microsoft Visual Basic für Applikationen zu schließen.

4. Klicken Sie auf Datei > Speichern unter. Geben Sie im erscheinenden Dialogfeld Speichern unter einen Ordner zum Speichern dieser Arbeitsmappe an, benennen Sie sie entsprechend im Feld Dateiname und wählen Sie anschließend im Dropdown-Menü Speichern im Format die Option Excel-Arbeitsmappe mit Makros aktiviert aus. Klicken Sie abschließend auf die Schaltfläche Speichern.

Wählen Sie die Option Excel-Arbeitsmappe mit Makros im Dropdown-Menü „Dateityp“ aus

Ab sofort werden beim Öffnen dieser makrofähigen Arbeitsmappe automatisch sämtliche Filter in der Arbeitsmappe entfernt.

Ein Screenshot von kutools for excel ai

Entfesseln Sie die Magie von Excel mit KUTOOLS AI

  • Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
  • Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
  • VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
  • Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
  • Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Werkzeugen.Jetzt herunterladenund erleben Sie Effizienz wie nie zuvor!

Filter beim Speichern der Arbeitsmappe in Excel löschen

Sie können alle Filter aus der aktuellen Arbeitsmappe jedes Mal beim Speichern der Arbeitsmappe löschen.

1. Drücken Sie in der Arbeitsmappe, aus der beim Speichern automatisch alle Filter entfernt werden sollen, die Tastenkombination Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Doppelklicken Sie im Fenster Microsoft Visual Basic für Applikationenim linken ThisWorkbook-Bereich des Projekt-Bereichs und fügen Sie anschließend den folgenden VBA-Code in das ThisWorkbook (Code)-Fenster ein. Siehe Screenshot:

Kopieren und Einfügen des Codes in das ThisWorkbook-Modul

VBA-Code: Filter beim Speichern der Arbeitsmappe löschen

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updated by Extendoffice 20221012
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.AutoFilterMode Then
            ws.ShowAllData
        End If
    Next ws
End Sub

3. Drücken Sie die Tastenkombination Alt+Q, um das Fenster Microsoft Visual Basic für Applikationenzu schließen.

Ab sofort werden beim Speichern der Arbeitsmappe automatisch alle Filter entfernt.

Filter beim Schließen/Beenden der Arbeitsmappe in Excel löschen

Im letzten Abschnitt zeigen wir Ihnen, wie Sie beim Schließen oder Beenden der Arbeitsmappe alle Filter in sämtlichen Arbeitsblättern automatisch entfernen können.

1. Öffnen Sie die Arbeitsmappe, aus der beim Schließen automatisch alle Filter gelöscht werden sollen, und drücken Sie anschließend die Tastenkombination Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Im Microsoft Visual Basic für Applikationen-Fenster doppelklicken Sie bitte auf ThisWorkbook im linken Projekt-Bereich und fügen anschließend den folgenden VBA-Code in das ThisWorkbook (Code)-Fenster ein. Siehe Screenshot:

Kopieren und Einfügen des Codes in das ThisWorkbook-Modul

VBA-Code: Alle Filter in sämtlichen Arbeitsblättern beim Schließen/Beenden der Arbeitsmappe löschen

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.AutoFilterMode Then
            ws.AutoFilterMode = False
        End If
    Next ws
End Sub

Hinweis: Wenn Sie Filter nur im aktuellen Arbeitsblatt löschen möchten, verwenden Sie bitte den folgenden VBA-Code.

VBA-Code: Filter Aktives Arbeitsblatt beim Schließen der Arbeitsmappe löschen

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20221012
    Dim ws As Worksheet
    Set ws = ActiveSheet
        If ws.AutoFilterMode Then
            ws.ShowAllData
        End If
End Sub

3. Drücken Sie Alt + Q, um das Fenster Microsoft Visual Basic für Applikationen zu schließen.

Ab sofort werden alle Filter automatisch gelöscht, sobald Sie in der Arbeitsmappe auf die Schaltfläche „Schließen“ klicken.

Verwandte Artikel:

Beste Office-Produktivitätstools

🤖KUTOOLS AI-Assistent: Revolutionieren Sie Datenanalyse basierend auf:Intelligente Ausführung   |  Code generieren|  benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme erstellen|  Erweiterte Funktionen aufrufen…
Beliebte Funktionen:Suchen, hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten kombinieren oder Zellen ohne Datenverlust   |   Runden ohne Formel...
Erweiterte SVERWEIS:VLookup mit mehreren Kriterien  |  VLookup mit mehreren Werten  |   VLookup über mehrere Arbeitsblätter hinweg   |   Fuzzy Match....
Erweiterte Dropdown-Liste:Schnell eine Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl-Dropdown-Liste....
Spalten-Manager:Eine bestimmte Anzahl von Spalten hinzufügen|Spalten verschieben|Sichtbarkeitsstatus ausgeblendeter Spalten umschalten|Bereiche & Spalten vergleichen...
Hervorgehobene Funktionen:Gitterfokus   |  Entwurf   |Erweiterte Formelleiste   | Arbeitsmappen- & Blatt-Manager   |  Ressourcenbibliothek(AutoText)|  Datumsauswahl   |  Arbeitsblätter konsolidieren  |  Verschlüsseln/Zellen entschlüsseln   | E-Mails per Liste versenden   |  Super Filter   |   Spezialfilter(Zellen mit fettgedruckter Schrift filtern/kursiv/durchgestrichen...) ...
Top-15-Toolsets:12-Text-Tools(Text hinzufügen,Bestimmte Zeichen löschen, ...)|   50+-Diagramm-Typen(Gantt-Diagramm, ...)|   40+ Praktische Formeln(Alter basierend auf dem Geburtstag berechnen, ...)|   19-Einfüge-Tools(QR-Code einfügen,Bild aus Pfad einfügen, ...)|   12-Konvertierungs-Tools(In Wörter umwandeln,Wechselkursumrechnung, ...)|   7-Vereinigen/Aufteilen-Tools(Erweiterte Zeilen zusammenführen,Zellen aufteilen, ...)|... und mehr
Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und 40+ weitere Sprachen!

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...

Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher

  • Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
  • Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!

Alle Kutools-Add-Ins – ein Installationsprogramm

Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.

ExcelWordOutlookTabsPowerPoint
  • Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
  • Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
  • Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
  • 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
  • Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins