Wegschrijven datum op juiste notatie wijze amerikaans versus europees

[aris85]

Hi allen,

Dit is mijn macro werkt goed alleen 1-11-1985 veranderd in 11-1-1985. Dat wil ik dus niet.... Hoe zorg ik ervoor dat iemand die een datum invoert in een veld ook weer juist weergegeven wordt? Ik controleer al wel of het echt een datum is en vervolgens wil ik die dus wegschrijven.

If Not IsDate(datum.Value) Then
    MsgBox "Datum niet juist ingevoerd. DD-MM-JJJJ", vbExclamation, "Staff Expenses"
    datum.SetFocus
    Exit Sub
End If


Cells(emptyrow, 3).Value = datum.Value

 

[HSV]

Lukt het hiermee?

Cells(emptyrow, 3).Value = datevalue(datum)

 

[HSV]

Communiceren is ook een kunst.
Het lijkt tegenwoordig wel een rage om gemakkelijk de vraag zonder te reageren als opgelost te zetten.

 

[aris85]

Sorry ik had niet gedacht dat dat negativiteit met zich zou meebrengen. Ik heb het zelf opgelost met Cdate(datum). Vandaar dat ik de vraag op opgelost zette. In ieder geval bedankt voor je reactie!

 

[HSV]

Ik heb het zelf opgelost met Cdate(datum)

Kijk, en daar heeft iemand anders weer wat aan als het de zoekfunctie gebruikt.
Alleen als opgelost zetten niet.