Datum in userform wegschrijven als echte datum dus geen tekst

[peter59]

Hallo,

Ik ben behoorlijk aan het knoeien om een datum vanuit een textbox weg te schrijven naar een echte datum.
De gehele code welke in het bestand is gebruikt is her en der "geleend" en zover als mogelijk heb ik deze aangepast.
Maar het wil maar niet lukken met de datum.
Hiervoor is mijn VBA kennis zeer miniem.

Het betreft in het voorbeeld, tab "Ritplanning tbv Chauffeurs" >> UserForm2

Ik hoop dat mij iemand verder kan helpen.
Dank alvast voor de genomen moeite.

Mvg
Peter

 

[HSV]

bewustecel=[COLOR=#ff0000]cdate[/COLOR](textbox1)

 

[peter59]

Hallo HSV

Dank alvast voor het meedenken.
Ik heb het idee dat ik met jouw suggestie helemaal niet goed bezig ben.
M.a.w. ik weet het niet.
Ik heb getracht deze te verwerken maar helaas.

'plaatst de gegevens in de database
ws.Cells(iRow, 1).Value = Me.txtDatumRit = CDate(txtDatumRit)

Mvg
Peter

 

[HSV]

Hoi,

Iets teveel van het goede..

ws.Cells(iRow, 1).Value = CDate(txtDatumRit)

 

[peter59]

Hallo HSV

Heel hartelijk dank. Dat was hem.
Zo zie je maar hoeveel "kennis" ik heb van VBA.

Mvg
Peter