listbox

[pasan]

Hallo

ik probeer een list box te vullen met meerdere geselecteerde cellen
in deze cellen staan datums.
1 cel waarde lukt me nog wel met

Private Sub UserForm_Initialize()
ListBox1.AddItem ActiveCell.Value
End Sub

maar ik wilde graag als ik meerdere cellen selecteer, dat die datums dan onderelkaar in de listbox weergegeven worden.

iemand die me wil helpen?

 

[paulva]

Zo iets?
Bekijk bijlage LijstVullen.xlsm

 

[pasan]

paulva bedankt :thumb:
ik proberen dit in mn form toe te passen
ik laat wet weten of het me is gelukt

 

[snb]

Private Sub UserForm_Initialize()
    ListBox1.List=Range("A1:A10").value
End Sub

 

[pasan]

paulva ik krijg het niet voorelkaar om de listbox in mijn form te vullen met jou voorbeeld

snb jou range verwijzing werkt opzich wel maar ik wilde graag elke keer de geselecteerde cellen van de activesheet in mn listbox laten zien
en het zijn datums die geselecteerd worden, elke cel 1 datum

de geselcteerde range varieerd

 

[paulva]

Vreemd. Dit dan?
Bekijk bijlage LijstVullen.xlsm

 

[pasan]

paulva ik gebruik een userform Userform2.listbox1

 

[paulva]

Laad dan eens een voorbeeld op. Dat is veel gemakkelijker...

 

[pasan]

voorbeeld

 

[pasan]

ik moet er vandoor werkeu