HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.984
- Office versie
- Bèta Insider Office 365
Helaas werkt dat nog niet goed.
Ik heb je kolom A vermenigvuldigd met 1.
Nu werkt het pas goed.
Ook de andere code heb ik aangepast zodat je een echte datum in je textbox ziet i.p.v. een getal.
Hierbij het bestand.
Edit: zo kan het ook, heb je ook niets met het getal van doen.
Ik heb je kolom A vermenigvuldigd met 1.
Nu werkt het pas goed.
Ook de andere code heb ik aangepast zodat je een echte datum in je textbox ziet i.p.v. een getal.
Hierbij het bestand.
Edit: zo kan het ook, heb je ook niets met het getal van doen.
Code:
Private Sub btUpdate_Click()
Sheets("data").Cells(ListBox1.ListIndex + 2, 2).Resize(, 9) = Array(txtVoornaam.Text, txtAchternaam.Value, txtAdres.Value, txtPostcode.Value, txtWoonplaats.Value, txtTelefoon.Text, _
txtMobiel.Value, txtEmail.Value, CDate(txtGebDatum))
End Sub
Bijlagen
Laatst bewerkt: