Supportnet / Forum / Tabellenkalkulation
Löschen des Autofilters mittels VBA / Zurücksetzen
Frage
Hallo,
ich habe in meiner Tabelle mittels Autofilters nach 1 - 2 Kriterien gefiltert. Nun will ich einen Button "Zurücksetzen" integrieren. Nach dem Klick soll der Filter wieder automatisch rausgenommen werden. Er muss aber allgemeingültig sein, weil ich mal in nur nach Lager in Spalte 2 und mal nach Lager und nach Materialnummer in Spalte 3 filtere.
Danke schon im Voraus.
Jeannette
Antwort 1 von Hajo_Zi
Hallo Jeanette,
Sub AlleFilterEntfernen()
With ActiveWorkbook.ActiveSheet
If .FilterMode Then
.ShowAllData
MsgBox "Es wurden alle Auto-Filter entfernt!", vbOKOnly, " Filter deaktiviert"
End If
End With
End Sub
Gruß Hajo
Sub AlleFilterEntfernen()
With ActiveWorkbook.ActiveSheet
If .FilterMode Then
.ShowAllData
MsgBox "Es wurden alle Auto-Filter entfernt!", vbOKOnly, " Filter deaktiviert"
End If
End With
End Sub
Gruß Hajo