Datum via inputbox Amerikaans format i.p.v. NL

[Henk Schepers]

Kan iemand mij vertellen hoe het komt dat als ik een datum via een inputbox in een cel invoer deze in het Amerikaanse format in de cel komt. De systeem datum is Nederlands format. Als ik de datum met de hand invoer is het ook Nederlands.
ik kan de datum ook geen NL format meer geven na invoer via inputbox.

 

[Warme bakkertje]

als ik dit doe

Sub tst()
    [A1].Value = InputBox("Datum")
End Sub

wordt mijn datum toch gewoon weggezet.
Voeg anders eens een voorbeeldbestandje toe

 

[Henk Schepers]

Hallo Warme bakkertje
Ik kan dat moeilijk doen omdat het bij mijn eigen computer wel goed werkt. Alleen op de computer waar het uiteindelijk moet gaan werken gaat het fout. Ik vermoed dat het een instelling is. ik heb al gekeken bij configuratiescherm> landinstellingen, maar daar staat het goed ingesteld. Ook als je de datum direct in de cel typed gaat het goed. Alleen via de inputbox op die andere computer geeft hij het Amerikaanse format.
Ik heb voor mijzelf de inputbox eerder gebruikt en toen was het ook geen probleem.

 

[AlexV]

Hoi Henk,

En als je het format mee geeft, lukt het dan?

Cells(1, 1).Value = Format(InputBox("Zeg iets"), "DD/MM/YYYY")

Als niet, kun je ook nog ' voor de datum zetten

Cells(1, 1).Value = "'" & Format(InputBox("Zeg iets"), "DD/MM/YYYY")

Gr,
Alex,