Private Sub cmdAuswahl_Click()
Dim iCounter As Integer
Dim sTxt As String
For iCounter = 0 To lstAuswahl.ListCount - 1
If lstAuswahl.Selected(iCounter) Then
sTxt = sTxt & lstAuswahl.List(iCounter) & ","
End If
Next iCounter
sTxt = Left(sTxt, Len(sTxt) - 1)
Range(sTxt).Select
End Sub