die Werte aus den 8 Spalten meiner Listbox sollen in Tabellenblatt3 nach Klick auf den CommandButton geschrieben werden und zwar immer in die letzte freie Zeile.
Kopieren der Daten geht - aber nicht in die letzte freie Zeile.
Hier mein Code:
Private Sub CommandButton3_Click()
Dim last As Integer
last = Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 0 To ListBox2.ListCount - 1
Tabelle3.Cells(i + 3, 1) = ListBox2.List(i, 0)
Tabelle3.Cells(i + 3, 2) = ListBox2.List(i, 1)
Tabelle3.Cells(i + 3, 3) = ListBox2.List(i, 2)
Tabelle3.Cells(i + 3, 4) = ListBox2.List(i, 3)
Tabelle3.Cells(i + 3, 5) = ListBox2.List(i, 4)
Tabelle3.Cells(i + 3, 6) = ListBox2.List(i, 5)
Tabelle3.Cells(i + 3, 7) = ListBox2.List(i, 6)
Tabelle3.Cells(i + 3, 8) = ListBox2.List(i, 7)
Next
End Sub
WO LIEGT DER FEHLER?