Datum probleem Userform

[bowlingman]

Hallo,
Ik heb een file voor de Euromillions met een Userform.
Ik gebruik de volgende code om alles weg te schrijven en dat lukt perfect.

Private Sub cmbWegschrijven_Click()
Application.ScreenUpdating = False
Dim data(21), i As Integer, j As Integer
    data(0) = Me("TextBox21").Value
        For i = 1 To 20
            data(i) = Me("TextBox" & i).Value
        Next
        For j = 1 To 1
            Sheets(Choose(j, "Trekkingen")).Range("B112").End(xlUp).Offset(1).Resize(, 21) = data
        Next
Dim ctl As Object
        For Each ctl In frmEuromillions.Controls
            If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then
                ctl.Value = ""
            End If
        Next
Application.ScreenUpdating = True
End Sub
Private Sub TextBox21_AfterUpdate()
    TextBox21 = Format(TextBox21, "dd/mmm/yyyy")
End Sub

Nu heb ik hetzelfde gemaakt voor de lotto (maar dan met 7 textboxen) met de volgende code

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 6
            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/mmm/yyyy")
End Sub

Ik krijg hier steeds op de "TextBox7_AfterUpdate()" de foutmelding KAN HET PROJECT OF DE BIBLIOTHEEK NIET VINDEN.
Als ik deze private Sub weghaal, wordt alles in de juiste cellen weggeschreven, maar wordt de datum bijvoorbeeld 31/8 weggeschreven als 31/8 maar 1/9 als 9/1/2021
Dit laatste gebeurd wel enkel als de datum kleiner is dan 13

Grtjs.
Armand

 

[OctaFish]

Is een voorbeeldje teveel moeite? En wat is het nut van de loop For j = 1 To 1? Hoe vaak denk je dat die doorlopen wordt?

 

[bowlingman]

De files zijn te zwaar (ook gezipt) om up te loaden.
Maar ik heb juist een nieuwe file gemaakt en daar dezelfde code ingezet en raar maar waar, daar werkt het wel.
Nu ben ik alle andere sheets erbij aan het plaatsen en als dat dan ook werkt, zet ik de vraag wel als opgelost.
Grtjs.
Armand