wie kann ich abfragen, dass min. einer der Filter auf einem WKS selektiert ist?
Ich suche nicht nach der Abfrage, ob beim Blatt der Auto-Filter grundsätzlich eingeschaltet ist, dass findet man überall.
Gruß Eddie
Prüfen ob eine Spalte gefiltert
Sub checkFilter()
Dim objFilter As Filter
With ActiveSheet
If .AutoFilterMode Then
For Each objFilter In .AutoFilter.Filters
If objFilter.On Then
MsgBox "Filter ist an!"
Exit For
End If
Next
End If
End With
End Sub
Sepp
FilterAktiv=False
On Error Goto Weiter
Sheets("MeinBlatt").ShowAllData 'Hier Name deines Blattes
FilterAktiv=True
Weiter:
......