https://www.herber.de/forum/archiv/1244to1248/t1245164.htm
Dim i, zeile As Long
zeile = .Cells(.Rows.Count, "G").End(xlUp).row + 1
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
If .Cells(zeile, "G") = "" Then
.Cells(zeile, "G") = ListBox2.List(i)
Else
.Cells(zeile, "G") = .Cells(zeile, "G") & "," & ListBox2.List(i)
End If
Else
End If
Next
hab schon an jeder erdenklicher stelle probiert aber ich bekomme es nicht hin, das wenn nichts ausgewählt wurde, in der excel Tabelle "keine" eingetragen wird. :(