Thomas Risi Softwareentwicklung

ComboBox / ListBox (mehrspaltig)

Wie fügt man Daten in eine mehrspaltige ComboBox / ListBox ein. Nun hier bieten sich mehrere Lösungen an. Hier sind zwei ...

Ziel ist es, den Inhalt des Bereiches "A1:C20" (im 4. Arbeitsblatt) in einer dreispaltigen ListBox (ComboBox) darzustellen. Setzten Sie hierzu die Eigenschaft ColumnCount der ListBox (ComboBox) auf den Wert 3 (entspricht 3 Spalten). Jetzt noch folgendes Programm starten.



Version 1 ...

Private Sub CommandButton1_Click() Dim arr(19, 2) For i = 0 To 19 For j = 0 To 2 arr(i, j) = Worksheets(4).Cells(i + 1, j + 1).Value Next j Next i ListBox1.List() = arr ' ComboBox1.List() = arr End Sub

Version 2 ...

Private Sub CommandButton1_Click() Dim arr As Variant arr = Worksheets(4).Range("A1:C20") ListBox1.List() = arr 'ComboBox1.List() = arr End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)