Array van zichtbare cellen

[AatB]

Hallo,

Aangezien ik voor het maken van een dashboard nogal wat regels (> 200.000) door moet lopen in een worksheet wil ik dit gaan doen met een array.
De eerste tests zijn hoopvol, echter als ik dmv een autofilterregels verberg welke ik dan niet in de array op wil nemen, lukt dat echter niet.
De hele range wordt toch in de array gezet.

Weten jullie een snelle oplossing, zonder dat ik de hele sheet regel voor regel moet doorlopen?

Sub TestArray()

    Dim xArray() As Variant
    Dim Rng As Range

    Set Rng = Range("A1").CurrentRegion
    
    'Dit gaat prima
    xArray = Rng

    'Dit werkt helaas niet
    xArray = Rng.SpecialCells(xlVisible).Cells

End Sub

 

[edmoor]

Maak er eens dit van:

Sub TestArray()
    Dim Rng() As Variant
    Rng = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Cells
End Sub

 

[AatB]

Helaas werkt dat niet.
De array wordt opgebouwd tot aan de eerste verborgen Cell.

 

[AatB]

De volgende oplossing is wat omslachtig, maar werkt...

Sub TestArray()

    Dim xArray() As Variant
    
    Dim Rng1 As Range
    Dim Rng2 As Range
    
    Dim wsd As Worksheet
    Dim wsk As Worksheet
    
    Set wsd = Worksheets("DataOrg")
    Set wsk = Worksheets("Data")
    
    On Error Resume Next
    wsd.ShowAllData
    On Error GoTo 0
    
    'set filter in wsd
    wsd.Range("maand").Offset(1, 0) = 12
    wsd.Range("A10").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, _
                    CriteriaRange:=wsd.Range("A1").CurrentRegion, Unique:=False11

    Set Rng1 = wsd.Range("A10").CurrentRegion.SpecialCells(xlVisible).Cells
    
    wsk.Cells.Delete
    Rng1.Copy Destination:=wsk.Range("A1")
    
    Set Rng2 = wsk.Range("A1").CurrentRegion
    xArray = Rng2

    For i = LBound(xArray) To UBound(xArray)
        'data verder verwerken
        
    Next

End Sub