Private Sub cmdGetUnused_Click()
On Error GoTo Err
 
    Dim bFound As Boolean
    Dim i As Integer, j As Integer
    Dim iArtikNum_Start As Long, iArtikNum_End As Long
    Dim sCompare As String
 
    lblStatus.Caption = "Status: Erstelle Comparestring..."
    ProgressBar1.Value = 0
    ProgressBar1.Max = List1.ListCount - 1
    ProgressBar1.Min = 0
    For i = 0 To List1.ListCount - 1
        DoEvents
        sCompare = sCompare & LCase(List1.List(i)) & "<:>"
        ProgressBar1.Value = i
    Next i
 
    If List1.ListCount > 0 Then
        iArtikNum_Start = CLng(List1.List(0))
        iArtikNum_End = CLng(List1.List(List1.ListCount - 1))
 
        If iArtikNum_End > 0 And iArtikNum_End > iArtikNum_Start Then
            ProgressBar1.Value = 0
            ProgressBar1.Max = iArtikNum_End
            ProgressBar1.Min = iArtikNum_Start
 
            For i = iArtikNum_Start To iArtikNum_End
                DoEvents
                lblStatus.Caption = "Status: suche " & CStr(i) & "..."
                If InStr(1, sCompare, CStr(i) & "<:>") = 0 Then _
                  List2.AddItem CStr(i)
                ProgressBar1.Value = i
            Next i
        End If
 
        lblStatus.Caption = "Status: Vorgang abgeschlossen!"
        MsgBox "Fertig!", vbInformation, ""
        lblStatus.Caption = "Status:"
        ProgressBar1.Min = 0
        ProgressBar1.Value = 0
    Else
        MsgBox "Fehler", vbCritical, ""
    End If
 
Exit Sub
Err:
    MsgBox Err.Description, vbCritical, ""
End Sub
 
' /////////////////////////////////////////////////////////////////////////////
' ////////////////////////
' // Ab hier werden die "vorhanden" Artikelnummern generiert
' // Also: unwichtig
' /////////////////////////////////////////////////////////////////////////////
' //////////////////////
 
Private Sub Form_Load()
Randomize
 
    Dim i As Integer
    For i = 10000 To 30000
        If GetRandomNum(0, 100) < 99 Then List1.AddItem i
    Next i
 
End Sub
 
Private Function GetRandomNum(Min As Long, Max As Long) As Long
    GetRandomNum = Int(Rnd * (Max - Min + 1) + Min)
End Function
 
Private Sub Form_Unload(Cancel As Integer)
 
    Unload Me
 
End Sub

Mit freundlichen Gr??en,
Andy G.