europese datum

Status
Niet open voor verdere reacties.
R

rickweyers93

Gebruiker
Lid geworden
12 nov 2020
Berichten
8
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
 

Bijlagen

  • Ontvangsten transporten - Copy.xlsm
    39,6 KB · Weergaven: 25
Maak er dit van:
Code: 
ws.Cells(iRow, 1).Value = [COLOR="#FF0000"]CDate([/COLOR]Me.Label1.Caption[COLOR="#FF0000"])[/COLOR]
 
Of:

Code: 
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
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan