Private Sub List1_Click()
 
    cmbPersonen(0).Clear
    With List1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                .ListIndex = i      ' nicht genügend Stapelspeicher (Fehler 28)
                cmbPersonen(0).AddItem .Text
            End If
        Next i
    End With
 
End Sub