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. 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. 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. Autofilter die 3 Höchsten pro Markt

    in Microsoft Excel Hilfe
    Autofilter die 3 Höchsten pro Markt: Moin, leider bin ich ein absoluter Neuling was VBA angeht und hoffe das ihr einen guten Tip für mich habe. Und zwar suche ich eine Möglichkeit in der Tabelle jeweils die 3 höchsten Mengen pro...
  3. Excel Tabelle mit Autofilter Zelle auslesen

    in Microsoft Excel Hilfe
    Excel Tabelle mit Autofilter Zelle auslesen: Hallo Forum ich habe eine Tabelle mit 5 Spalten mit Tabellenüberschrift. Ich filtere die Tabelle nach einem Kriterium in Spalte A. Als Ergebnis werden mehrere Zeilen oder auch nur 1 Zeile...
  4. Autofilter über 2 Spalten

    in Microsoft Excel Hilfe
    Autofilter über 2 Spalten: Hallo Leute, ich habe ein kleines Problem bei dem ich eure Hilfe benötige. Ich benutze folgenden Code zum filtern der Spalte R. Dieser Code listet mir alle Zeilen auf, in denen der Wert in Spalte...
  5. Excel Autofilter VBA funktioniert nicht mir Datum und 2tem Kriterium

    in Microsoft Excel Hilfe
    Excel Autofilter VBA funktioniert nicht mir Datum und 2tem Kriterium: Hallo Zusammen, habe mittlerweile den ganzen Nachmittag versucht eine Lösung zu finden. Aber ich jetzt weiß nicht mehr weiter. Ich möchte in einer Excelliste in 2 verschiedenen Spalten nach...
  6. Sortieren mit Autofilter bei aktivem Blattschutz

    in Microsoft Excel Hilfe
    Sortieren mit Autofilter bei aktivem Blattschutz: Hallo zusammen, ich habe in meiner Tabelle 2 Registerblätter die mit Blattschutz versehen werden um eine fehlerhafte Bedienung durch die späteren User zu verhindern. Die jeweils oberste Zeile...
  7. Office 365: Problem mit Makro: Autofilter, pdf export

    in Microsoft Excel Hilfe
    Office 365: Problem mit Makro: Autofilter, pdf export: Hallo zusammen Da ich im Bereich Makros für Excel Anfänger bin, bitte ich euch um Hilfe. Folgende Ausgangslage: Mit ein bisschen suchen, habe ich ein Makro mit Autofilter Funktion und...
  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...