Datum in UserForm

[zanfa11]

Beste

Als ik een datum in UserForm ingeef wordt deze niet herkend als datum in mijn bestand. Graag hulp

Mvg

 

[HSV]

cdate(textbox1)

 

[zanfa11]

Beste HSV

Waar kan ik de code toevoegen ? Zie bijlage

Bekijk bijlage Opvolging30Mei.xlsm

Mvg

 

[HSV]

In de 'Private Sub CommandButton1_Click()' gebeurtenis van het formulier misschien?

Sheets("ledenlijst").Range("d" & r) = cdate(TextBox2)
 Sheets("ledenlijst").Range("e" & r) = cdate(TextBox3)

 

[zanfa11]

Beste

Uw code werkt zeer goed, maar als ik geen datum in kolom D of E ingeef dan krijg ik een fout melding. Zie bijlage Rij 9 Bekijk bijlage Opvolging30Mei (2).xlsm

Mvg

 

[HSV]

 If TextBox2 <> "" Then Sheets("ledenlijst").Range("d" & r) = CDate(TextBox2)

 

[zanfa11]

Hallo HSV

Het werkt zeer goed. Ik heb nog een vraagje: Het gebeurt dat ik soms een letter achter de datum moet invullen (01/01/2015 a)en daar krijg ik een fout melding. Heeft u mischien een oplossing?

Mvg

 

[HSV]

Dag Mvg ?,

Ik kan met niets bij een geboortedatum met een toevoeging voorstellen, dus beter is een gestructureerde methode aan te houden met een extra kolom en textbox.
Ik heb er nu wat omheen gebreid dus dat lukt ook wel.
Het bestand heb ik er bij gedaan zodat het overal is toegepast, en dubbele regelcodes verwijderd wat er nog in stond.

 

[zanfa11]

Beste Harry

U heeft fantastisch werk geleverd. Ik ben zeer tevreden met het bestand dat u gemaakt heeft :d:thumb: Hartelijk bedankt en RESPECT.

Met vriendelijke groet