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"