Jokerteken gebruikken

[ExcelAmateur]

Hallo helpers,

Ik zit met een klein probleempje.
Als ik via een macro op 2011 filter en er staan alleen jaren in die kolom is dit geen probleem.
Als er in de kolom b.v.b. 5-5-2011 staan dan lukt het met de filter opdracht 2011.

Ik dacht om jokertekens te gebruiken maar hoe doe je dit?
Heb het geprobeerd met,

A = "*.*/*.*/" & Jr

maar dat lukt dus niet.

Dus de vraag is hoe gebruik je hier jokertekens zodat hij dan wel op 2011 filtert?

Alvast hartelijk bedankt.

 

[Cobbe]

Misschien met criteria1 = > dan en criteria = < dan ?

 

[ExcelAmateur]

Cobbe,

Bedankt voor uw reactie maar uw voorstel werkt niet.
Ik doe mijn test bestandje erbij.
Via een InputBox komt de vraag welk jaar.

Of zou dit niet mogenlijk zijn, zo te werken?

 

[Cobbe]

Deze werkt wel:

Range("A1:A250").AutoFilter Field:=1, Criteria1:=">=40909", Operator:=xlAnd, _
        Criteria2:="<=41274"

Nu moet je nog die waardes aanpassen aan de jaartallen, kan met vert.zoeken.

 

[ExcelAmateur]

Cobbe,

Bedankt, dit werkt inderdaad.

Ik ga nu kijken om het aan te passen en als het lukt zet ik de vraag als opgelost.

Hartelijk bedankt.

 

[wampier]

Als je toch al VBA gebruikt waarom niet gewoon de interne functies gebruiken om jaar in basedate om te zetten? lijkt me eenvoudiger dan in de basis excel

 

[ExcelAmateur]

wampier,

Bedankt voor uw antwoord maar

om jaar in basedate om te zetten

Hoe doe ik dit?

Ik dacht via een InputBox het jaar invoeren en klaar is Kees. (dus niet)
Moet zo weg dus vanmiddag heb ik geen tijd hier voor, kijk vanavond wel weer.

 

[wampier]

De gebruikte getallen van Cobbe zijn in 1900-base date. Het aantal dagen sinds 1900. 40544 = 1/1/2011

voorbeeld om de input te krijgen vanuit een inputbox in cobbe's oplossing:

begindatum = datevalue("1-1-"& inputbox("jaartal"))
einddatum = dateadd("yyyy", 1, begindatum)
msgbox("criteria 1: >=" & CDbl(begindatum)
msgbox("criteria 2: <" & CDbl(einddatum )

 

[ExcelAmateur]

wampier,

Het is me eindelijk gelukt, met het stukje code dat je plaatste.
Zo heb ik het verwerkt.

Range("A1:A250").AutoFilter Field:=1, Criteria1:=">=" & BeginDatum, Operator:=xlAnd, _
        Criteria2:="<" & EindDatum

Beide hartelijk bedankt.