Datum vanuit userform in juist formaat doorkopieren naar tabel

[Erik191283]

Beste mensen,

In de afgelopen dagen heb ik al veel info van het forum kunnen halen, maar helaas loop ik nu vast. Ik ben bezig om een excelbestand te maken waarin met behulp van een userform verkoopfacturen kunnen worden ingevoerd, deze worden vervolgens op het tabblad facturen opgenomen in een tabel. Bij elke factuur die ingevoerd wordt wordt ook een factuurdatum opgegeven. Deze datum voer ik in volgens het dd/mm/jjjj formaat, maar komt nadat ik op de knop opslaan heb geklikt als mm/dd/jjjj in de tabel. Bij het datum veld heb ik de volgende code opgenomen (volgens mij gekopieerd van een ander bericht hier op het forum):

Private Sub TXTDatum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Left(TXTDatum.Value, 2) > 31 Or Mid(TXTDatum.Value, 4, 2) > 12 Then
        MsgBox "Onjuiste datum, vul opnieuw in A.U.B.? (dd/mm/jjjj)", vbCritical
        TXTDatum.Value = vbNullString
        TXTDatum.SetFocus
        Exit Sub
    End If
     
    dDate = DateSerial(Year(Date), Month(Date), Day(Date))
    TXTDatum.Value = Format(TXTDatum.Value, "dd/mm/yyyy")
    End Sub

Het kopiëren van de gegevens van het Userform naar de tabel gebeurt met de volgende code:

Private Sub KNOPopslaan_Click()
Sheets("Facturen").Select
Range("A1").Select
ActiveCell.End(xlDown).Select
last = ActiveCell.Row
Cells(last + 1, 1).Value = TXTfactuurnummer.Text
Cells(last + 1, 2).Value = TXTDatum.Text
Cells(last + 1, 3).Value = CBOKlantnaam.Text
Cells(last + 1, 5).Value = CBOomzetcategorie.Text
Cells(last + 1, 6).Value = TXTOmschrijving.Text
Cells(last + 1, 7).Value = TXTbedragexclBTW.Text
Sheets("Startscherm").Select
TXTfactuurnummer.Text = ""
TXTDatum.Text = ""
CBOKlantnaam.Text = ""
CBOomzetcategorie.Text = ""
TXTOmschrijving.Text = ""
TXTbedragexclBTW.Text = ""

End Sub

Heeft één van jullie enig idee hoe het komt dat de datum van formaat wijzigt en zo ja, ook wat er aan te doen valt?

Alvast bedankt!

Groet,

Erik

 

[HSV]

=Datevalue(textbox) of =cdate(textbox)

 

[Erik191283]

Bedankt, klein aanvullend vraagje, waar zet ik dat neer?
(Ben beginner, vooral aan het zoeken naar wat ik kan kopieren...)

 

[HSV]

Cells(last + 1, 2).Value = [COLOR=#FF0000]cdate([/COLOR]TXTDatum[COLOR=#FF0000])[/COLOR]

 

[Erik191283]

Enorm bedankt!

 

[HSV]

Graag gedaan Erik.