Option
Explicit
Private
Sub
Zufallszahl()
Dim
intZahl(1
To
10)
As
Integer
Dim
intZaehler
As
Integer
Dim
intalteZahlen
As
Integer
For
intZaehler = 1
To
10
intZahl(intZaehler) = Int(Range(
"H3"
).Value * Rnd + 1)
Cells(intZaehler,
"B"
) = intZahl(intZaehler)
For
intalteZahlen = 2
To
intZaehler - 1
If
intZahl(intZaehler) = intZahl(intalteZahlen)
Then
MsgBox intZahl(intZaehler) &
" wurde schon gezogen!"
intZaehler = intZaehler - 1
Exit
For
End
If
Next
intalteZahlen
Next
intZaehler
End
Sub