Sub Schaltfläche11_Klicken()
Dim lListBox As Long
Dim lZeile As Long
With ThisWorkbook.Worksheets("Auswahl")
.Range("W4:W" & .Cells(Rows.Count, 3).End(xlUp).Row).ClearContents
For lListBox = 0 To ListBox8.ListCount - 1
If ListBox8.Selected(lListBox) Then
lZeile = lZeile + 1
.Range("W" & lZeile).Value = ListBox8.List(lListBox, 0)
End If
Next lListBox
End With
Ich erhalte immer Fehler 424 Objekt erforderlich.
Ich weiß nicht ws falsch ist.
Warum sind die Werte in der Listbox nicht enthalten?