Gebruik van Auto-filter

[Stone52]

Forummers,

Ik heb een werkblad met daarop veel rijen. Op dit werkblad heb ik een "Sub Worksheet_Change(ByVal Target As Range)" gedefinieerd. Deze Sub zorgt er o.a. voor dat de ranges van ActiveWorkbook.Names-definities worden aangepast als er een rij wordt toegevoegd of verwijderd.

Als ik nu via autofilter een deel van het totaal aantal rijen (bv 100 stuks) te zien krijg (bv 20 stuks) en ik wijzig enkele waarden uit deze seie van 20 stuks dan worden de ActiveWorkbook.Names-definities aangepast naar het aantal dat ik te zien krijg via het autofilter.

Ik ben daarom op zoek naar een manier om, mbv VBA, een actie te starten als het autofilter is gebruikt resp. als het autofilter wordt afgezet of aangezet. Hoe kan ik dat bereiken ?

 

[Jan van Asseldonk]

met deze code kun je controleren of autofilter aan of uit staat.

Sub filter()
If Worksheets("Blad1").AutoFilterMode = True Then
    MsgBox ("Filters aan")
End If

If Worksheets("Blad1").AutoFilterMode = falsee Then
    MsgBox ("Filters uit")
End If

Kijk in de help van vba voor meer mogelijkheden.

 

[Stone52]

Jan,

Dank je voor de reactie. Ik ga ermee aan de slag.