Makro für "alle Filter entfernen"
21.02.2005 15:37:59
Dine
mein Makro funktioniert nicht ganz. Was muss ich ändern? Das Makro soll alle Filter entfernen.
Es sind viele Spalten mit Autofilter vorhanden in der Zeile 4, das Makro soll alle Autofilter auf (Alle) setzen. Das Makro soll automatisch bis zum letzten Spalte mit Autofilter springen.
Sub AlleFilterEntfernen_BeiKlick()
End Sub
Sub alleFilterentfernen_Alle()
' blabla
For i = 1 To ActiveSheet.UsedRange.Columns.Count
Cells(4, i).Select
Selection.AutoFilter Field:=i
Next
End Sub
Vielen Dank für Euro Hilfe