Private Sub cmdFormErz_Click()
 
    Dim i As Integer
 
    For i = 1 To List2.ListCount
        If List2.Selected(i) = True Then
            Form2.Show
        Else
            MsgBox "Bitte wählen Sie einen Parameter für die Auflistung aus!", _
              vbInformation, "Parameter auswählen"
        End If
    Next
 
End Sub

Man m?ge Nachsicht mit mir haben