mir verbleibt eine Frage zu nachfolgendem Code:
Private Sub CommandButton1_Click()
Dim iList As Integer, iRow As Integer
iRow = 10 - 1
Worksheets("Tabelle2").Range(Worksheets("Tabelle2").Cells(iRow, 4), _
Worksheets("Tabelle2").Cells(iRow + ListBox1.ListCount, 4)).ClearContents
With ListBox1
For iList = 0 To ListCount - 1
If .Selected(iList) Then
iRow = iRow + 1
Worksheets("Tabelle2").Cells(iRow, 3).Value = .List(iList)
End If
Next iList
End With
End Sub
Die ListBox enthält 7 Elemente, ausgelesen werden immer nur 6... Kann mir jemand helfen?
Grüße,
Markus