Zur Info für andere Suchende:
Zur Aufhebung von bestehenden Filtern in allen Tabellenblättern nutze ich nun das Folgende (als eigenes Makro; nicht in das andere integriert):
Public Sub AlleFilterAufheben()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.AutoFilterMode = True Then
ws.AutoFilterMode = False
End If
Next ws
End Sub
Grüße
|