Datumnotatie

[Minkoeze]

Hallo,

Via een macro wil ik een automatische filter maken dat filtert op alles dat na de datum van vandaag komt.

Nu krijg ik het filter wel gevuld, maar dat datum wordt andersom neergezet.

De datum van vandaag 10-12-2008 wordt als 12-10-2008 in het filter gezet.

Kan iemand mij vertellen hoe ik dit op kan lossen?

 

[snb]

Maak je gebruik van Format (date,"dd-mm-yyyy") ?
Zet je code eens hier neer, praat makkelijker.

 

[Minkoeze]

Maak je gebruik van Format (date,"dd-mm-yyyy") ?
Zet je code eens hier neer, praat makkelijker.

Komt ie:

Dim Datum As Date

Datum = Date

Selection.AutoFilter Field:=4, Criteria1:=">" & Datum, Operator:=xlAnd
Range("A1").Select

 

[Warme bakkertje]

Zoals snb al aangaf

Datum= Format(Date,"dd-mm-yyyy")

Mvg

Rudi

 

[Minkoeze]

Zoals snb al aangaf

Datum= Format(Date,"dd-mm-yyyy")

Mvg

Rudi

Hey top het werkt,

zo simpel maar toch zo doeltreffend ;-)

 

[Warme bakkertje]

Dan mag de vraag nog even op opgelost (rechts onderaan de pagina)

Mvg

Rudi