Autofilter array

[Jouke89]

Goedemiddag,

Ik heb de volgende code:

 ActiveSheet.ListObjects("Tabel_Query_van_XO_Bedrijf11").Range.AutoFilter Field _
        :=3, Criteria1:=Array("0", "1", "2", "3", "4", "5", "6"), Operator:= _
        xlFilterValues

Zoals je ziet staat er bij Array 0, 1 2 3 4 enz


Dit wil ik vervangen door de waardes die in ("Blad2").range("K1:K12") staan. LET OP, daar kunnen ook lege cellen tussen staan.

zie bijlage. (zonder VBA code overigens)

Ik hoop dat iemand mij kan helpen!

Groeten
Jouke

 

[Warme bakkertje]

Wel origineel, een compleet leeg bestand posten als voorbeeldbestand

 

[HSV]

Toch een poging zonder voorbeeld.

Sub hsv()
ActiveSheet.ListObjects("Tabel_Query_van_XO_Bedrijf11").Range.AutoFilter 3, _
filter(application.transpose([if(blad2!k1:k12="","~",blad2!k1:k12)]), "~", false), xlFilterValues
End Sub

 

[Jouke89]

Goedemorgen,

@ HSV
Dat is 'm!
In 1 keer, en het werkt als een trein.
Geweldig bedankt!

Groet
Jouke