datum in dddd/mmmm/yyyy

[DannyCD]

Ik heb in excel 2016 een formulier gemaakt waarbij ik leden van onze club in een excel kan toevoegen. Dit werkt prima doch de enige struikelblok (voorlopig ) is het invoeren van de geboortedatum. In mijn werkblad heb ik die kolom gedefinieerd als datum met nederlandse opbouw (dddd-mmmm-yyyy) maar als ik de geboortedatum invoer via het formulier krijg ik de Amerikaanse versie en wordt 01/02/2015 dus 2 januari 2015. Hoe kan ik dit oplossen zodat de ingevoerde waarde toch juist weergegeven wordt? Alvast een deel van hetgene ik al hebaangemaakt.

Private Sub cmdtoevoegen_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("test")

'vindt laatst gebruikte cel, ga naar de volgende rij
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'controleer of er een naam is ingevuld
If Trim(Me.txtfamilienaam.Value) = "" Then
Me.txtfamilienaam.SetFocus
MsgBox "gelieve een naam in te voegen"
Exit Sub
End If
'plaats de gegevens in de database
ws.Cells(iRow, 34).Value = Me.txt2014.Value
ws.Cells(iRow, 35).Value = Me.txt2015.Value
ws.Cells(iRow, 36).Value = Me.txt2016.Value
ws.Cells(iRow, 37).Value = Me.txt2017.Value
ws.Cells(iRow, 38).Value = Me.txt2018.Value
ws.Cells(iRow, 39).Value = Me.txt2019.Value
ws.Cells(iRow, 1).Value = Me.txtfamilienaam.Value
ws.Cells(iRow, 2).Value = Me.txtvoornaam.Value
ws.Cells(iRow, 3).Value = Me.Txtgeslacht.Value
ws.Cells(iRow, 4).Value = Me.txtadres.Value
ws.Cells(iRow, 5).Value = Me.txtpostnummer.Value
ws.Cells(iRow, 6).Value = UCase(Me.txtgemeente.Value)
ws.Cells(iRow, 7).Value = Me.txttelefoon1.Value
ws.Cells(iRow, 8).Value = Me.txtgsm.Value
ws.Cells(iRow, 9).Value = Me.txtgeboorte.Value
ws.Cells(iRow, 10).Value = Me.txtmail.Value

 

[edmoor]

Maak er eens dit van:
ws.Cells(iRow, 9).Value = DateValue(Me.txtgeboorte.Value)

 

[DannyCD]

ik had alles al geprobeerd, hoe simpel kan een oplossing wel zijn. hartelijke dank voor het snelle antwoord