autofilter meerdere criteria

[dopoog]

Hoi,

Onderstaande formule werkt prima. Maar hoe zorg ik ervoor dat ook een asterisk erin werkt?

ActiveSheet.Range("$A$1:$A$12").AutoFilter Field:=1, Criteria1:=Array( "value1", "value2", "ietsanders")

Ik wil in feite het volgende; maar dit werkt niet:

ActiveSheet.Range("$A$1:$A$12").AutoFilter Field:=1, Criteria1:=Array( "value*", "bana*", "ietsanders")

het werkt niet omdat er zowel een * in staat als onder asterisk...

 

[OctaFish]

Ik krijg het filter wel aan de praat, maar alleen met 2 parameters.

ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=2, Criteria1:=Array("ba*", "ro*"), Operator:=xlFilterValues

Wellicht ligt daar je probleem.

 

[dopoog]

Ja klopt, met 2 werkt het wel.
Maar ik wil juist met 3 of meer. Zonder wildcard (*) werkt dit wel, zelfs met 100. Maar met Wildcard moet het toch ook lukken??..

 

[OctaFish]

Blijkbaar niet . Bel Bill...

 

[OctaFish]

Overigens kan het weer wél als je een Advanced filter gebruikt:

Range("Tabel1[#All]").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("Blad2").Range("B1:B5"), Unique:=True

 

[dopoog]

Opgelost, dankjewel!! Heb nu tabblad 'verborgen'. En daar 2 rijen aangemaakt met 15-tal criteria!