Kolommen in een listbox

[Jack Nouws]

Hallo

Ik heb een userform met daarin 16 textboxen en 1 listbox.
De ColumnCount bij de eigenschappen van de ListBox heb ik ingesteld op 16.
Als ik mijn 16 textboxen vul met text wil ik hebben dat deze op 1 rij in de ListBox komen.
Dus voor elke textbox 1 kolom. Maar als ik op de commandbutton klik stopt de code bij kolom 11. Iemand enig idee hoe de rest van de textboxen ook nog in de Listbox kan komen?

Met vr gr
Jack

 

[snb]

Private Sub CommandButton1_Click()
  L1.AddItem T1.Value
  For j = 0 To 15
    L1.List(UBound(L1.List), j) = Me("T" & j + 1).Value
  Next
End Sub

Private Sub UserForm_Initialize()
  L1.List = Cells(1, 1).Resize(, 16).Value
End Sub