Autofilter met 2 criteria variabel vullen mbv VBA

[toverkamp]

Hallo,

Ik heb een autofilter op een aantal kolommen staan. Kolom 5 wil ik filteren op alle waarden die leeg zijn of alle waarden die de waarde van cel W2 bevatten.
Ik heb daarvoor de volgende VBA code gebouwd, maar deze krijg ik niet aan de praat:

Selection.AutoFilter Field:=5, Criteria1:="=", Operator:=xlOr, Criteria2 _
        :="=* & Range("W2")

Wie kan mij helpen?

 

[ReneDirks]

Neem aan dat dat * een typefoutje is. Waarschijnlijk komt het door je Criteria1

Selection.AutoFilter Field:=5, Criteria1:="=''", Operator:=xlOr, Criteria2:="=" & Range("W2")

 

[toverkamp]

Neem aan dat dat * een typefoutje is. Waarschijnlijk komt het door je Criteria1

Selection.AutoFilter Field:=5, Criteria1:="=''", Operator:=xlOr, Criteria2:="=" & Range("W2")

Beste Rene,

Bedankt voor je reactie. Het * was geen typefout, want ik wilde de selectiecriteria "bevat" gebruiken en dat moest (dacht ik) met een *.
Selectiecriteria 1 moet zijn: "is gelijk aan" niks
Selectiecriteria 2 moet zijn: "bevat" de waarde in cel W2

 

[toverkamp]

Ik heb nu de volgende formule:

Selection.AutoFilter Field:=5, Criteria1:="=", Operator:=xlOr, Criteria2:="=* & Range(W2) * "

Echter krijg ik dan niet de juiste uitkomst. Deze macro zet als waarde "Range(W2)" neer, terwijl dit de waarde in cel W2 moet zijn:


Wie kan mij helpen?

 

[ReneDirks]

De reden dat daar Range(W2) staat is omdat je dat er zo letterlijk neerzet. Je moet de code aanpassen naar:

Selection.AutoFilter Field:=5, Criteria1:="=", Operator:=xlOr, Criteria2:="=*" & Range(W2) & "*"

 

[toverkamp]

De reden dat daar Range(W2) staat is omdat je dat er zo letterlijk neerzet. Je moet de code aanpassen naar:

Selection.AutoFilter Field:=5, Criteria1:="=", Operator:=xlOr, Criteria2:="=*" & Range(W2) & "*"

Bij deze code krijg ik een foutmelding "Fout 1004 tijdens uitvoering: Methode Range van object_Worksheet is mislukt".

 

[ReneDirks]

Range("W2")

 

[toverkamp]

Range("W2")

Top, het werkt!
Bedankt!