listbox vullen

[don42]

Hallo allemaal
ik vul in een userform1 een listbox met

Private Sub Userform_initialize()
   ListBox1.List = Blad1.Range(Range("a2"), Range("a2").End(xlDown)).Value
End Sub

als ik de namen in het zelfde tabblad heb staan dan werkt het gewoon
maar hoe krijg ik het voor elkaar om de namen van de zelfde kolom uit een ander tabblad te halen
de namen staan in het tabblad Deelnemers
maar als ik van Blad1 Blad4 maak krijg ik een foutmelding (UserForm1.show) wordt dan geel gearceerd
ook sheets("Deelnemers").range enz wil niet werken
wie kan mij helpen?

Don

 

[don42]

bijna

Met deze code:

ListBox1.List = Sheets("Deelnemers").Cells(x, 1).CurrentRegion.Value

lukt het mij om de namen uit een ander tabblad te halen
nu nog 1 klein ding
met de code van #1 kreeg ik de titel niet in de listbox omdat er pas vanaf A2 xl(down) ging
met deze code wordt alles mee genomen is dat aan te passen?

 

[Cobbe]

Zorg dat x de waarde 2 krijgt.

 

[don42]

ook niet

Cobbe die had ik al geprobeerd
zelfs als ik cells() zet werkt het nog!
ik doe het bestandje er even bij in blad1 cel c1 of q1 selecteren laat de userform zien.
Bekijk bijlage 501-2.xlsm

misschien wil je er even naar kijken.
Don

 

[Cobbe]

Kijk eens of dit voldoet; ik heb de deelnemers in een naambereik gestopt.

 

[don42]

Ja dit werkt
hoe heb je dat nu gedaan?
met rowsource = deelnemers?
moet je dan een gebied een naam geven of hoe werkt dat

heb het gevonden mooie oplossing bedankt maar weer

Don