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 HilfeDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen