1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

'ArrayFunktion zur Erzeugung einer zufälligenen Reihenfolge der Zahlen
'von 1 .. n. Die Funktion liefert einen n-Dim Array in einer Spalte zurück
'ggf. Auslieferung der per Array-Funktion angeforderten x Werte.
'z.B x=10 aus 2500: A1:A10{=zufallsverteilung(2500)}
'Markiere A1:A10 und gibt die Formel ein - schließe mit Strg+Umschalt+Eingabe ab
'97()hw::lemitec.de
Function Zufallsverteilung(n As Integer)
Dim i As Integer, nim As Integer, p As Integer, x() As Integer
ReDim x(n - 1, 0) As Integer
 For i = 0 To n - 1: x(i, 0) = i + 1: Next
 Randomize
 For i = 0 To n - 1
     ' Zufallsposition 0 <= nim <= n-i aus Liste bestimmen
     nim = Int(Rnd * (n - i))
     ' Letzten Eintrag aus der Liste auf die NIM Position setzen
     ' Eintrag von Position NIM auf den letzten Eintrag stellen
     ' und Liste beim Hochzählen von i um den letzten Eintrag kürzen
     p = x(nim, 0): x(nim, 0) = x(n - 1 - i, 0): x(n - 1 - i, 0) = p
 Next
 Zufallsverteilung = x
End Function