Autofilter schnell zurücksetzen
Lutz
ich habe ein Makro mit dem ich alle Autofilter zurücksetze:
Sub AFilter_off()
Dim Kopf As String
Dim Stil As Integer
On Error GoTo Fehler
Selection.AutoFilter
Exit Sub
Fehler:
Kopf = "xxxx"
Stil = vbOKOnly + vbExclamation
MsgBox Err.Description, Stil, Kopf
End Sub
Ich denke der setzt jeden Filter zurück auch wenn er gar nicht gesetzt war?!
Wenn ich das manuell aufzeichne:
Sub Makro2()
ActiveSheet.Range("$A$1:$W$64481").AutoFilter Field:=22
ActiveSheet.Range("$A$1:$W$64481").AutoFilter Field:=6
End Sub
Geht das rasend schnell ist aber natürlich nicht immer einsetzbar.
Wie bekommt man es schneller hin das immer alle gesetzten Autofilter rausgenommen werden?
Hat jemand eine Idee?
Vielen Dank und viele Grüße Lutz
Anzeige