datum omzetten in userform

[DD]

Hallo,

Na het invullen van een datum in een userform wordt de datum omgezet naar
amerikaanse maatstaven. Ik heb al gezocht hoe ik dit kon aanpassen maar ik
weet niet waar ik de formule in mijn vba blad moet plaatsten. Hieronder staat
mijn vba blad.

alvast bedankt.

gr. DD

Private Sub commandbutton1_Click()
Dim iRow As Long

'Vind de eerste lege rij in uw database
iRow = Sheets("invoeren").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'check op invoer
If Trim(Me.textboxdatum.Value) = "" Then
Me.textboxdatum.SetFocus
MsgBox "Voer een datum in"
Exit Sub
End If
If Trim(Me.textboxmedewerker.Value) = "" Then
Me.textboxmedewerker.SetFocus
MsgBox "Voer een medewerkernummer in"
Exit Sub
End If

'Schrijf de gegevens naar de Database

With Sheets("invoeren")
.Cells(iRow, 1).Value = Me.textboxdatum.Value
.Cells(iRow, 5).Value = Me.textboxmedewerker.Value
End With

'Maak de invoervelden leeg

Me.textboxdatum.Value = ""
Me.textboxmedewerker.Value = ""
Me.textboxdatum.SetFocus
End Sub

[Cobbe]

Zou deze aanpassing het doen?

Private Sub commandbutton1_Click()
Dim iRow As Long

'Vind de eerste lege rij in uw database
iRow = Sheets("invoeren").Cells(Rows.Count, 1).End(xlUp).Offset(1,
0).Row
'check op invoer
If Trim(Me.textboxdatum.Value) = "" Then
Me.textboxdatum.SetFocus
MsgBox "Voer een datum in"

Me.TextBoxdatum = DateValue(Format(TextBoxDatum, "dd/mm/yyyy"))

Exit Sub
End If
If Trim(Me.textboxmedewerker.Value) = "" Then
Me.textboxmedewerker.SetFocus
MsgBox "Voer een medewerkernummer in"
Exit Sub
End If

'Schrijf de gegevens naar de Database

With Sheets("invoeren")
.Cells(iRow, 1).Value = Me.textboxdatum

.Cells(iRow, 5).Value = Me.textboxmedewerker.Value
End With

'Maak de invoervelden leeg

Me.textboxdatum = ""

Me.textboxmedewerker.Value = ""
Me.textboxdatum.SetFocus
End Sub

Mvg., Cobbe

DD schreef op vrijdag [Date] :

[DD]

Het werkt! ontzettend bedankt.

gr. DD

"Cobbe" schreef: