so sieht das ganze aus...aber ich versteh nich ganz wie ich das jetzt wdh lassen soll. Was muss ich den eingeben wenn sich dieser Part wdh soll? :)
Sub losnummer()
'leere zelle ermitteln
r = 1
zelle = "OK"
If Cells(r, 1) = "" Or Cells(r, 1) = " " Then zelle = "LEER"
Do While zelle = "OK"
r = r + 1
If Cells(r, 1) = "" Or Cells(r, 1) = " " Then zelle = "LEER"
Loop
'leere zelle ermitteln
'zufallszahl ermitteln
versuch = 0
prf = "NOCHMAL"
Do While prf = "NOCHMAL"
zahl = Int((320 - 1 + 1) * Rnd + 1)
prf = "OK"
'prüfen ob zahl schon vorhanden
For x = 1 To r - 1
If Cells(x, 1) = zahl Then prf = "NOCHMAL"
Next x
'prüfen ob zahl schon vorhanden
'wenn keine gültige zahl nach 20 versuchen gefunden dann fragen
versuch = versuch + 1
If versuch = 21 Then
ant = MsgBox("nach 20 versuchen nichts gefunden. weitermachen?", vbYesNo)
If ant = vbYes Then versuch = 0
If ant = vbNo Then prf = ""
End If
'wenn keine gültige zahl nach 20 versuchen gefunden dann fragen
Loop
'zufallszahl ermitteln
If prf <> "" Then Cells(r, 1) = zahl
End Sub
|