Private Sub ListBoxAuswahl(DieListbox As MSForms.ListBox, StartZelle As Range)
Dim vX() As Variant, i As Long, z As Long, k As Integer
With DieListbox
For i = 0 To .ListCount - 1
If .Selected(i) Then z = z + 1
Next i
If z = 0 Then Exit Sub
ReDim vX(1 To z, 1 To .ColumnCount)
z = 0
For i = 0 To .ListCount - 1
If .Selected(i) Then
z = z + 1
For k = 0 To .ColumnCount - 1
vX(z, k + 1) = .List(i, k)
Next k
End If
Next i
End With
With StartZelle
Range(.Parent.Cells(StartZelle.Row, StartZelle.Column), _
.Parent.Cells(StartZelle.Row + z - 1, _
StartZelle.Column + DieListbox.ColumnCount - 1)).Value = vX
End With
End Sub