Waardes in range gebruiken in filter

[japdonk]

Goedemiddag,

Ik ben op zoek naar een oplossing om de waardes die ik een aantal cellen heb staan, te gebruiken in een filter.

Heel simpel gezegd:
Ik heb in cel A1: 100, A2: 200 en A3: 300 staan. Dan wil ik dat in de filter gezocht wordt naar 100, 200 en 300.
Echter zullen de waardes in deze 3 cellen steeds anders zijn.

stukje code:

ActiveSheet.Range("$A:$T").AutoFilter Field:=2, Criteria1:=  "" ' <- hier moeten uiteindelijk de waardes van cel A1, A2 en A3 komen.

Ik heb al wat dingen geprobeert met strings, arrays etc. Maar ben hier nog niet zo handig in.

Japdonk

 

[HSV]

Bv.

cells(1).currentregion.autofilter 2, array([a1].text,[a2].text,[a3].text), 7

 

[japdonk]

Hoi,

De uiteindelijke range is groter, A1,A2 en A3 was als voorbeeld.
De range zal fluctueren.

Het gaat mij erom dat ik de waardes in een range op kan roepen in een filter.

Om de range te selecteren gebruik ik normaal gesproken deze code:

Range("A6", Range("A65536").End(xlUp))

Dit kunnen 10 waardes zijn, maar ook 100.

Japdonk

 

[HSV]

Dat heb je met slechte voorbeelden.

cells(1).currentregion.autofilter 2,filter(application.transpose([if(a6:a10000="","~",a6:a10000)]), "~",false),7

 

[japdonk]

Het is niet mogelijk om de range in een string "op te slaan" en op te roepen wanneer ik de filter gebruik?

 

[HSV]

Cells(1).CurrentRegion.AutoFilter 2, Filter(Application.Transpose([if(rng="","~",rng)]), "~", False), 7

gedefinieerde naam: rng
formule daarvoor:

=VERSCHUIVING(Blad2!$A$1;0;0;AANTALARG(Blad2!$A$1:$A$1000);1)

 

[japdonk]

Top, dit zocht ik, hier had ik zelf ook op kunnen komen!
Bedankt HSV!