Zufallszahlen von 1-10

[Suggi]

Hallo Zusammen,
ich bräuchte eure Hilfe. Und zwar ich muss hintereinander 3 ganzzahlige Zufallszahlen zwischen 1 und 10 finden wobei die auftgetauchte Zahl dann nicht mehr kommen darf. Es ist vergleichbar mit ziehen aus einer Urne mit anschließendem weglegen der Kugel

Danke schonmal im vorraus
MFG

[Stephan]

Eine Lösung ist beispielsweise mittels benutzerdefinierter Funktion möglich. Eine entsprechende Funktion könnte z.B. so aussehen:

Code: Alles auswählen

Function xzufall(Optional x, Optional y)
Dim alle(9)
For i = 0 To 9
alle(i) = i + 1
Next i

If Not(IsMissing(x)) Then
	For i = 0 To 9
		If alle(i) = x Then
			For j = i To 8
				alle(j) = alle(j+1)
			Next j
			Redim Preserve alle(8)
			Exit For
		End If
	Next i
End If

If Not(IsMissing(y)) Then
	For i = 0 To 8
		If alle(i) = y Then
			For j = i To 7
				alle(j) = alle(j+1)
			Next j
			Redim Preserve alle(7)
			Exit For
		End If
	Next i
End If

tmp = UBOUND(alle())
tmp2 = INT(Rnd*(tmp+1))

xzufall = alle(tmp2)

End Function

Beispieldatei siehe untenstehend.



Gruß
Stephan

[Suggi]

Ah ok vielen Dank hat mir sehr geholfen
Gruß Daniel