Private Sub UserForm_Initialize()
Dim rng As Range
Set rng = Worksheets("Daten").Range("A1").CurrentRegion
lstArtikel.List = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, _
rng.Columns.Count).Value
End Sub
Private Sub cmdOK_Click()
Dim iRowL As Integer, iRow As Integer, iCounter As Integer
iRowL = Cells(21, 1).End(xlUp).Row + 1
iRow = 1
For iCounter = 0 To lstArtikel.ListCount - 1
If lstArtikel.Selected(iCounter) Then
iRow = iRow + 1
Cells(iRow, 1) = Worksheets("Daten").Cells(iCounter + 2, 1)
Cells(iRow, 2) = Worksheets("Daten").Cells(iCounter + 2, 2)
Cells(iRow, 3) = Worksheets("Daten").Cells(iCounter + 2, 3)
Cells(iRow, 5).Formula = "=RC[-2]*RC[-1]"
End If
Next iCounter
Unload Me
End Sub