Schakelen filter aan/uit

[Plotinus]

Ik heb het volgende filter:

Sub Datumfilter()
  
    FormatDate = Format(Date, "mm/dd/yyyy")
        Selection.AutoFilter
        ActiveSheet.Range("$A$1:$N$4019").AutoFilter Field:=2, Operator:= _
            xlFilterValues, Criteria2:=Array(2, FormatDate)
End Sub

Ik heb hierbij nog twee wensen waar ik niet uitkom:
1 Ik wil het filter graag dubbel laten werken: als ik de makro aanroep moet gecontroleerd worden of er al een of meerdere filters actief zijn, zo ja, dan moeten die allemaal af worden gezet. Als er geen filters actief zijn dan moet bovenstaande filter worden toegepast (en nog enkele niet genoemde andere filters).
2 Omdat de dataset in omvang sterk varieert wil ik niet vastzitten aan N4019, zoals nu, maar het totaal aantal rijen meenemen in de filter.

Iemand een idee hoe ik beide wensen realiseer? Ik werk nog met Office 2007

 

[HSV]

bv.

if activesheet.filtermode then activesheet.autofiltermode =false
cells(1).currentregion.autofilter Field:=2, Operator:= _            xlFilterValues, Criteria2:=Array(2, FormatDate)

 

[VenA]

Volgens mij kan dit stukje weg

if activesheet.filtermode then

 

[HSV]

Dat kan er inderdaad uit.

 

[Plotinus]

Het werkt; bedankt!