Vandaag (Date) als default in listbox op userform

[renew000]

Hi,

Ik zoek me suf naar een oplossing voor mijn probleem, maar kom er maar niet uit.
Ik heb een listbox in een userform en die wordt gevuld door vba. Deze haalt een lijst met datums naar voren vanuit een kolom in een werkblad.

ListBox1.List = .Range("a3:a" & .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row).Value

Mijn vraag is: Hoe krijg ik het voor elkaar dat in mijn listbox (bij het vullen van de lijst) De datum van vandaag als defaultwaarde wordt gezien?

Hoop dat jullie me kunnen helpen.

Greetz
Rene

 

[VenA]

Hi, kijk hier eens. https://www.helpmij.nl/forum/announcement.php?f=5

 

[SjonR]

deze in het Initialize_event?

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.List(i) = Date Then ListBox1.Selected(i) = True
Next