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.