Data in Listbox in Userform wordt maar voor een deel opgehaald

[JanBG]

Hallo,

In de bijlage een voorbeeldje. Ik wil in het Userform een overzicht tonen van de data die al op blad 1 aanwezig is.

Op de een of andere manier is alleen kolom 1 zichtbaar in het overzicht en kolommen 2 en 3 niet.

Wat zie ik over het hoofd?

 

[VenA]

Je columncount staat op 1

 

[AD1957]

columncount LB_02 in de eigenschappen op 3 zetten.

Zie net dat VenA met hetzelfde antwoord kwam

 

[JanBG]

@VenA, @ Ad1957,

Dank, je kunt soms zo zitten suffen!

 

[VenA]

Als je toch tabellen gebruikt gebruik ze dan ook in de code

vullen van een listbox

LB_02.List = Blad1.ListObjects(1).DataBodyRange.Value

Wegschrijven van gegevens

Blad1.ListObjects(1).ListRows.Add.Range.Resize(, 3) = Array(CDate(TB_01.Value), TB_02.Value, LB_01.Value)

 

[JanBG]

@VenA,

Tnx for the tip: ga ik naar kijken