datum dd/mm/jj IPV mm/dd/jj

[Drdrum1969]

Via een userform wil ik een soms afwijkende datum in laten voeren in plaats van de huidige datum via de functie Date te gebruiken.
Deze in gevoerde datum wordt weggeschreven als mm/dd/jj in plaats van het gewenste dd/mm/jj.
terwijl de huidige datum weggeschreven wordt als het gewenste dd/mm/jj.

Hoe kan ik ervoor zorgen dat de ingevoerde afwijkende datum ook weggeschreven wordt als dd/mm/jj.
het aanpassen van de celeigenschap is geen optie omdat beide dagen afwisselend in de zelfde cell weggeschreven moeten worden.
omzetten met DateValue geeft error

Bijgevoegd het probleemBekijk bijlage datum.xlsm

Alvast dank

 

[tkint]

Beste,

Ik heb iets gewijzigd in jouw code en de celeigenschap van A1 op tekst ingesteld. Jouw code kan ook iets korter.

Private Sub CommandButton1_Click()
Range("A1").Value = Format(TextBox1.Value, "dd/mm/yy")
Range("A2").Value = Date
Unload Me
End Sub

 

[OctaFish]

Of zo:

Private Sub CommandButton1_Click()
    ActiveCell.Value = CDate(TextBox1.Value)
    Range("A2").Value = Date
    Unload Me
End Sub