Hallo,
so sollte es gehen. Dim a As Long
For a = 0 To Me.ListBox1.ListCount
Cells(a + 1, 3) = Me.ListBox1.ListIndex = a
Next a
Gruß
Tino
AW: Listbox entleeren
04.05.2008 10:05:00
Wulf
klappt leider nicht. bekomme nur wahr und Falsch in das Worksheet importiert.
AW: Listbox entleeren
04.05.2008 10:11:00
Tino
Hallo,
habe es jetzt mal getestet, so geht es richtig. Dim a As Long
For a = 0 To Me.ListBox1.ListCount - 1
Cells(a + 1, 3) = Me.ListBox1.List(a)
Next a
Gruß
Tino
AW: Listbox entleeren
04.05.2008 10:17:00
Wulf
perfekt... danke
Alternativ-Lösung
04.05.2008 11:55:00
Daniel
Hallo
wenn die ganze Listbox übertragen werden soll, gehts so in einer Zeile:
With ListBox1
Cells(1, 3).Resize(.ListCount, .ColumnCount) = .List
End With