Autofilter ausschalten

Forumthread: Autofilter ausschalten

27.10.2007 14:11:31

jens

Mit welchem VBA-Befehl kann ich sicherstellen, das der Auto-Filter in der Excel-Tabelle auf jeden Fall ausgeschaltet ist? (Mit selection.autofilter wird der Filter abwechselnd ein und ausgeschaltet)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Autofilter ausschalten

27.10.2007 15:01:35

Josef
AW: Autofilter ausschalten

27.10.2007 15:34:00

jens

AW: Autofilter ausschalten

27.10.2007 15:01:35

Josef

Hallo Jens,
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False

Gruß Sepp

AW: Autofilter ausschalten

27.10.2007 15:34:00

jens

Hallo Sepp,
Vielen Dank, genau den Befehl habe ich gesucht.
Gruß Jens

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um den Autofilter in einer Excel-Tabelle mit VBA sicher auszuschalten, kannst du den folgenden Befehl verwenden:

If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False

Dieser Befehl prüft, ob der Autofilter aktiv ist und schaltet ihn aus, falls er es ist. So kannst du sicherstellen, dass der Filter nicht mehr aktiv ist.

Falls du mehrere Filter auf einmal entfernen möchtest, kannst du das folgende Makro verwenden:

Sub AlleFilterEntfernen()
    If ActiveSheet.AutoFilterMode Then
        ActiveSheet.AutoFilterMode = False
    End If
End Sub

Du kannst dieses Makro einfach in dein Excel VBA-Projekt einfügen und ausführen.

Häufige Fehler und Lösungen

Fehler: "Run-time error '1004'"
Ursache: Der Befehl wird auf einem Blatt ausgeführt, das keinen Autofilter hat.
Lösung: Stelle sicher, dass das Blatt einen Autofilter hat, bevor du den Befehl ausführst.
Fehler: Autofilter bleibt trotz Befehl aktiv
Ursache: Der Befehl ist möglicherweise in einem anderen Kontext ausgeführt.
Lösung: Überprüfe, ob du dich im korrekten Arbeitsblatt befindest, und stelle sicher, dass keine anderen Makros den Autofilter erneut aktivieren.

Alternative Methoden

Manuelles Deaktivieren:
Du kannst den Autofilter auch manuell deaktivieren, indem du auf die Registerkarte "Daten" gehst und die Option "Filter" deaktivierst.
Excel Makro:
Verwende ein Makro, das alle Filter auf einmal entfernt:

Sub FilterEntfernen()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.AutoFilterMode Then
            ws.AutoFilterMode = False
        End If
    Next ws
End Sub

Dieses Makro entfernt den Autofilter von allen Arbeitsblättern in deiner Arbeitsmappe.

Praktische Beispiele

Beispiel 1: Deaktiviere den Autofilter nur auf dem aktuellen Blatt:

Sub AutofilterDeaktivieren()
    If ActiveSheet.AutoFilterMode Then
        ActiveSheet.AutoFilterMode = False
    End If
End Sub

Beispiel 2: Entferne alle Filter in einer bestimmten Tabelle:

Sub FilterVonTabelleEntfernen()
    With Worksheets("Tabelle1")
        If .AutoFilterMode Then .AutoFilterMode = False
    End With
End Sub

Tipps für Profis

Verwende Selection.AutoFilter: Wenn du nur einen bestimmten Bereich filtern möchtest, kannst du Selection.AutoFilter verwenden. Achte darauf, dass der Bereich korrekt selektiert ist.
Ereignisgesteuerte Makros: Du kannst ein Ereignis-Makro erstellen, das beim Öffnen der Datei automatisch alle Filter deaktiviert:

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

FAQ: Häufige Fragen

1. Wie kann ich den Autofilter in einer bestimmten Tabelle deaktivieren?
Du kannst den folgenden Befehl verwenden, um den Autofilter nur auf einer bestimmten Tabelle auszuschalten:

Worksheets("Tabelle1").AutoFilterMode = False

2. Was passiert, wenn ich versuche, den Autofilter auf einem Blatt ohne Filter zu deaktivieren?
Es wird kein Fehler auftreten, da der Befehl einfach ignoriert wird, wenn der Autofilter nicht aktiv ist.

Beliebteste Forumthreads (12 Monate)