lam201
Gebruiker
- Lid geworden
- 23 aug 2007
- Berichten
- 557
Ik heb de volgende uitdaging.
In een userform heb ik de volgende drie velden: Naam, geboortedatum en trouwdatum.
Deze worden in een lijst onder elkaar gezet (incl volg nummer) dmv de volgende code:
Nu het probleem.
Iedereen is geboren. Maar niet iedereen is getrouwd.
Zodra ik het veld trouwdatum leeg laat, krijg ik een foutmelding: "Fout 13 tijdens uitvoering: Typen komen niet met elkaar overeen"
Wat doe ik fout?
En hoe los ik het op?
Lambert
In een userform heb ik de volgende drie velden: Naam, geboortedatum en trouwdatum.
Deze worden in een lijst onder elkaar gezet (incl volg nummer) dmv de volgende code:
Code:
Private Sub cmd1_Click()
Dim x As Long
x = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & x) = [MAX(Blad1!A2:A100)+1]
Range("B" & x) = txtname.Value
Range("C" & x) = DateValue(txtdate1.Value)
Range("D" & x) = DateValue(txtdate2.Value)
Unload Me
End Sub
Nu het probleem.
Iedereen is geboren. Maar niet iedereen is getrouwd.
Zodra ik het veld trouwdatum leeg laat, krijg ik een foutmelding: "Fout 13 tijdens uitvoering: Typen komen niet met elkaar overeen"
Wat doe ik fout?
En hoe los ik het op?
Lambert