Autofilter in combinatie met SelectionChange vba

[Harry Veen]

Is het mogelijk om met behulp van het autofilter (autofiltermodus true/false) een bepaalde event op te roepen? Ik heb geen idee hoe ik dan het autofilter moet aanspreken.

Stel voor in rij 3 staan mij labels en het filter is op deze rij geplaatst. Als het filter wordt geactiveerd, dan wil ik graag de waarde 0 in cel A1 krijgen.

 

[Joske2000]

Hi Harry,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Worksheets("Blad1").FilterMode = True Then
        Cells(1, 1).Value = 0
    Else
        Cells(1, 1).Value = ""
    End If
End Sub

Joske

 

[HSV]

Stel: Onderaan de filter staat een 'Subtotaalformule'.
Onderstaande code reageert direct na gebruik van de filter i.p.v. na de filter nog een 'selectionchange'.

Private Sub Worksheet_Calculate()
 Cells(1) = IIf(AutoFilter.FilterMode, 0, "")
End Sub