Tellen van records ná autofilter

[PeddyB]

Hey allemaal,

Ik ben nog niet zo lang bezig met VBA en nu loop ik tegen een probleem op. Hier komt dus mijn eerste vraag. (Het zal zekere niet de laatste zijn )

Na de volgende filter wil ik graag p de waarde geven van het aantal records dat getoond wordt:

Selection.AutoFilter Field:=3, Criteria1:=ZoekDl, Operator:=xlAnd
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
p = ?????

Ik heb het geprobeerd met Record.Count maar dat lukt me niet

Hellluuup!!

Alvast bedankt voor de moeite

 

[Wigi]

Alstublieft.

http://www.contextures.com/xlautofilter03.html#Count

 

[Roncancio]

Wellicht kan Subtotaal wel wat voor je betekenen.

WorksheetFunction.Subtotal(103, Range("A2:A655356"))

In formule:

=SUBTOTAAL(103;A2:A65536)

Met vriendelijke groet,


Roncancio

 

[PeddyB]

Wigi, Je bent vanaf nu mijn HELD.... dank je voor de snelle reactie

Ronancio, jouw oplossing werkt ook... ook bedankt voor je snelle reactie

 

[Wigi]

Wigi, Je bent vanaf nu mijn HELD....

Jiehaa! That made my day