Selectie criteria afhankelijk maken van input

[grema]

In volgende code zou ik graag de Criteria afhankelijk willen maken :
dwz ik heb nu een lijst waarbij de criteria in steeds verschillend zijn; beginnende bij
A10 --tot A1D
dit gaat tot ZZ25

Cells.Select
    Selection.AutoFilter
    Range("A1").Select
    Selection.AutoFilter Field:=5, Criteria1:="=[COLOR="RoyalBlue"]d1a[/COLOR]*", Operator:=xlAnd
    Rows("1:1").Select

Nu moet ik telkens in de prog deze criteria aanpassen;
zoek er nu al even op en heb het al via MsgBOX geprobeert en via selectielijst maar geraak
er niet uit.

ziet er iemand een oplossing

graag je reactie ; alvast dank
grema

 

[otmar]

bijvoorbeeld voor het filteren op de datum van vandaag:

Dim datum As Date
datum = Format(Now(), "d-m-yyyy")
Selection.AutoFilter field:=1, Criteria1:=datum

of op een variabele invoer dmv inputbox

Dim selectie As String
selectie = InputBox("geef waarde in")
Selection.AutoFilter Field:=1, Criteria1:=selectie

 

[grema]

Yes !!
alweer opgelost. Waarvoor dank

groetjes

grema