If chk_Fert.Value = 1 Then
         Dim arrartikel() As String
         ReDim arrartikel(txt_FertAnzahl.Text) As String
 
 
         Randomize -Timer
  Dim Ziehung As Integer
  Dim I As Integer
  Dim Result As Boolean
  Dim Zahl As Integer
Ziehung = 0
  While Ziehung < txt_FertAnzahl.Text
    Ziehung = Ziehung + 1
    Do
      Zahl = Int(List_Fert.ListCount * Rnd + 1)
      Result = True
      For I = 1 To Ziehung - 1
        If arrartikel(I) = Zahl Then
          Result = False: Exit For
        End If
      Next I
    Loop Until Result = True
    arrartikel(Ziehung) = Zahl
  Wend
  For I = 1 To UBound(arrartikel)
    List_Result.AddItem , List_Fert.List(arrartikel(I))
  Next
  End If

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)