Private Sub Worksheet_Deactivate()
If Me.AutoFilterMode Then Me.AutoFilterMode = False ' Autofilter ausschalten
'****** oder
If Me.FilterMode Then Me.ShowAllData ' Autofilter alle zeigen
End Sub
Um einen Filter in Excel über VBA zu löschen, kannst Du den folgenden Code verwenden. Dieser wird ausgeführt, wenn Du das Tabellenblatt verlässt:
Private Sub Worksheet_Deactivate()
If Me.AutoFilterMode Then Me.AutoFilterMode = False ' Autofilter ausschalten
' oder
If Me.FilterMode Then Me.ShowAllData ' Autofilter alle zeigen
End SubMit diesem Code wird der Autofilter automatisch gelöscht, wenn Du zu einem anderen Blatt wechselst.
Fehler: "Excel Filter lässt sich nicht löschen"
Fehler: "Autofilter wird nicht entfernt"
Lösung: Filter zurücksetzen
Falls Du den Filter manuell löschen möchtest, kannst Du dies auch über die Excel-Oberfläche tun:
Alternativ kannst Du auch eine Tastenkombination verwenden: Strg + Shift + L, um den Filter zu entfernen.
Beispiel 1: Alle Filter löschen
Wenn Du alle Filter in einer Tabelle entfernen möchtest, kannst Du folgenden VBA-Code verwenden:
Sub AlleFilterLoeschen()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("DeinTabellenblatt")
If ws.AutoFilterMode Then
ws.AutoFilterMode = False
End If
End SubBeispiel 2: Filter zurücksetzen
Um alle Filter zurückzusetzen, nutze diesen Code:
Sub FilterZuruecksetzen()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("DeinTabellenblatt")
If ws.FilterMode Then
ws.ShowAllData
End If
End Sub1. Wie kann ich einen Filter nur löschen, wenn er gesetzt ist? Du kannst dies mit dem folgenden Code erreichen:
If Me.AutoFilterMode Then Me.AutoFilterMode = False2. Was ist der Unterschied zwischen "Filter löschen" und "Filter zurücksetzen"? "Filter löschen" entfernt alle Filter, während "Filter zurücksetzen" die Daten wieder in ihren ursprünglichen Zustand bringt, ohne den Filter zu entfernen.
3. Wie kann ich in Access einen Filter löschen? In Access kannst Du ähnlich vorgehen, indem Du den VBA-Code für das entsprechende Formular anpasst, um den Filter zu löschen.