Datumformat vanuit InputBox

[rickb1977]

Op basis van onderstaande code wordt de datum in cel B1 toch weergegeven als "m/d/yyyy"
Hoe zou ik dit kunnen oplossen?


Range("B1") = InputBox("voer peildatum in:")
Cells(4, 1).CurrentRegion.AutoFilter 5, "=", xlOr, ">" & Format([b1], "dd/mm/yyyy")


Alvast bedankt voor jullie antwoorden,

Eric

 

[VenA]

Probeer het zo eens

Range("B1") = CDate(InputBox("voer peildatum in:"))

 

[HSV]

Of zonder B1.

Cells(4, 1).CurrentRegion.AutoFilter 5, ">=" & CLng(CDate(InputBox("voer peildatum in:"))), 1, "<=" & CLng(Date)

 

[rickb1977]

Bedankt voor jullie antwoorden.

@ VenA: de datum wordt nu goed weergegeven. Alleen lijkt het filteren niet goed te gaan. Er komen nu ook datums naar voren die voor de genoemde peildatum liggen. Ik filter op peildatum 1-9-2016 en er komt bijvoorbeeld een datum 2-7-2016 naar voren.

@HSV: er wordt dan geen peildatum weergegeven in B1. Verder is de selectie dan volledig leeg dus met het filteren gaat er dan iets niet goed.

 

[VenA]

Dit was toch al opgelost in jouw vorige vraag?

Format([b1], "mm/dd/yyyy")

in het filter gedeelte.

 

[rickb1977]

Dat klopt inderdaad maar op dit moment werkt het niet en zie niet wat er misgaat.

Op basis van deze code zouden toch alle datums zichtbaar moeten worden 'groter of gelijk aan' de peildatum in B1?

Cells(4, 1).CurrentRegion.AutoFilter 5, "=", xlOr, ">" & Format([b1], "dd/mm/yyyy")

 

[VenA]

Bekijk de code in #5 nog eens! Je blijft in het filter gedeelte dd/mm gebruiken en dit moet mm/dd zijn.

 

[HSV]

Als je per se vanuit B1 wilt filteren.

[b1] = CDate(InputBox("voer peildatum in:"))
Cells(4, 1).CurrentRegion.AutoFilter 5, ">=" & CLng([b1]), 1, "<=" & CLng(Date)

En dan mag dit stukje er ook nog af als je wilt.

, 1, "<=" & CLng(Date)

Ps. bestand maar even bijgevoegd zodat je kan zien dat het wel daadwerkelijk filtert.

 

[rickb1977]

Bedankt, hier kan ik weer mee vooruit. Ik blijf leren op deze manier!