Filter setzen/Filter löschen
07.09.2015 10:02:52
ADR
ich will gerade ein Button basteln, mit dem man eine Liste filtern bzw. den Filter löschen kann.
Den Filter zu setzen ist einfach, nur wie bekomme ich die Abfrage hin, ob der Filter gesetzt ist bzw. das darauffolgende Löschen.
Hier der bisherige Code:
Sub aktive()
' aktive Makro
ActiveSheet.ListObjects("Tabelle_Abfrage_von_HSA36").Range.AutoFilter _
Field:=3, Criteria1:=">0", Operator:=xlAnd
End Sub