Wie kann ich prüfen, ob der Autofilter eingeschaltet ist?
Wie kann ich die Spalten (evt. auch Zeilen) auslesen, bei welchen der Autofilter gesetzt ist.
vielen Dank für Eure sonntägliche Hilfe
Peppi
Sub filter_PE()
Dim s%, sTmp$
'On Error Resume Next
For s = 1 To 30
If Tab04.AutoFilter.Filters(s).On = 0 Then 'Bedingung ist wahr wenn kein Filter gesetzt ist
sTmp = sTmp & vbTab & Format(s, "00") & " nein" & vbLf
Else
sTmp = sTmp & Format(s, "00") & " ja" & vbLf
End If
Next s
MsgBox sTmp
End Sub
Danke für Eure Hilfe