ComboBox vullen op UserForm lukt maar niet

[DZP]

Hallo mensen,
Ik krijg het maar niet voor elkaar
Hoe kan ik de ComboBox vullen met een variabel aantal rijen
en dan natuurljk ook nog de TextBox in VBA
In de Rowsource lukt het wel maar dan zit je met een vaste range.

En verder zou ik dit in diverse bestanden moeten gaan gebruiken.
Dus graag in Dummy taal.

(Wat moet ik waar neerzetten en waarom).

 

[spaarie]

Op basis van jouw voorbeeld
Maak een variable naambereik aan.
Formules > namen beheren > nieuw > geef een naam eraan (bijv. namen) > verwijst naar:

=VERSCHUIVING(Blad2!$H$5;1;0;AANTAL.ALS(Blad2!$H:$H;"<>")-1;1)

Dubbelklik op je userform > plak dit

Private Sub Userform_Initialize()
Combobox1.Rowsource = "namen"
End Sub

Klaribo!

SUCCES!!!

 

[DZP]

Ik weet niet of het kan maar ik zou graag iets Wilen zien in VBA, dus zonder rowsource en zonder lijsten ???

Ik zou graag iets willen zien als:

ComboBox1.Value=Sheets("Blad2").Range.("H5:H").(Rows.Count, H).End(xlUp).Row, 1).
And Value TextBox1=Value.ComboBox1.Cells(0, 2)

Maar dan komt er ook nog:
Click
Change
Activate
0f Initialize
Bij kijken ofzo en dan ben ik het kwijt

(Mijn bestandje bestaat soms uit meer dan 700 regels).

 

[sylvester-ponte]

misschien bedoel je dit : in de code van blad1

Private Sub CommandButton1_Click()
    UserForm1.ComboBox1.RowSource = "blad2!H6:H8"
    UserForm1.Show
End Sub

maar dan voor die 8 dat kunstje van post3 van hier boven

 

[HSV]

Verwijder de rowsource; gebruik.

Private Sub UserForm_Initialize()
With Sheets("Blad2")
 ComboBox1.List = .Range("H6:H" & .Cells(Rows.Count, 8).End(xlUp).Row).Value
End With
End Sub

 

[DZP]

Harry,
Het werkt perfect en ik heb het eindelijk draaien.
Nogmaals bedankt voor de service.

Voor iedere andere Dummy heb ik het bestand bijgevoegd.
Duidelijke en simpele uitleg is bijgesloten mijn inziens.

Gr. Moi

Sorry, berichten hebben elkaar gekruisd.
Ik had de kolommen verkeerd geteld.

 

[HSV]

Is geen probleem met zevenhonderd waarden.

 

[HSV]

Berichten elkaar gekruist en aangepast?

Ps. Kom je uit dezelfde provincie waar we Moi zeggen?