habe folgendes Problem: In einer Userform befindet sich eine Listbox mit einer grundsätzlich unterschiedlichen Anzahl von Einträgen. Nun sollen über eine Schaltfläche alle Einträge in ein Tabellenblatt ausgelesen werden, und zwar in c2, d2, e2...
Habe hierzu folgenden Code angefertigt:
Private Sub CommandButton3_Click()
Dim i As Integer
For i = 1 To UserForm3.ListBox1.ListCount
Worksheets(UserForm1.TextBox1.Text & " " & UserForm1.TextBox2.Text).Cells(2, i + 2) = UserForm3.ListBox1.List
Exit For
Next i
Unload Me
End Sub
Der Code extrahiert jedoch nur den ersten Eintrag der Listbox in die entsprechende Zelle...
Schon jetzt vielen Dank für Hilfen jeglicher Art!
Gruss Dirk