Filteren op inhoud cel

[tThye]

Beste mensen,

Waarschijnlijk een relatief simpele vraag, maar ik kom er niet uit.

Ik heb een Excel blad met daarin een automatische filter over meerdere kolommen. Wanneer ik in een bepaalde kolom op zoek ben naar een specifieke waarde voer ik via aangepaste filter de zoekwaarde in.

VBA geeft dit weer middels:

Criteria1:="=*test*"

Graag zou ik de 'harde' waarde, in dit geval test, vervangen door de inhoud van bijvoorbeeld de door mij ingetypte tekst in cel A1. Ik heb al geprobeerd om Range("A1").Value toe te voegen, maar dit werkt niet. Hoe moet ik de code aanpassen?

Alvast bedankt.

Groeten, Mark

Volledige code:

ActiveSheet.Range("$H$2:$H$6").AutoFilter Field:=1, Criteria1:="=*test*", Operator:=xlAnd

 

[Haije]

tThye,

wellicht zo:

kriterium = "*" & [a1] & "*"
ActiveSheet.Range("$H$2:$H$6").AutoFilter Field:=1, Criteria1:=kriterium, Operator:=xlAnd

 

[tThye]

Werkt perfect. Ik ga hem nu alleen nog even automatiseren, maar dat gaat wel lukken!

Bedankt voor de hulp.

Groeten, Mark