Selecties van mutliple selection listbox weergeven in kolom ernaast

[baas1990]

Beste allen,

Ik heb in Excel een listbox gemaakt waarbij je meerdere selecties kan maken. In het echte bestand is het een lange lijst van producten waarbij de uiteindelijke gebruiker zijn focusproducten moet aangeven. Wat ik nu wil is dat de gemaakte selectie wordt weergegeven in een bepaalde kolom. Dit lukt mij wel met een singe selection listbox, maar ik weet niet hoe dat moet bij een multiple selection listbox. (Waarschijnlijk via VBA).

Ik heb al een tijdje op internet zitten zoeken maar ik vind geen mogelijke antwoorden.

Bijgevoegd zit een voorbeeld bestandje dat mijn vraag zou moeten verduidelijken.

Bekijk bijlage Voorbeeld Multiple listbox.xlsm

Wie kan mij helpen?

Alvast SUPER bedankt!!!

Gr. Luuk

 

[snb]

Private Sub ListBox1_Change()
    Cells(2 + ListBox1.ListIndex, 8) = IIf(ListBox1.Selected(ListBox1.ListIndex), ListBox1.List(ListBox1.ListIndex), "")
End Sub

of

Private Sub ListBox1_Change()
   With Listbox1
      Cells(2 + .ListIndex, 8) = IIf(.Selected(.ListIndex), .List(.ListIndex), "")
   end with
End Sub

 

[baas1990]

Hiermee kan ik uit de voeten =)

SUPER BEDANKT!

Wat is eigenlijk het verschil tussen beiden codes?

 

[snb]

Het verschil tussen beide codes:

funktioneel identiek, maar schrijfwijze korter en naar het schijnt (wat in boekjes wordt beweerd) sneller, en in het onderhoud simpeler.
Zoek in de VBEditor met F1 naar With...End With