Office: Autofilter zurücksetzen

Helfe beim Thema Autofilter zurücksetzen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Leute, ich habe ein kleines Problem bei dem ich eure Hilfe benötige. Ich benutze folgenden Code zum Zurücksetzen des Autofilters. Sub... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Helmut1, 18. Januar 2019.

  1. Autofilter zurücksetzen


    Hallo Leute,

    ich habe ein kleines Problem bei dem ich eure Hilfe benötige.
    Ich benutze folgenden Code zum Zurücksetzen des Autofilters.

    Sub AutoFilterZurück()
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=1
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=2
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=3
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=4
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=5
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=6
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=7
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=8
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=9
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=10
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=11
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=12
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=13
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=14
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=15
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=16
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=17
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=18
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=19
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=20
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=21
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=22
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=23
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=24
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=25
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=26
    ActiveSheet.ListObjects("Tabelle4").Range.AutoFilter Field:=27

    End Sub

    Wie muss der Code geändert werden das er schneller durchläuft.

    Vielen Dank im Voraus
    Helmut

    :)
     
    Helmut1, 18. Januar 2019
    #1
  2. Hajo_Zi
    Hajo_Zi Erfahrener User
    Hallo Helmut,

    Autofilter zurücksetzen
    Option Explicit

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Worksheets("Tabelle1")
    If .AutoFilterMode Then
    If .FilterMode Then .ShowAllData
    End If
    End With
    End Sub

    Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
    Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
     
    Hajo_Zi, 20. Januar 2019
    #2
  3. Hallo Hajo,
    danke für deine Antwort, soll aber mit einer Schaltfläche zurückgesetzt werden.
     
    Helmut1, 20. Januar 2019
    #3
  4. Hajo_Zi
    Hajo_Zi Erfahrener User

    Autofilter zurücksetzen

    Schreibe dasa makro unter dem Code für den Schalter.
     
    Hajo_Zi, 20. Januar 2019
    #4
  5. Hallo Helmut,

    Hajos Tipp klappt bei mir nur, wenn die Tabelle mit dem ListObject auch aktiv ist, wenn nicht, mache ich das so: Code:
    Gruß von Luschi
    aus klein-Paris
     
  6. Hallo Luschi,
    danke auch an dich für deine Unterstützung.
    Ich bekomme auch dein Code nicht zum laufen.

    Lafzeitfehler 9 (Index außerhalb des gültigen Bereich)
    Set rg = ThisWorkbook.Worksheets("Tabelle1").ListObjects("tabListe_01").AutoFilter.Range

    Gruß Helmut
     
    Helmut1, 20. Januar 2019
    #6
  7. \@Helmut: Du musst halt schon Luschis Code genau lesen und eventuelle Tabellenblattnamen anpassen.
     
    MisterBurns, 20. Januar 2019
    #7
  8. Autofilter zurücksetzen

    Hallo Berni,
    Tabellenblattnamen angepasst, jetzt keine Meldung aber Code macht auch nichts.

    Gruß Helmut
     
    Helmut1, 20. Januar 2019
    #8
  9. Hallo Helmut,

    da ich meine Vba-Vorschläge vorher teste, kannst Du sicher sein, daß es bei mir klappt - Deine Datei sehe ich nicht und eine Demodatei willst Du ja wohl nicht bereitstellen.

    Gruß von Luschi
    aus klein-Paris
     
  10. Hallo Luschi,
    kein Problem eine Test Datei.
     
    Helmut1, 21. Januar 2019
    #10
  11. Code:
     
    MisterBurns, 21. Januar 2019
    #11
  12. Hallo Berni,
    nochmals Dankeschön hat bestens funktioniert.

    Gruß Helmut
     
    Helmut1, 22. Januar 2019
    #12
  13. Autofilter zurücksetzen

    You can watch movies and TV shows on the Roku channel such as hit hits movies, popular shows, live news, sports and you can activate it by visiting Roku.com/link But to do this you must follow certain conditions of Roku. To get more information about this you can visit our website Roku.com/link Our Roku team is available to help you at all times. You can contact the Roku team at any time at Roku.com/link And can benefit.
     
  14. Code:
    Oder:

    Code:
    Edit: Oh Mann, ich sehe erst jetzt, dass diese Frage schon fast zwei Jahre alt ist
     
  15. Ein Hoch auf Fake-Accounts und Spam-Beiträge...*Smilie
     
    Zuletzt von einem Moderator bearbeitet: 12. Januar 2021
Thema:

Autofilter zurücksetzen

Die Seite wird geladen...
  1. Autofilter zurücksetzen - Similar Threads - Autofilter zurücksetzen

  2. Bilder in Zelle mit Autofilter mitverschieben!

    in Microsoft Excel Hilfe
    Bilder in Zelle mit Autofilter mitverschieben!: Hallo Excel Kollegen! Ich habe folgendes Problem. Ich füge per vba ein PDF Symbol als .jpg Datei ein. Soweit funktioniert alles. Wenn ich aber diese Tabelle mit dem Autofilter filtere bleibt das...
  3. PDF erstellen/Autofilter

    in Microsoft Excel Hilfe
    PDF erstellen/Autofilter: Hallo, ich bin eher ein "Excel-Anfänger" und bräuchte Hilfe bezügl. folgender Funktion: Ich habe ein Tabellenblatt mit mehreren Spalten (A-Q) und Zeilen (1-19). Zusätzlich habe ich einen Filter...
  4. Autofilter Datum heute

    in Microsoft Excel Hilfe
    Autofilter Datum heute: Moin Excel Gemeinde, Ich habe einen Code für einen Filter der mir in Spalte A das heutige Datum filtert. Private Sub CommandButton1_Click() ActiveSheet.AutoFilterMode = False...
  5. Like im Autofilter möglich

    in Microsoft Excel Hilfe
    Like im Autofilter möglich: Hallo zusammen. Ich möchte mittels VBA Code ein Like einbauen, um in einer Zelle mit zwei Worten auch ein Ergebnis zu erhalten. Mein Code bisher mit einem Wort "filtern" ist möglich. Wenn aber...
  6. Autofilter Daten auslesen

    in Microsoft Excel Hilfe
    Autofilter Daten auslesen: Hallo, ich weiß jetzt nicht ob ihr für VBA Excel auch Hilfe anbietet. Ich habe eine Datenbank: zb. Strichcode Vorname Nachname Als erstes lese ich einen Strichcode ein. Dann wird mittels...
  7. Makro Problem nach Wörtern filtern und Zeilen löschen

    in Microsoft Excel Hilfe
    Makro Problem nach Wörtern filtern und Zeilen löschen: Hallo zusammen! Ich habe ein Makro, dass ich erweitern möchte. Dabei soll in den Daten in der ersten Zeile ein Filter aktiviert werden und alle Datenzeilen löschen, die in Spalte 10 eines von 4...
  8. Autofilter beim Beenden zurücksetzen

    in Microsoft Excel Hilfe
    Autofilter beim Beenden zurücksetzen: Hallo, in meiner Liste greifen viele Benutzer aus dem Netzwerk zu. Diese Liste hat mehrere Arbeitsblätter und manche mit Autofiltern. Oft kommt es vor das Mitarbeiter Filter setzen um was zu...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden