Meerdere waardes uit listbox

[koenkidv]

Hallo allemaal.

Ik heb een vraag.
Ik ben op zoek naar een listbox die meerdere waardes teruggeeft na het selecteren
Ik heb een voorbeeldbestand bijgevoegd als bijlage.
Ik zou dus graag 1 optie selecteren en dat hij deze rij aan informatie overschrijft naar een bepaalde range.
Maar op dit moment krijg ik de waarde uit de eerste kolom 9 keer.
Ik hoop dat het voorbeeld meer duidelijkheid geeft.

ik heb ook de code even bijgevoegd voor de mensen die hier al genoeg aan hebben.

Bedankt alvast!

Private Sub CommandButton1_Click()
    Set wsTemp = ActiveSheet
    With ListBox1
        .ColumnCount = 9
        .ColumnWidths = "50;50;50;50;50;50;50;50;50"
        .RowSource = wsTemp.Range("A2:I12").Address
    End With
End Sub

Private Sub CommandButton2_Click()
Set wsTemp = ActiveSheet
Range("O3:W3").Value = ListBox1.Value
End Sub

 

[Leotaxi]

De waarde van listbox is altijd de eerste kolom van die listbox


mvg
Leo

 

[snb]

Private Sub CommandButton1_Click()
    ListBox1.Range("A2:I12").Value
End Sub

Private Sub CommandButton2_Click()
   Range("O3:W3").Value = application.index(ListBox1.list,listbox1.listindex)
End Sub

Het ontwerp van een listbox doe je het beste in de ontwerpmodus (columncount, columnwidths), maar is in dit geval wellicht overbodig.

 

[snb]

De waarde van listbox is altijd de eerste kolom van die listbox

Dat is afhankelijk van de instelling van de eigenschap 'boundcolumn'.
De defaultwaarde is 1.

 

[koenkidv]

Super!
Dank je wel allemaal!