Filter aufheben #Excel/VBA

Filter entfernen

In Excel wird bei der Auswertung von Fußballstatistiken oft auf gefilterte Daten zugegriffen. Mit folgenden Makro (VBA) werden alle angewandten Filter entfernt.

Sub alle_Filter_aus()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.FilterMode Then
ws.ShowAllData
End If
Next ws
End Sub

Mit folgenden Makro wird nur im angegebenen Arbeitsblatt der Filter entfernt.

Sub Spiele_Filter_aus()
With ThisWorkbook.Worksheets("Spiele")
    If .FilterMode Then .ShowAllData
End With
End Sub