'Deklaration allgemein
dim Zahlen() as string
 
Function Lotto()
 
dim Minderer as integer  'Sorry kein besserer Name eingefallen ;-)
 
 
with recordset
ReDim Zahlen( .recordcount)   'Anpassung des Feldes an die vorhandenen 
' Datensätze
 
'Feld mit Zahlen von Vokabeln bis .recordcount und füllen
 
'Falls nötig zum ersten Datensatz springen
if not .bof then .movefirst
 
For n = 0 To .recordcount
Zahlen(n) = n
Next n
end with
 
Randomize Timer
Minderer = 0
 
For n = 1 To ubound(zahlen)-1   'sonst wird die Schleife einmal zu oft 
' durchlaufen
Zufallszahl = Int(Rnd * (ubound(zahlen)-1 - Minderer)) + 1
 
'Vertauschen um Duplikate zu vermeiden
'1)Der letzte Eintrag aus dem Feld wird in die Variable "Lauf" geschrieben
'2)Der Wert an der Position check wird ans Ende geschrieben
'3)Der Wert aus "Lauf" wird an die Position von Zahlen(Check) geschrieben
'4)Nächster Durchgang mit Ende-1
 
Tab_Ende = Zahlen(ubound(zahlen)-1 - Minderer)
Zahlen(ubound(zahlen)-1- Minderer) = Zahlen(Zufallszahl)
Zahlen(Zufallszahl) = Tab_Ende
 
Minderer = Minderer + 1   'Indexvariable zum reduzieren der Tabellengröße
 
'Daten in die Textfelder eintragen
textfeld.text=zahlen(n)
 
Next n
 
End Function