wie kann ich den Inhalt einer Listbox (einspaltig, Userform), die per .addItem-Methode gefüllt wurde, an eine Tabelle übergeben?
Gruss Rainer
Private Sub CommandButton1_Click()
Call ListeinTabelle(Me.Controls("ListBox1"), 2, 6, "Tabelle1")
End Sub
Private Sub ListeinTabelle(Listbox As Control, StartZeile As Integer, ZielSpalte As Integer, Zieltabelle As String)
'Trägt die Elemente der Listbox in der Zieltabelle ein
For I = 0 To Listbox.ListCount - 1
Worksheets(Zieltabelle).Cells(StartZeile, ZielSpalte) = Listbox.List(I)
StartZeile = StartZeile + 1
Next
End Sub
Private Sub CommandButton1_Click()
With Sheets(1)
.Range(.Cells(1, 1), .Cells(ListBox1.ListCount, 1)) = ListBox1.List
End With
End Sub