controle op filter selectie dmv macro

[RobertHak]

Hallo,

Ik heb de volgende vraag:

In een macro voor ik bepaalde handelingen uit. Dit doe ik in cellen die ik heb geselecteerd voor ik de macro start.
Soms doe ik dat ook als er een filter aan staat. Dit is geen probleem indien ik een een gesloten regels selecteer.
Wanneer ik per abuis een regel weg gefilterd heb dan wil ik een MSGbox melding

Wie kan mij helpen aan de code om dit te analyseren

Stel dat ik cel B:50 B:51 B:52 selecteer dan is het dus goed als regel B:51 is weg gefilterd dan wil ik een melding.

Een melding dat er een filter op staat gebruik ik nu, maar dat is niet afdoende omdat ik een filter juist wil gebruiken

Alvast bedankt voor de reacties

 

[ReneDirks]

Ik zou een functie in een module zetten:

Public Function IsRangeHiddenbySelection(r As Range) As Boolean
    IsRangeHiddenbySelection = r.Columns(1).SpecialCells(xlCellTypeVisible).Count <> r.Rows.Count
End Function

Deze roep je dan op met de geselecteerde range

if IsRangeHiddenbySelection(Selection) then
   '.... Rows are filtered
else
   '.... Rows are not filtered
endif

Het idee hierachter is dat als het filter effectief wat doet, het aantal zichtbare regels minder is dan het totaal aantal geselecteerde regels.