VBA Filter zurücksetzen

Forumthread: VBA Filter zurücksetzen

31.08.2017 10:54:39

Peter

Hallo zusammen,
Ich möchte den Filter in der ersten Spalte in jedem worksheet aufheben.
Ich finde aber mein Fehler nicht bzw. weiß nicht ob meine Vorgehensweise überhaupt richtig ist.
An der fetten Stelle wird das Makro beim testen gelb markiert
Vielen Dank schonmal


Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Activate
For Each ListObject In ws.ListObjects
ListObject.Select
With ActiveList
.Range.AutoFilter Field:=1
End With
Next ListObject

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA Filter zurücksetzen

31.08.2017 11:36:31

yummi
AW: VBA Filter zurücksetzen

31.08.2017 13:05:52

Peter

AW: VBA Filter zurücksetzen

31.08.2017 11:36:31

yummi

Hallo Peter,


Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
With wks
If .FilterMode Then .ShowAllData
End With
Next wks

Gruß
yummi

AW: VBA Filter zurücksetzen

31.08.2017 13:05:52

Peter

Super, Danke dir!

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um in Excel VBA den Filter zurückzusetzen, kannst du folgende Schritte befolgen:

Öffne den Visual Basic for Applications (VBA) Editor mit ALT + F11.
Füge ein neues Modul ein, indem du mit der rechten Maustaste auf "Module" klickst und "Einfügen" wählst.
Kopiere den folgenden Code in das Modul:

Sub FilterZuruecksetzen()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        With ws
            If .FilterMode Then .ShowAllData
        End With
    Next ws
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus, um alle Filter in deinen Arbeitsblättern zurückzusetzen.

Häufige Fehler und Lösungen

Fehler: "Objektvariable oder With-Blockvariable nicht gesetzt"
- Lösung: Stelle sicher, dass du dem richtigen Arbeitsblatt zugewiesen hast, bevor du die Filter zurücksetzt.
Fehler: "Das Arbeitsblatt ist geschützt"
- Lösung: Entsperre das Arbeitsblatt, bevor du das Makro ausführst.

Alternative Methoden

Button zum Zurücksetzen der Filter: Du kannst einen Button in Excel erstellen und das Makro damit verknüpfen. So kannst du mit einem Klick die Filter zurücksetzen.
Tastenkombination: Erstelle eine Tastenkombination für das Makro, um die excel vba filter zurücksetzen Funktion schneller zu nutzen.

Praktische Beispiele

Beispiel 1: Um den Autofilter in einer bestimmten Tabelle zurückzusetzen:

Sub AutofilterZuruecksetzen()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Tabelle1") ' Name der Tabelle anpassen
    If ws.FilterMode Then
        ws.ShowAllData
    End If
End Sub

Beispiel 2: Alle Filter in einer Tabelle entfernen:

Sub AlleFilterLoeschen()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.ListObjects(1).AutoFilter.ShowAllData
    Next ws
End Sub

Tipps für Profis

Verwende Application.ScreenUpdating = False, bevor du das Makro ausführst, um die Ausführungsgeschwindigkeit zu erhöhen und das Flackern des Bildschirms zu vermeiden. Vergiss nicht, es am Ende wieder auf True zu setzen.
Implementiere eine Fehlerbehandlung, um unerwartete Probleme beim Ausführen des Makros zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich alle Filter gleichzeitig zurücksetzen? Du kannst das oben genannte Makro verwenden, das alle Filter in allen Arbeitsblättern zurücksetzt.

2. Gibt es eine Möglichkeit, einen Shortcut zum Zurücksetzen der Filter zu erstellen? Ja, du kannst das Makro mit einer Tastenkombination verknüpfen, die du in den Makroeinstellungen festlegen kannst.

3. Was mache ich, wenn mein Makro nicht funktioniert? Überprüfe, ob die Arbeitsblätter geschützt sind oder ob du die richtige Syntax in deinem VBA-Code verwendet hast.

Beliebteste Forumthreads (12 Monate)