Office: Lotto generator

Hallo
Machen in der Schule gerade einen Lotto Zahlen generator und hab keine ahnung wie ich überprüfen kann ob eine Zahl bereits gezogen wurde
Ich habe bis jetzt, dass er mir 6 verschiedene Zahlen anzeigt
Aber machnmal zeigt er mir eine Zahl 2 mal an
Wie kann ich ihn überprüfen lassen ob diese Zahl bereits vorhanden ist
Lehrer hat irgendwas von Zählschleifen gesagt

Die Zahlen bekomme ich so:

Private Sub Lotto_Click()
Dim Zahl As Integer
Randomize
Zahl = Rnd * 45 + 1
Cells(6, 6) = Zahl

und das eben 6 mal und immer in die nächste Zelle

mfg
Lukas

:)

 

Hallo Lukas,

lass den Lehrer alt aussehen, schaue bei Excelformeln.de
http://www.excelformeln.de/formeln.html?welcher=223
ohne VBA

 

da es bei uns im unterricht gerade ums programieren geht wird er nichtr sehr erfreut sein ;D

 

Hallo Lukas,

z.B. so: Code:

 

gut wie Du Deinem Lehrer dies Makro erklärst ist mir unklar.
Code:

 

Danke schonmal ;D
Aber ich sollte ihm erklären können was ich gemacht habe
und ich programiere erst seit 1 monat also ich kenn mich fast null aus ^^

 

Du hast außen rum eine die so oft durchlaufen wird bis 6 Zahlen gezogen wurden. Bei dem einen Beispiel wird die Austrittsbedingung zu Beginn festgestelllt, beim anderen am Ende.
Dann wird eine Zahl gezogen, wie vorhanden.
Jetzt folgt die Prüfung ob Zahl schon vorhanden entweder über Anzahl oder Suchen.
VBA hat auch eine Hilfe F1.

 

ich hoffe, es ist leicht erklärt...

 

danke danke danke
Das ist perfekt und das versteh ich sogar *grins

 

ich habe dir noch was reingebastelt, da freut sich dein lehrer*grins

und für mathe gleich ein neues thema eröffnet - wahrscheinlichkeit*rolleyes.gif*

 

Hallo zusammen,

Leider muss ich allen Vorschlägen den gleichen Vorwurf machen:
Bei allen Codevorschlägen kann eine Zufallszahl grösser als die gewünschte Obergrenze (45 oder 49) generiert werden. Wieso ist das so?
RND generiert eine Zufallszahl >= 0 und =1 und =1 und

 

Auch Hallo,

lies einfach Mal die VBA-Hilfe zu rnd:

Obergrenze steht hier für die größte Zahl des Bereichs und Untergrenze für die kleinste Zahl des Bereichs.

Wenn man das denn normal rundet (und nicht abrundet) erzeugt man keine gleich verteilte Zufallszahlen mehr.

cu, Bernd

 

das stimmt schon wie ich das machen
ich hab Rnd * 45 + 1
(Obergrenze - Untergrenze + 1) * Rnd + Untergrenze)
das untergrenze + 1 kürzt sich raus da beides 1 ist
und daher 45 (Obergrenze) * Rnd + 1 (Untergrenze)

 

Hallo,

Tut mir leid, aber es stimmt eben nicht, wie du das machst.
Nochmals dein Code Zahl = Rnd * 45 + 1, kann zu einer Zahl 46 führen!
Du kannst dir das selbst beweisen, indem du mit deinem Code anstelle der 6 Zahlen einfach mal 46 Zahlen generierst und sie dann sortierst!

Es gibt diese 2 möglichen Lösungen für das Generieren einer Zufallszahl >0,

 

Auch nochmal Hallo,

Normal Runden ist Quatsch. Damit erzeugst Du denn keine gleich verteilte Zufallszahlen mehr.

rnd erzeugt annähernd gleich verteilte Zufallszahlen x mit 0