[EXCEL][VBA] rowcount autofilter

[Vinzzz243]

Wanneer ik een autofilter toepas op een worksheet en ik bv rij 430 t/m 3000 te zien krijg, is mn SpecialCells(xlCellTypeLastCell) nog altijd 3000 ipv 3000-430.

Hoe kan ik het juiste aantal krijgen (zonder te moeten loopen)?

[BtM909]

Volgens mij is het aantal niet te achterhalen zonder te loopen. Dacht zelf aan een soortgelijke constructie:

Visual Basic:

' LET OP: VB gekozen vanwege kleurcodering
Range("A1").Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Select

MsgBox Selection.Count

[Vinzzz243]

die levert weer dat te hoge getal op.

Ik heb nu

Visual Basic:

    Set UpperLeftCorner = sourcesh.Range("a2")
    rowcount = -1
    For Each area In _
        UpperLeftCorner.CurrentRegion.SpecialCells(xlVisible).Areas
        rowcount = rowcount + area.Rows.Count
    Next
    MsgBox "rowcount: " & rowcount

maar vraag me af of het niet 'beter' kan