Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1752to1756
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA füllen Listbox in UF
24.04.2020 21:37:52
Fippe
Liebe Forums-Teilnehmer, Ich komme derzeit nicht weiter beim Befüllen meiner listbox2 im Userform. Im Userform-Initialize-Ereignis leere ich zuerst die Textboxen und die listbox.
Danach eine Schleife
Dim lZeile As Long
lZeile = 2
Do While Trim(CStr(Sheets("Artikel").Cells(lZeile, 1).Value)) ""
.ListBox2.AddItem Trim(CStr(Sheets("Artikel").Cells(lZeile, 1).Value))
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
Damit habe ich eine erste Spalte gefüllt. Wie bekomme ich es nun hin, dass ich weitere Spalten aus meinemTabellenblatt "Artikel" ist das listbox füllen kann?
Besten Dank für eure Mithilfe.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA füllen Listbox in UF
25.04.2020 07:42:13
hary
Moin
Meinst du mehrere Spalten in der Listbox befuellen?
Der Spaltenindex der Listbox faengt mit 0(erste Spalte) an.
Dim lZeile As Long
lZeile = 2
With ListBox2
.Clear
.ColumnCount = 2 '--Spaltenanzahl der Listbox
Do While Trim(CStr(Sheets("Artikel").Cells(lZeile, 1).Value))  ""
.AddItem Trim(CStr(Sheets("Artikel").Cells(lZeile, 1).Value)) '--SpalteA in 1. Spalte
.List(.ListCount - 1, 1) = Trim(CStr(Sheets("Artikel").Cells(lZeile, 2).Value)) '--SpalteB  _
in 2. Spalte
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
End With

AW: VBA füllen Listbox in UF
25.04.2020 09:46:55
Fippe
Moin und vielen Dank, hary. Ich glaub ich habs jetzt kapiert!
Anzeige

130 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige