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!
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.
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
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").
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!
@WillWissen
Dein Befehl löscht die Filterfunktion in der Tabelle....
@ shift-del
Dein Befehl bringt einen Fehler...
(22.07.2018, 19:31)Frogger1986 schrieb: [ -> ]@ shift-del
Dein Befehl bringt einen Fehler...
Nicht wenn vorher gefiltert wurde.
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.
@shift- del
Also bei mir bringst in jedem Fall eine Fehlermeldung...
so geht's noch kürzer..
Code:
ActiveSheet.Range("Tabelle1").ListObject.AutoFilter.ShowAllData
Bei mir funktioniert es in einem Modul und im Direkt-Fenster.