europese datum

[rickweyers93]

Beste,

ik ben aan een invulformulier voor ontvangen transporten aan het werken voor mijn werkgever.
de datum in het formulier geeft de juiste datum weer zoals vandaag 12-11-2020 maar als ik op verwerken klik dan staat er in het excel bestand 11 December 2020.
hebben jullie hier een oplossing voor?

alvast bedankt.

Rick

 

[edmoor]

Maak er dit van:

ws.Cells(iRow, 1).Value = [COLOR="#FF0000"]CDate([/COLOR]Me.Label1.Caption[COLOR="#FF0000"])[/COLOR]

 

[snb]

Of:

Private Sub Cmbverwerken_Click()
   Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5) = Array(CDate(Label1), Cmbland, Txtcollo, Txtgewicht, Txtinfo)
   ActiveWorkbook.Save
           
  For Each it In Controls
    If TypeName(it) = "TextBox" Then it.Text = ""
  Next
End Sub

 

[rickweyers93]

beste edmoor en snb,

Bedankt! het werkt perfect.

Fijn weekend alvast