Arbeitsmappe prüfen, ob Autofilter aktiv ist
02.11.2016 15:33:33
Rico
Zunächst einmal vielen Dank an alle, die hier so fleißig sind und Hilfestellung geben!
Bestimmt gibt es für meine Frage auch eine Lösung. Ich suche nach einer Möglichkeit, eine Arbeitsmappe darauf zu prüfen, ob in einen der enthaltenen Tabellenblätter ein Autofilter aktiv ist oder nicht.
Wie man in einem Tabellenblatt nach einem aktiven Autofilter sucht, habe ich dank des Forums herausgefunden:
Sub Autofliter_Prüfen()
Dim i As Integer
Dim Wks As Worksheet
Set Wks = Worksheets("Tabelle1")
If Wks.AutoFilterMode = True Then
For i = 1 To Wks.AutoFilter.Filters.Count
If Wks.AutoFilter.Filters(i).On Then
MsgBox ("Autofilter aktiv")
End If
Next i
End If
End Sub
Hat jemand einen hilfreichen Tipp für mich, egal ob mit oder ohne Krönung?
Ich bedanke mich im Voraus!
Rico