Hey ans Forum,
um den quälenden Fragen der Verwandschft aus dem Weg zu gehen (Welche Zahlen soll ich den Spielen?), habe ich einen Lottozahlengenerator für Excel geschrieben. Dieser zieht Zahlen zwischen 1 und 49 für bis zu 100 Spiele. Bei der Durchsicht der Ergebnisse fällt mir auf, daß in fast allen Zahlenreihen Päarchen oder Blöcke von Zahlen zu finden sind. Die Frage ist, ob der Zufall echt ist, oder es an meinen VBA Text liegt. Falls jemand eine Idee hat, bin ich für jede Antwort dankbar.
Die Zahlenverteilung ist in Lotto Ergebnis.xls zu sehen. https://www.herber.de/bbs/user/11030.xls
VBA Text für die "Ziehung":
' Ziehung der Zahlen
For Zähler01 = 1 To AnzahlSpiele

For Zähler02 = 1 To AnzahlZahlen
' Prüfung ob Zahl zwischen 1 und 49
Zufallszahl:

Do
Ergebnis = Int(50 * Rnd(12345))

Loop While Ergebnis 49

Gezogen(Zähler02) = Ergebnis
' ***

' Prüfung auf doppelte Zahl

For Prüfung = 1 To Zähler02 - 1
If Gezogen(Prüfung) = Ergebnis Then GoTo Zufallszahl
Next Prüfung

' ***

'Markieren des Ergebniss


Worksheets("Lotto").Cells(Zeile + 2 * Zähler01, Spalte + Ergebnis).Select
With Selection
.Font.Name = "Courier New"
.Font.FontStyle = "Fett"
.Font.Size = 16
.Font.Strikethrough = False
.Font.Superscript = False
.Font.Subscript = False
.Font.OutlineFont = True
.Font.Shadow = False
.Font.Underline = xlUnderlineStyleNone
.Font.ColorIndex = 0
.Columns.AutoFit
End With

Next Zähler02
' Nächste Zahl

Next Zähler01
' Nächste Reihe
Range("c4").Select
' ***
Danke für die Hilfe
Joachim