Sub menu aanpassen

[jamstar]

Goedemiddag allemaal,


Ik heb een vraag inzake een submenu. In een submenu kan is scrollen van bouwnummer 1 t/m 1000 nu wil ik deze bouwnummers koppelen in het sub menu. Zodat ik bouwnummer 1 t/m 1000 in een regel zichtbaar en te selecteren zijn.
Nu staat er van 1 TO 1000 en begin en eind, is dit te wijzigen.



Sub Menu()
Which = True
Choice = False
With UserForm1
For i = 1 To 1000
.Begin.AddItem (i)
.Eind.AddItem (i)

Bedankt

 

[tkint]

Beste,

Zonder voorbeeldbestand kan je moeilijk geholpen worden.

 

[jamstar]

Mij bestand is vrij groot (13mb) het is nogal complex om een voorbeeld bestandje te maken.
Is vanaf bovenstaande code geen mogelijkheden mogelijk.

 

[HSV]

'.begin' en '.einde' zullen comboboxen zijn die zo benoemd zijn.
Voor de rest kan ik uit de vraagstelling helaas niet veel wijs worden.

 

[jamstar]

Ik heb een een andere oplossing kunnen bedenken.

Iedereen bedankt voor het meedenken.