Datum verspringt naar mm-dd-jjjj ipv dd-mm-jjjj bij een dag kleiner dan 13

[cissie1]

Hallo,

Bij het maken van een formulier wil ik graag dat mensen de datum met de tijd invullen.
Ik vind het wel mooi als dat met behulp van een kalendertje ingevuld kan worden, alleen kan ik dan niet meteen de tijd ook in laten voeren.
Nu heb ik dus twee gesturingselementen, één voor de datum en één voor de tijd.
Indien iemand een datum groter dan dag 12 invoert en de tijd invoert is er geen probleem en krijg ik in cel P1 precies wat ik wil. Maar als de dag kleiner dan 12 is en de tijd is ingevoerd, geeft hij de dag als maand weer en de maand als dag. Weet iemand hoe ik dit kan oplossen?

Ik hoop dat jullie mij (weer) kunnen helpen.

Hier is het onderdeel van mijn bestand:
http://www.mijnbestand.nl/Bestand-6KOWUZF3X4X4.xlsm

Groeten,
Cissie

 

[Cobbe]

Kijk eens of het met deze aanpassing wel lukt:

Private Sub cmdOkee_Click()
    ActiveWorkbook.Sheets("STAP 1").Activate
    Range("P1") = DateValue(DTPicker1) & " " & txtTijdOphalen.Value
    Range("P2") = DateValue(txtDatumTerug) & " " & txtTijdTerug.Value
  Unload Me
End Sub

 

[cissie1]

Kijk eens of het met deze aanpassing wel lukt:

Private Sub cmdOkee_Click()
    ActiveWorkbook.Sheets("STAP 1").Activate
    Range("P1") = DateValue(DTPicker1) & " " & txtTijdOphalen.Value
    Range("P2") = DateValue(txtDatumTerug) & " " & txtTijdTerug.Value
  Unload Me
End Sub

Nee, helaas heb ik hierbij nog steeds hetzelfde probleem.

 

[ExcelAmateur]

cissie1,

Zou het zo wel werken?

Private Sub cmdOkee_Click()
    ActiveWorkbook.Sheets("STAP 1").Activate
    NumberFormat = "dd-mm-yyyy"
    Range("P1") = DateValue(DTPicker1) & " " & txtTijdOphalen.Value
    Range("P2") = DateValue(txtDatumTerug) & " " & txtTijdTerug.Value
  Unload Me
End Sub

 

[cissie1]

cissie1,

Zou het zo wel werken?

Private Sub cmdOkee_Click()
    ActiveWorkbook.Sheets("STAP 1").Activate
    NumberFormat = "dd-mm-yyyy"
    Range("P1") = DateValue(DTPicker1) & " " & txtTijdOphalen.Value
    Range("P2") = DateValue(txtDatumTerug) & " " & txtTijdTerug.Value
  Unload Me
End Sub

Nee, helaas doet hij het met deze ook nog niet.
Alle (ook voorgaande) code geven de datum wel goed weer in het textvak in het formulier, maar met het wegschrijven in de cel gaat het fout.

 

[ExcelAmateur]

Als je de regel zo doet?

Format(Range("P1"), "dd-mm-yyyy") = DateValue(DTPicker1) & " " & txtTijdOphalen.Value