macro gebruiken om te filteren

[markdehaan]

Hallo,

Ik probeer om met een macro met een snelfilter te filteren op "bevat tekst"
Als ik dat opneem komt er dit uit:

ActiveSheet.Range("$A$1:$G$10078").AutoFilter Field:=3, Criteria1:= _
"=*test*", Operator:=xlAnd

Ik filter nu dus op "bevat"het woord test.

Maar nu wil ik niet dat hij op test gaat filteren maar op de inhoud van blad1 cel1a

Ik heb het al op heel wat manieren geprobeert, maar ik krijg het niet voor elkaar.
Zou iemand mij kunnen helpen?

Alvast bedankt!

 

[spaarie]

Beste Mark,
Probeer dit eens

Selection.AutoFilter field:=3, Criteria1:="=*" & Range("A1") & "*", Operator:=xlAnd

 

[markdehaan]

Het werk super
bedankt!

 

[snb]

Maar die

, Operator:=xlAnd

is volstrekt overbodig.

en de code is ambigu; mijn suggestie:

sheets("Blad1").columns(3).AutoFilter 1, "=*" & [Blad1!A1] & "*"