VBA füllen Listbox in UF
24.04.2020 21:37:52
Fippe
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.
Anzeige