ist es möglich, in einem Makro zu erkennen, ob ein Autofilter in der Mappe aktiviert ist? Und wenn ja, diesen bzw. alle Autofilter zu deaktivieren?
Danke
Daniel
Sub test()
If ActiveSheet.AutoFilterMode Then MsgBox "hier wird gefiltert"
End Sub
Sub Autofiltertest()
If ActiveSheet.AutoFilterMode = True Then
MsgBox "Autofilter an"
Selection.AutoFilter
MsgBox "Nun ist der Filter aus"
End If
End Sub
Public sCurrFilterRange As String
Public Sub AutoFilterFlipFlop()
If sCurrFilterRange = "" And ActiveSheet.AutoFilterMode Then
sCurrFilterRange = ActiveSheet.AutoFilter.Range.Address
ActiveSheet.AutoFilterMode = False
Else
If Not (sCurrFilterRange = "") Then
ActiveSheet.Range(sCurrFilterRange).AutoFilter
sCurrFilterRange = ""
End If
End If
End Sub