Sub Schaltfläche11_Klicken()
Dim lListBox As Long
Dim lZeile As Long
Dim oListBox As MSForms.ListBox
Set oListBox = ThisWorkbook.Worksheets("Auswahl").OLEObjects("ListBox8").Object
With ThisWorkbook.Worksheets("Auswahl")
.Range("W4:W" & .Cells(Rows.Count, 3).End(xlUp).Row).ClearContents
For lListBox = 0 To oListBox.ListCount - 1
If oListBox.Selected(lListBox) Then
lZeile = lZeile + 1
.Range("W" & lZeile).Value = oListBox.List(lListBox, 0)
End If
Next lListBox
End With
End Sub