Userform listbox fout

[blikbanaan]

Beste mensen wie kan mij helpen, de listbox vult zich maar met 10 kollommen daarna gaat het fout, oproep van de userform met dubbelkik in kolom B2-B100

Ik zou graag meer kollommen in de listbox willen tonen maar daar gaat het fout als ik al een 11kolom wil toevoegen gaat het fout, en ik kan het niet vinden

 

[VenA]

Wat gaat er fout dan en mogen er alleen maar heren reageren?

 

[blikbanaan]

sorrie bericht aangepast

 

[gast0660]

In je UserForm_Initialize event

Set rng = Worksheets("Artikelbestand").Range("A2").CurrentRegion
    With LB_01
        .List = rng.Value
        .ColumnCount = rng.Columns.Count 'teld de juiste aantal kollommen
        .ColumnWidths = "120;80;80;100;100;50;50;60;70;70;70"
    End With

in plaats van

Set rng = Worksheets("Artikelbestand").Range("A1").CurrentRegion
    With LB_01
        .Clear
        .ColumnHeads = False
        .ColumnCount = rng.Columns.Count 'teld de juiste aantal kollommen
        .ColumnWidths = "120;80;80;100;100;50;50;60;70;70;70"
    End With

en haal deze troep weg

 For Each rw In rng.Rows
        LB_01.AddItem
        For i = 1 To 10 '' kan listbox niet ophogen
            LB_01.List(LB_01.ListCount - 1, i - 1) = rw.Cells(1, i).Value
        Next i
    Next rw

Vervang het ook waar je de code nog gebruikt.
Verder niet naar je code gekeken, het is te laat voor mij.

p.s. telt is met een t niet met een d en kollommen is ook niet koosjer.

 

[blikbanaan]

Oplossing werk

Beste gast0660 jouw oplossing werkt prima, mijn dank hiervoor maar is begrijp niet waarom het bij mij 10 kolommen goed gaat met alles en dan bij het toevoegen voor een 11e of meer het fout gaat.


Tevens werkt het aanpassen niet meer goed is zeer traag en wijzingen worden wel meer doorgevoerd in het artikelbestand.

 

[blikbanaan]

Bedankt HSV, heb ik niet geweten methode AddItem maar op 10 kolommen werkt. De methode van gast0660 werkt maar is zeer traag bij het wegschrijven van de aangepaste data, is hier een oplossing voor?