Wie kann man Filter beim Öffnen, Speichern oder Schließen einer Arbeitsmappe in Excel löschen?

Angenommen, Sie haben mehrere Arbeitsblätter mit gefilterten Daten in Ihrer Arbeitsmappe. Um alle Filter zu löschen, müssen Sie die gefilterten Listen in verschiedenen Arbeitsblättern überprüfen und sie dann manuell nacheinander löschen. Das ist ärgerlich! In diesem Artikel zeigen wir Ihnen verschiedene Methoden, um Filter beim Öffnen, Speichern oder Schließen einer Arbeitsmappe in Excel zu löschen.

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 behandelt das Löschen von Filtern in allen Arbeitsblättern beim Öffnen einer Arbeitsmappe. Bitte folgen Sie den nachstehenden Schritten.

1. In einer Arbeitsmappe, in der Sie beim Öffnen automatisch alle Filter löschen möchten, drücken Sie bitte die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Im Fenster Microsoft Visual Basic for Applications doppelklicken Sie bitte auf ThisWorkbook im linken Projektbereich und kopieren und fügen Sie dann den folgenden VBA-Code in das Fenster ThisWorkbook (Code) ein. Siehe Screenshot:

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 Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

4. Klicken Sie auf Datei > Speichern unter. Wählen Sie im erscheinenden Dialogfeld „Speichern unter“ einen Ordner aus, um diese Arbeitsmappe zu speichern, benennen Sie sie wie gewünscht im Feld Dateiname, wählen Sie dann die Option Excel-Arbeitsmappe mit Makros aus der Dropdown-Liste Speichern als Typ aus und klicken Sie abschließend auf die Schaltfläche Speichern.

Ab sofort werden beim Öffnen dieser Arbeitsmappe mit Makros alle Filter in dieser Arbeitsmappe automatisch gelöscht.

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Filter beim Speichern der Arbeitsmappe in Excel löschen

Sie können jedes Mal alle Filter aus der aktuellen Arbeitsmappe löschen, wenn Sie sie speichern.

1. In der Arbeitsmappe, aus der Sie automatisch alle Filter löschen möchten, drücken Sie bitte die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Im Fenster Microsoft Visual Basic for Applications doppelklicken Sie bitte auf ThisWorkbook im linken Projektbereich und kopieren und fügen Sie dann den folgenden VBA-Code in das Fenster ThisWorkbook (Code) ein. Siehe Screenshot:

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 Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

Ab sofort werden beim Speichern der Arbeitsmappe alle Filter automatisch gelöscht.

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

Im letzten Abschnitt zeigen wir Ihnen, wie Sie alle Filter über Arbeitsblätter hinweg löschen können, wenn Sie die Arbeitsmappe schließen oder beenden.

1. Öffnen Sie die Arbeitsmappe, aus der Sie automatisch alle Filter löschen möchten, und drücken Sie dann die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Im Fenster Microsoft Visual Basic for Applications doppelklicken Sie bitte auf ThisWorkbook im linken Projektbereich und kopieren und fügen Sie dann den folgenden VBA-Code in das Fenster ThisWorkbook (Code) ein. Siehe Screenshot:

VBA-Code: Alle Filter über Arbeitsblätter hinweg 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 nur die Filter im aktuellen Arbeitsblatt löschen möchten, verwenden Sie bitte den folgenden VBA-Code.

VBA-Code: Filter im aktiven 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 die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

Ab sofort werden alle Filter automatisch gelöscht, nachdem Sie auf die Schaltfläche Schließen in der Arbeitsmappe geklickt haben.

Verwandte Artikel:

• Wie kann man den Filter-Cache (alte Elemente) aus einer Pivot-Tabelle in Excel löschen?
• Wie kann man Filter aus allen Arbeitsblättern in der aktiven Arbeitsmappe in Excel löschen?
• Wie kann man Daten basierend auf einem Kontrollkästchen in Excel filtern?
• Wie kann man eine Zahlenreihe in einer gefilterten Spaltenliste in Excel ausfüllen?