Tach!
Wie wird der Inhalt einer Listbox mit ca. 3 Spalten und beliebig vielen Zeilen, komplett in einen bestimmten Bereich eines Tabellenblatts kopiert? Also, der Inhalt der Liste soll beginnend bei A1 eingefügt werden. Wenn ich das Objekt an eine Zelle binde wird ja nur ein Wert aus der markierten Zeile übernommen.
Mir reicht vielleicht nur ein Zauberwort d.h. mit welcher Methode bekomme ich das hin?
Vielen Dank im Voraus
Georg
Hallo Georg,
Du könntest ungefähr so vorgehen:
Dim i%
i = ListBox1.ListCount
For n = 0 To i - 1
Cells(n + 1, 1) = ListBox1.List(n, 0)
Cells(n + 1, 2) = ListBox1.List(n, 1)
Cells(n + 1, 3) = ListBox1.List(n, 2)
Next
Viele Grüße
Jörg