Autofilter ausschalten

Sprache / Programm: Excel ab Version 2000

Beschreibung

Schaltet den Autofilter in allen Tabellenblättern der aktiven Arbeitsmappe aus

VBA-Quelltext

Public Sub AutofilterAus()
Dim Tabelle As Excel.Worksheet, Nr As Integer, AF As AutoFilter

For Each Tabelle In ActiveWorkbook.Worksheets
Set AF = Tabelle.AutoFilter
If Not (AF Is Nothing) Then
For Nr = 1 To AF.Filters.Count
Tabelle.Range(AF.Range.Address).AutoFilter Nr
Next Nr
End If
Next Tabelle
End Sub

Argumente der Funktion/Prozedur

Rückgabewert

Keine