Listbox vullen 12 kolomen

[henkievermeer]

Hallo,
Ik heb weer eens een vraag over een listbox.
Ik wil in een listbox de eerste 12 rijen van een tabblad horizontaal in een listbox zetten en daarna de volgende 12, enz, enz, enz.
Met het aantal 10 lukt het wel.
Ik heb op het forum gelezen dat met listbox1.additem dat het dan maar tot 10 gaat en dat je dan listbox1.list moet gebruiken, maar daar kom ik niet uit.
Kan iemand mij daar mee helpen.

Alvast bedankt.
Henkie

 

[snb]

Speciaal voor jou op internet gezet:

http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

 

[henkievermeer]

Het vullen van een listbox1.list lukt me wel, maar ik kom er niet uit om de eerste 12 rijen naast elkaar te krijgen.

Henkie

 

[Cobbe]

http://www.helpmij.nl/forum/attachment.php?attachmentid=257375&d=1452970573

Weliswaar voor een combobox

 

[VenA]

Mogelijk dat dit in de buurt komt.

 

[henkievermeer]

VenA,

Bij de link die Cobbe me gaf had ik al gevonden, maar die gaf een foutmelding.
De code in dit project moet worden bijgewerkt voor gebruik op 64bits systemen.

De oplossing die u me gaf is precies wat ik bedoel.
Ik kan weer verder

Hartelijk bedankt.

 

[snb]

Als je Listbox1.List gebruikt is listbox1.clear overbodig.
Als je 12 kolommen wilt hebben zet je dat in de ontwerpmodus in de eigenschap van de listbox, i.p.v. met VBA
In tegenstelling ot Excel heeft VBA de operator \ die altijd het grootste gehle getal van de deling weergeeft.

Het is niet moeilijk een eendimensionele reeks om te zetten naar een 2-dimensionele. Je bespaart daarmee 1 lus.

Private Sub UserForm_Initialize()
    sn = Sheets(1).Columns(2).SpecialCells(2)
    ReDim sp(UBound(sn) \ 11, 11)
    
    For j = 1 To UBound(sn) 
      sp((j - 1) \ 12, (j - 1) Mod 12) = sn(j, 1)
    Next

    ListBox1.List = sp
End Sub