[VBA]macro's in Excel, Autofilter en criteria

[Schway]

Goedendag. ik probeer een zoekfunctie in excel te maken. Dit zodat de leken op mijn werk niet met filters hoeven om te gaan.

code:

ActiveSheet.Range("$A$7").AutoFilter Field:=2, Criteria1:=Range("B2")

Dit werkt alleen exact of met wildcards. En ik wil graag dat het niet compleet hoeft te zijn. Nu weet ik dat als er "Piet*" in B2 wordt getypt iedere Piet naar boven komt. maar gewoon Piet, helemaal niets, Nu wilde ik de * in de macro zelf plaatsen maar de volgende codes geven foutmeldingen. welke obscuur karakter zie ik over het hoofd?

code:

Criteria1:=*Range("B2")*
Criteria1:="*"Range("B2")"*"

[RobIII]

Waar hoort mijn topic?
PRG >> OFF

[ Voor 37% gewijzigd door RobIII op 12-09-2012 14:34 ]

[LiquidT_NL]

Ampersand, daarmee koppel je strings! en gebruik quotes om tekens als strings te plaatsen. Dus:

code:

Criteria1:="*" & Range("B2") & "*"

[ Voor 5% gewijzigd door LiquidT_NL op 12-09-2012 15:27 ]

[Schway]

Top, dat was em, Dankjewel.