listbox vullen dmv textboxen

[Jack Nouws]

Hallo ,

Als ik een listbox laad met de gegevens uit een sheet gebruik ik deze code
Deze code laad alle gegevens netjes in de Listbox die in dit geval 7 kolommen bevat.

Private Sub UserForm_Initialize()
    Me.Lbx1.List = Blad1.Cells(1).CurrentRegion.Offset(1).Value
End Sub

Maar als ik een listbox wil vullen met gegevens die in 7 textboxen staan vul ik hem op deze manier
Hiermee wordt er elke keer een nieuwe regel aan de listbox toegevoegd

Private Sub CommandButton1_Click()
    With Me
        .Lbx2.AddItem .Txt9.Value
        .Lbx2.List(.Lbx2.ListCount - 1, 1) = .Txt1.Value
        .Lbx2.List(.Lbx2.ListCount - 1, 2) = .Txt10.Value
        .Lbx2.List(.Lbx2.ListCount - 1, 3) = .Txt8.Value
        .Lbx2.List(.Lbx2.ListCount - 1, 4) = .Txt2.Value
        .Lbx2.List(.Lbx2.ListCount - 1, 5) = .Txt3.Value
        .Lbx2.List(.Lbx2.ListCount - 1, 6) = .Txt7.Value
    End With
End Sub

Is er een compactere manier om deze listbox te vullen?

 

[SjonR]

Aangezien je nog geen antwoord op je vraag hebt kan je beter even een (voorbeeld)bestand plaatsen.

 

[snb]

Private Sub UserForm_Initialize()
    Lbx1.List = Blad1.Cells(1).CurrentRegion.Offset(1).Value
End Sub

Private Sub CommandButton1_Click()
   Blad1.cells(rows.count,1).end(xlup).offset(1).resize(,6)=array(txt1,txt10,txt8,txt2,txt3,tst7)
   Lbx1.List = Blad1.Cells(1).CurrentRegion.Offset(1).Value
End Sub