Listbox met 2 of meer kolommen

[apikills]

Hoe krijg ik het voor elkaar om een listbox in excel te maken, waarin 2 of meerdere kolommen worden weergegeven? Deze kolommen moeten dan uit een selectie uit een tabblad worden gehaald.

Hoor graag jullie reactie

apikills

 

[Spiderman]

Hoi apikills,

Onderstaande code heb ik uit de Windows Excel Help

Zet een Listbox op Blad1
Zet een Button op Blad1

Druk ALT+F11
Dubbelklik aan de linkerkant op Blad1(blad1) en plak onderstaande code

Dim MyArray(6, 3)
Private Sub CommandButton1_Click()

    Dim i As Single
     'The 1st list box contains 3 data columns
    Sheets("Blad1").ListBox1.ColumnCount = 2

    'Load integer values into first column of MyArray
    For i = 0 To 5
        MyArray(i, 0) = i
    Next i

    'Load columns 2 and three of MyArray
    MyArray(0, 1) = "Zero"
    MyArray(1, 1) = "One"
    MyArray(2, 1) = "Two"
    MyArray(3, 1) = "Three"
    MyArray(4, 1) = "Four"
    MyArray(5, 1) = "Five"

    MyArray(0, 2) = "Zero"
    MyArray(1, 2) = "Un ou Une"
    MyArray(2, 2) = "Deux"
    MyArray(3, 2) = "Trois"
    MyArray(4, 2) = "Quatre"
    MyArray(5, 2) = "Cinq"

    'Load data into ListBox1 and ListBox2
    ListBox1.List() = MyArray

' Bron Microsoft Excel Help
End Sub

Druk nu op de knop op Blad1 en Klaar is Kees

 

[apikills]

Helemaal Top Spiderman :thumb: