[VBA]Private Sub knop_verwijder_Click()
i = 0
For j = UBound(ListBox1.List) To 0 Step -1
If ListBox1.Selected(j) Then
Sheets(1).Cells(20, 1).Offset(i).Resize(, UBound(ListBox1.List, 2) + 1) = Application.Index(ListBox1.List, j + 1)
ListBox1.RemoveItem j
i = i + 1
End If
Next
End Sub[/VBA]