Datum wordt verkeerd weggeschreven

[bowlingman]

Hallo,
Om trekkingen van de lotto in te brengen gebruik ik een frm.
In de oudere versies van excel kon je vroeger op het frm een Date Time Picker zetten, maar helaas bestaat dat niet meer in de nieuwere versies van excel (ik gebruik nu Office 365)
Ik heb het frm dan maar aangepast met een textbox om de datum in tebrengen, maar als ik datums heb met de dag kleiner dan 12 wordt de datum verkeerd weggeschreven. Zie bijlage
De code die ik hiervoor gebruik is

Private Sub cmbWegschrijven_Click()

Application.ScreenUpdating = False
Dim data(7), i As Integer, j As Integer
    data(0) = Me("TextBox7").Value
        For i = 1 To 7
            data(i) = Me("TextBox" & i).Value
        Next
        For j = 1 To 1
            Sheets(Choose(j, "Trekkingen")).Range("B112").End(xlUp).Offset(1).Resize(, 7) = data
        Next
Dim ctl As Object
        For Each ctl In frmTrekkingen.Controls
            If TypeName(ctl) = "TextBox" Then
                ctl.Value = ""
            End If
        Next
Application.ScreenUpdating = True
End Sub

Private Sub TextBox7_AfterUpdate()
    TextBox7 = Format(TextBox7, "dd/mm/yy")
End Sub

Al alles afgezocht om dit opgelost te krijgen, maar vind geen enkele oplossing.
Iemand die mij kan verder helpen?

Grtjs.
Armand

 

[AD1957]

zo?

Private Sub cmbWegschrijven_Click()

Application.ScreenUpdating = False

Sheets("Trekkingen").Range("B112").End(xlUp).Offset(1).Resize(, 7) = Array(CDate(TextBox7), TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6)
        
Dim ctl As Object
        For Each ctl In frmTrekkingen.Controls
            If TypeName(ctl) = "TextBox" Then
                ctl.Value = ""
            End If
        Next
Application.ScreenUpdating = True
End Sub

 

[bowlingman]

Hallo Albert,

Bedankt,
Wordt juist weggeschreven nu.
Nog even een vraagje.
Ik heb ongeveveer dezelfde file voor de Euromillions, maar hier staan 21 txt's op.
De txt voor de datum heb ik hernoemt naar txtDatum en de volgende zijn textbox2,3,4,enz... tot 21.
Hoe schrijf ik deze dan weg als ARRAY. Wordt dit ook een Array met dan een lange lijst van Textboxen.
Dus de datum ook in kolom B en de andere textboxen in kolommen C t/m U.

Grtjs.
Armand

 

[bowlingman]

Hallo,

Met andere woorden, kan onderstaande array in de code korter geschreven worden

Sheets("Trekkingen").Range("B112").End(xlUp).Offset(1).Resize(, 21) = Array(CDate(txtDatum), TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, 
TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20)

Gtjs.
Armand

 

[AD1957]

optie.

Dim data(20)
data(0) = CDate(TxtDatum)

For i = 1 To 20
    data(i) = Me("TextBox" & i).Value
Next
   
Sheets("Trekkingen").Range("B112").End(xlUp).Offset(1).Resize(, 21) = data

 

[bowlingman]

Bedankt Albert,

Werkt nu 100 %

Grtjs.
Armand