Een ListBox vullen met data uit geselecteerde cellen.

[VBA1]

Hallo allemaal,

Ik probeer een listbox lstData op een userform te vullen met door het programma geselecteerde data uit cellen maar ik zie steeds niks in de listbox.
Hieronder de code, kan iemand mij helpen?

Private Sub KeuzenLijstBewerken()
        Dim Lijst(5, 1) As String
        Dim row As Long
        Dim Rijen As Integer
        Dim PakCel As Integer
        Dim Pak2eCel As Integer
        Dim VeldVan
        Dim VeldTot
        
        Let row = CLng(Me.scrlVerlof.Value)
        
        Let Lijst(0, 0) = "Van"
        Let Lijst(0, 1) = "tot"
        
        Let PakCel = 15
        Let Pak2eCel = 16
        
        Let lstData.ColumnCount = 2
        
        Do While PakCel <= 24 And Pak2eCel <= 25
            Let VeldVan = Blad2.Cells(row, PakCel).Value
            Let VeldTot = Blad2.Cells(row, Pak2eCel).Value
            For Rijen = 1 To 5
                Lijst(Rijen, 0) = VeldVan
                Lijst(Rijen, 1) = VeldTot
            Next Rijen
            Let PakCel = PakCel + 2
            Let Pak2eCel = Pak2eCel + 2
            Let lstData.List = Lijst
        Loop
        
End Sub

Alvast heel erg bedankt!

 

[snb]

Speciaal voor jou gemaakt:

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