Autofilter op basis van jaartallen

[Zwanske]

Met een opgenomen macro bekom ik:

Selection.AutoFilter Field:=4, Criteria1:=">=1/01/1952", Operator:=xlAnd _
, Criteria2:="<=31/12/1952"

Wanneer ik deze regel copieer in een reeds werkend selectieprogje wordt niets meer geselecteerd. Ik vermoed dat het iets te maken heeft met de datumwaarde, maar raak er niet uit.

 

[Wigi]

Probeer het zo eens:

Selection.AutoFilter Field:=4, Criteria1:=">=18994", Operator:=xlAnd _
, Criteria2:="<=19359"

 

[Zwanske]

Probeer het zo eens:

Selection.AutoFilter Field:=4, Criteria1:=">=18994", Operator:=xlAnd _
, Criteria2:="<=19359"

Kan je me nu ook nog vertellen hoe ik een datum omzet naar de datumwaarde: #01/01/1952# = 18994

 

[Wigi]

Typ dat in een cel, rechtermuisklik op de cel, dan Celeigenschappen, en klik op Standaard.

 

[Zwanske]

Typ dat in een cel, rechtermuisklik op de cel, dan Celeigenschappen, en klik op Standaard.

Het is wel de bedoeling om dat in het progje te doen.
Ik wil op basis van een jaartal in een cel een filter toepassen op een kolom met datums.

Iets in de zin van (A2 is 1952):

Selection.AutoFilter Field:=4, Criteria1:=">=" & 1/1/" & Range("d2"), Operator:=xlAnd, Criteria2:="<=" & 1/1/" & Range("d2")

Ik zoek dus de formule of funtie om 1/1/" & Range("d2") om te zetten naar een getal

 

[Wigi]

CLng(DateSerial(Range("d2").Value, 1, 1))

 

[snb]

Weet je wel wat selection betekent ?

 

[Zwanske]

CLng(DateSerial(Range("d2").Value, 1, 1))

Is gelukt. Bedankt