Listbox füllen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox
Bild

Betrifft: Listbox füllen
von: Herbert
Geschrieben am: 11.04.2005 19:13:07
Hallo Forum,
ich habe mir aus der Hilfe diesen Code kopiert und möchte nun die Listbox dreispaltig mit Werten aus einer Tabelle (Spalte A:C) füllen.


Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 3
ListBox1.AddItem "Row 1, Col 1"
ListBox1.List(0, 1) = "Row 1, Col 2"
ListBox1.List(0, 2) = "Row 1, Col 3"
ListBox1.AddItem "Row 2, Col 1"
ListBox1.List(1, 1) = "Row 2, Col 2"
ListBox1.List(1, 2) = "Row 2, Col 3"
ListBox1.AddItem "Row 3, Col 1"
ListBox1.List(2, 1) = "Row 3, Col 2"
ListBox1.List(2, 2) = "Row 3, Col 3"
ListBox1.TextColumn = 3
End Sub

Geht das überhaupt, und wenn ja - wie?
Konnte dazu nichts finden und bin für jeden Tipp dankbar.
Gruß Herbert
Bild

Betrifft: AW: Listbox füllen
von: Klaus-Dieter
Geschrieben am: 11.04.2005 20:13:49
Hallo Herbert,
das geht viel kürzer:

Private Sub UserForm_Initialize()
Dim arr As Variant
ListBox1.ColumnCount = 3
arr = Range("A1:c10")
ListBox1.List = arr
End Sub


Gruß Klaus-Dieter

Bild

Betrifft: AW: Listbox füllen
von: Herbert
Geschrieben am: 11.04.2005 20:24:07
Hallo Klaus-Dieter,
ich danke dir 1000 Mal. Klappt super.
Warum steht das nicht in der Hilfe - nur so ein komlizierter Quatsch, den kein Mensch versteht ;-((
Gruß Herbert
P.S. Es gibt zwischenzeitlich hier so viele Herbert´s (Muss doch ein Sammelbegriff für Hilfededürftige sein)
Bild

Betrifft: Danke für die Rückmeldung
von: Klaus-Dieter
Geschrieben am: 11.04.2005 21:19:07
Hallo Herbert,
weil man sonst keine Foren brauchte. ;-)

Gruß Klaus-Dieter

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Listbox füllen"