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