Private Sub cmdAuslesen_Click()
Dim iCounter As Integer, iRow As Integer
Columns(1).ClearContents
For iCounter = 1 To lstAuslesen.ListCount - 1
If lstAuslesen.Selected(iCounter) Then
iRow = iRow + 1
Cells(iRow, 1).Value = lstAuslesen.List(iCounter, 0)
End If
Next iCounter
Unload Me
End Sub