Hallo Arnold,

Zoals ik daarnet al aangaf is er geen enkel bezwaar om een tekstveld voor datums te gebruiken op een userform. Hoe die datum daar komt speelt geen rol, het enige dat telt is dat je daar met een tekst bezig bent en dat die naar een datum moet geconverteerd worden bij wegschrijven naar je werkblad.

Dus zoals Pagadder in #22 zei kan dat o.a. met:
With Sheets("Verhandelingen").ListObjects(1).ListRows.Add
    .Range.Resize(, 5) = Array(CDate(TextBox5.Value), ListBox1.Value, ListBox2.Value, TextBox7.Value, CDbl(TextBox4.Value))
End WithDe rest van mijn vorige uitleg i.v.m. DateValue was eerder een wist-je-datje

Groetjes,
Molly

Oei Arnold, dat heb ik ook helemaal niet beweerd... je basis-instellingen kunnen maar beter goed staan
Ik wou enkel wat algemene weetjes toevoegen.

De basisinstellingen zullen namelijk niet volstaan om het 'tekstveld naar werkblad'-probleem voor eens en altijd te vermijden, daarvoor moet ook rekening gehouden worden (dus elke keer weer bij gelijkaardige acties) met dat ene weetje, met name converteren.

Groetjes,
Molly

Ik heb voor Cdate gekozen omdat Cdate normaal de machine instellingen kiest. (denk ik toch)
Daarom mijn plaatjes in #25.
Hierbij een voorbeeldje waarbij de kalender beter werkt (hoop ik toch)
Ik moet wel toegeven, ik wordt een beetje gek van al de msgboxes., Ik werk anders, zolang niet alle velden (correct) zijn ingevuld kan je gewoon niet verder,en vermijd je de (overbodige) msgboxes waar de gemiddelde gebruiker horendol van wordt.

En wat gebeurd er als je in je code valideren verandert.
With Sheets("Verhandelingen").ListObjects(1).ListRows.Add
    .Range.Resize(, 5) = Array(CDate(TextBox5.Value), ListBox1.Value, ListBox2.Value, TextBox7.Value, CDbl(TextBox4.Value))
End With

@ allen,

Zo'n 6000 keer gelezen, dat kan niet van alleen de participanten komen
Omdat de kans reëel is dat sommige van de neutrale lezers n.a.v. alle voorgaande posts door de bomen het bos niet meer zien, heb ik vooral in hún belang een klein voorbeeldje gemaakt. Hopelijk kom ik daarmee niet té belerend over...

Uitgangspunt is dat Windows-instellingen en Office-opties al goed stonden, dus daar blijven we af, en we willen die ook niet gaan aanpassen voor elk volgend vba-projectje (in dit draadje is dat enkel gebeurd in de queeste om een mysterie te ontrafelen, dus zeker niets mis mee!)

In het bestandje heeft de ganse kolom A al de opmaak 'korte datumnotatie' gekregen, en daar raken we ook niet meer aan.

De knop op het werkblad zet de datum van A1 op een tekstvak van het userform. Het is voor deze test de bedoeling dat de inhoud van dat tekstvak niet wordt gewijzigd. Klik vervolgens op beide opdrachtknoppen en bekijk het resultaat in A2 en A3. Voor wie daarna nog twijfelt: bekijk voor diezelfde cellen de formulebalk, en je zal telkens merken dat A2 fout is.
De verklaring is simpel: Amerikanen zeggen ook 'nine eleven' terwijl het voor ons pas vandaag 9/11 is

Mvg,
Molly

Arnold, gewoon een typo.

Eerste keer gebruik je tekstvak, 2de keer gebruik je tekstvlak

Arnold, gewoon een typo.

Eerste keer gebruik je tekstvak, 2de keer gebruik je tekstvlak

ik word oud 
thanks

Voor je tweede vraag:
in je Private Sub UserForm_Initialize() event zoiets?

Code: [Selecteer]

Label1.Caption = Format(Date, "dd/mm/yyyy")

yes , dat is het , thanks !