Alle Autofilter zurücksetzen
Setzt alle Autofilter zurück
Sub Filter_aus()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub