Private Sub insert_product_Click()
Dim i As Integer
Dim rngAusgabe As Range
On Error Resume Next
Set rngAusgabe = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
rngAusgabe = .Column(0, i)
rngAusgabe.Offset(0, 1).Value = .Column(0, i)
rngAusgabe.Offset(0, 2).Value = .Column(1, i)
rngAusgabe.Offset(0, 3).Value = .Column(2, i)
rngAusgabe.Offset(0, 4).Value = .Column(3, i)
Set rngAusgabe = rngAusgabe.Offset(1, 0)
End If
Next i
End With
Set rngAusgabe = Nothing
End Sub