Datum notatie

[xamirz]

Halllo allemaal,

ik heb een User.Form waar je zelf datum in kan zetten. Zodra je in de userform op opslaan klikt moet dezelfde datum in cell a3 weergegeven worden. Dit gaat op zich goed alleen in cell a3 komt de datum met de Amerikaanse notatie. Het moet natuurlijk in de Europees notatie zijn.

Ik heb het volgende geprobeerd.

Range("A3").Value = DateSerial (Year(date), Month(Date), Day(Date))
Range("A3").NumberFormat = "dd/mm/yyyy"

Ik krijg in cell A3 alleen de datum van vandaag en niet de ingevoerde datum.

Hoe los ik dit op?

 

[edmoor]

Zet in de Windows Internationale instellingen je land instelling op Nederland.

 

[xamirz]

Dit was/is al zo

 

[edmoor]

Plaats dan eens je document met die userform.

 

[pasan]

als je cel format aanpast naar dd/mm/yyyy is dit volgens mij voldoende

If IsDate(TextBox1.Value) Then [A3] = DateValue(TextBox1)

 

[xamirz]

Met excel en cel eigenschappen lukt het trouwens niet. ik weet niet of de code t zelfde doet of niet maar ik ga dit zeker proberen.

 

[pasan]

als de notatie niet klopt pas je deze aan met de cel eigenschappen

 

[huijb]

@xamirz De quoteknop is geen reageerknop. M.a.w. Als je direct op een bericht reageert is het niet gewenst om dat bericht te quoten.