VBA - Filter entfernen | HERBERS Excel Forum

Forumthread: VBA - Filter entfernen

VBA - Filter entfernen

29.10.2022 20:52:42

Jenny

Hallo,
mal eine kurze Frage, wie kann ich per VBA in allen 15 Blättern meiner Mappe sämtliche Filter entfernen? (Wobei nicht gesagt ist dass es beim Starten des Makros in jedem der 15 Blätter auch ein Filter da ist, kann sein, kann aber auch nicht sein).
Mit entfernen meine ich so, dass nicht nur die Filter aufgehoben werden sondern auch dass sämtliche kleine Pfeile neben den Spaltenüberschriften verschwinden, insbesondere auch in den PQ Abfragen und den intelligenten Tabellen.
Hab zwar mir einen Filter in einer der intelligenten Tabellen gesetzt und dann aufgezeichnet, wie ich den wieder lösche und die Pfeile wegmache, aber der Code der dabei rausgesprungen ist, hat mir auch nicht weitergeholfen, wie ich das jetzt auf die ganze Mappe anwende...
Kann mir da jemand helfen? Ich brauche kein komplettes Makro lediglich einen Codeschnipsel, den ich in ein anderes Makro reinpacken kann.
Vielen lieben Dank und noch ein schönes Wochende
Jenny


Sub Makro2()
' Makro2 Makro
ActiveSheet.ShowAllData
Selection.AutoFilter
End Sub

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA - Filter entfernen

29.10.2022 21:03:06

Eifeljoi5
AW: VBA - Filter entfernen

29.10.2022 21:09:11

Jenny
AW: VBA - Filter entfernen

29.10.2022 21:33:04

Eifeljoi5
hab jetzt ne Lösung

29.10.2022 21:56:22

Jenny

AW: VBA - Filter entfernen

29.10.2022 21:03:06

Eifeljoi5

Hallo
Meinst du etwa so?
Name deiner Tabelle anpassen.



Sub Makro1()
ActiveSheet.ListObjects("Name deiner Tabelle").ShowAutoFilterDropDown = False
End Sub

AW: VBA - Filter entfernen

29.10.2022 21:09:11

Jenny

Hallo Eifeljo,
das Makro meint leider Index außerhalb des gültigen Bereichs.
Außerdem wollte ich ja alle Blätter, nicht nur das aktive...
Vielleicht hast du ja noch eine Idee, würde mich total freuen.
Jenny

AW: VBA - Filter entfernen

29.10.2022 21:33:04

Eifeljoi5

Hallo
Dann für eine Tabelle so.


Sub Makro2()
Range("Name deiner Tabelle").AutoFilter
End Sub

hab jetzt ne Lösung

29.10.2022 21:56:22

Jenny

so ne Mischung aus meinem aufgezeichneten und deinem ersten Makro aber so scheint es zu gehen.


Sub Filter()
Dim myTable As ListObject
Dim mySheet As Worksheet
For Each mySheet In Worksheets
For Each myTable In mySheet.ListObjects
myTable.AutoFilter.ShowAllData
myTable.ShowAutoFilterDropDown = False
Next myTable
Next mySheet
End Sub

Vielen dank jedenfalls und ein schönes restliches Wochenende.

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um alle Filter in einer Excel-Arbeitsmappe über VBA zu entfernen, kannst du folgenden Code verwenden. Dieser sorgt dafür, dass alle Filter in sämtlichen Blättern der Mappe deaktiviert werden, und die kleinen Pfeile neben den Spaltenüberschriften verschwinden.

Öffne den VBA-Editor (drücke ALT + F11).
Füge ein neues Modul hinzu (Rechtsklick auf "VBAProject" → Einfügen → Modul).
Kopiere den folgenden Code in das Modul:

Sub AlleFilterEntfernen()
    Dim ws As Worksheet
    Dim tbl As ListObject

    ' Durchlaufe alle Arbeitsblätter in der Mappe
    For Each ws In ThisWorkbook.Worksheets
        ' Durchlaufe alle Tabellen in jedem Arbeitsblatt
        For Each tbl In ws.ListObjects
            On Error Resume Next ' Fehler ignorieren, falls kein Filter gesetzt ist
            tbl.AutoFilter.ShowAllData ' Alle Filter aufheben
            tbl.ShowAutoFilterDropDown = False ' Pfeile ausblenden
            On Error GoTo 0 ' Fehlerbehandlung zurücksetzen
        Next tbl
    Next ws
End Sub

Schließe den VBA-Editor und führe das Makro über ALT + F8 aus.

Häufige Fehler und Lösungen

Fehler: Index außerhalb des gültigen Bereichs
- Ursache: Dies passiert, wenn das angegebene Tabellenblatt oder die Tabelle nicht existiert. Stelle sicher, dass die Namen korrekt sind.
Fehler: Excel filter lässt sich nicht entfernen
- Lösung: Überprüfe, ob der Filter tatsächlich aktiv ist. Nutze den Code On Error Resume Next, um eventuelle Fehler zu ignorieren.

Alternative Methoden

Neben VBA gibt es auch andere Methoden, um Filter in Excel zu entfernen:

Manuell: Gehe auf die Registerkarte "Daten" und klicke auf „Filter löschen“.
Shortcut: Verwende die Tastenkombination ALT + D + F + F, um den Filter zu aktivieren oder zu deaktivieren.

Praktische Beispiele

Wenn du eine Tabelle hast, die mit dem Namen "Verkäufe" versehen ist, kannst du den Filter auch nur für diese Tabelle entfernen:

Sub FilterVerkaeufeEntfernen()
    Dim tbl As ListObject
    Set tbl = ThisWorkbook.Worksheets("Tabelle1").ListObjects("Verkäufe")

    On Error Resume Next
    tbl.AutoFilter.ShowAllData
    tbl.ShowAutoFilterDropDown = False
    On Error GoTo 0
End Sub

Tipps für Profis

Überlege, ob du das Makro als Schaltfläche in deine Arbeitsmappe einfügen möchtest, um die Filter jederzeit schnell zu entfernen.
Nutze Kommentare im VBA-Code, um die Funktionalität für andere Nutzer zu erklären oder um dir selbst eine Erinnerung zu geben.

FAQ: Häufige Fragen

1. Wie kann ich alle Filter in Excel mit einer Tastenkombination entfernen? Du kannst die Tastenkombination ALT + D + F + F verwenden, um die Filter zu deaktivieren oder zu aktivieren.

2. Was tun, wenn der Filter nicht entfernt wird? Überprüfe, ob der Filter tatsächlich aktiv ist oder ob es sich um einen speziellen Filter handelt, der möglicherweise nicht mit den Standardmethoden entfernt werden kann.

3. Kann ich auch Farbfilter in Excel entfernen? Ja, du kannst Farbfilter entfernen, indem du die Filteroptionen in der Datenregisterkarte öffnest und die entsprechenden Einstellungen anpasst.

Beliebteste Forumthreads (12 Monate)

VBA - Filter entfernen

Forumthread: VBA - Filter entfernen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Alle Filter in Excel mit VBA entfernen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread