DIM strArray As Long 'Testen ob Zahl schon mal gezogen
Dim k as Integer
Dim k as Zahl
 
strArray =";"
 
For k=0 to maxInt
     Zahl = Int(List_Fert.ListCount * Rnd + 1)
	if not(instr(strArray,Zahl) then 'Test ob Zahl schon da
		if test(List_Fert.List(Zahl)) Then 'Hier könnten weitere Tests stattfinden || 
' Kann auch wegfallen
			List_Result.AddItem List_Fert.List(Zahl)
			strArray=strArray & Zahl & ";"
		End If
	end if
Next