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

Wie nützlich finden Sie diesen Tipp?

	1	2	3	4	5
Weniger nützlich						Sehr nützlich

Bitte teilen Sie uns mit, warum Sie die Seite so bewertet haben. (optional)