Filter einer Tabelle über Button zurücksetzen

[ExcelNeuling99]

Hallo zusammen,

ich habe ein Problem mit meiner Tabelle. Diese hat relativ viele Spalten und ich hätte gerne einen Button (in der Beispieldatei der blaue Button oben) mit dem ich automatisch alle Filter der Tabelle zurücksetzen kann. Ich habe schon etliche Lösungsansätze ausprobiert, aber die funktionieren nicht.

Weiß jemand Rat?
Danke!

[WillWissen]

Hi,

da brauchst du doch kein Makro? Gehe in deine Tabelle rein (egal wo), dann hast du in der Menüleiste unter Tabellentools den Reiter Entwurf. Hier nimmst du einfach das Häkchen bei Schaltfläche "Filter" raus.

[WillWissen]

Hi,

wenn du, aus welchem Grund auch immer, trotzdem die Filter mit einem Makro zurücksetzen willst, dann kannst du den Vorgang mit dem Makrorekorder aufzeichnen. Sieht dann in etwa so aus:

Code:

Option Explicit

Sub FilterZurückSetzen()

   ActiveSheet.ListObjects("Tabelle1").ShowAutoFilterDropDown = False
End Sub

[shift-del]

Hallo

Daten -> Sortieren und Filtern -> Löschen

Als VBA-Code:

Code:

ActiveSheet.ShowAllData

Man kann den Befehl auch in die Symbolleiste für den Schnellzugriff einfügen ("Alle Filter löschen").

[Frogger1986]

Code:

Sub Filter()
With ActiveSheet.Range("Tabelle1").ListObject
    If .ShowAutoFilter Then
        If .AutoFilter.FilterMode Then
        .AutoFilter.ShowAllData
        End If
    End If
End With
End Sub

In ein Modul und dann dem Butten das Makro zuweisen! "Tabelle1" ist der Name der Intelligenten Tabelle!

[Frogger1986]

@WillWissen 

Dein Befehl löscht die Filterfunktion in der Tabelle....

@ shift-del

Dein Befehl bringt einen Fehler...

[shift-del]

@ shift-del

Dein Befehl bringt einen Fehler...

Nicht wenn vorher gefiltert wurde.

[WillWissen]

Hallo Frogger,

ich hatte es nicht getestet und bin irrtümlich davon ausgegangen, dass das Entfernen des Häkchens dieselbe Wirkung hat wie das Löschen der Filter.

[Frogger1986]

@shift- del

Also bei mir bringst in jedem Fall eine Fehlermeldung...


so geht's noch kürzer..

Code:

ActiveSheet.Range("Tabelle1").ListObject.AutoFilter.ShowAllData

[shift-del]

Bei mir funktioniert es in einem Modul und im Direkt-Fenster.