Lottokarten selbst erstellen

Wer kann mir helfen?
Ich lebe in der Schweiz und hier kann man legal Lottomatch (Bingo) spielen. Ich erstelle meine Karten dafür selbst. Gezogen werden die Zahlen 1-90. Eine Karte hat 15 Zahlen (siehe Beispiel).
Karte mit 15 Zahlen
20 49 68 71 85 gespielt wird um 1 Reihe
21 35 69 79 83 gespielt wird um 2 Reihe
14 43 57 61 76 gespielt wird um ganze Karte
70,31,58,25,14,51,85,66,8,22,72,64,84,42 das sind die Zahlen die für die
erste 1. Reihe aufgerufen worden sind
90,60,30,21,67,3,18,23,4,38,9,47,78,89,26,56,49,35,41,37,57,55 das sind die Zahlen die für die
erste 2. Reihe aufgerufen worden sind
77,36,1,83,74,43,16,65,46,13 ,61,33,40,20,24,59, 6 das sind die Zahlen die für die
ganze Arte aufgerufen worden sind
86,70,63,60,28,22,89,36,73,3,67,39,50,56,7,47,11 das sind die Zahlen die für die
erste 1. Reihe aufgerufen worden sind
59,9,66,25,24,84,52,40,79,6,33,83,62,71,64,69,2,74,65,41,49 das sind die Zahlen die für die
erste 2. Reihe aufgerufen worden sind
55,72,42,35,1,57,19,51,48,21,16,20,5,27,8,61,18,75,34 das sind die Zahlen die für die
ganze Arte aufgerufen worden sind
Nun möchte ich aus den vielen Zeilen die besten Kombinationen finden, um diese auf einer Karte zu erstellen. Ich weiss aber nicht wie ich das machen soll, ohne das ich eine Monatsarbeit daraus mache. Sollte jemand eine Lösung haben, bitte ich um genaue Anweisung (im Detail), da ich bis jetzt nur normale Sachen in Excel gearbeitet habe. Für eure Mühe möchte ich mich schon vorab recht herzlich bedanken.
Mit freundlichen Gruss an alle
Cornelia

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo lieber Reinhard,
besten Dank für deine schnelle Antwort. Ich möchte die besten Zahlenkombinaten (Häufigkeit) aus den ausgerufenen Zahlen für die 1. Reihe ermitteln. Dann für die 2. Reihe und dann für die 3. Reihe (ganze Karte). Gespielt werden 18x 1 Reihe, 18x 2 Reihen und 18x 3 Reihen (ganze Karte).
Das sind die ausgerufen 18x 1 Reihe
8,14,22,25,31,42,51,58,64,66,70,72,84,85 (z.B 22,31,)
3,7,11,22,28,36,39,47,50,56,60,63,67,70,73,86,89
2,15,18,19,22,31,32,33,36,43,46,50,56,66,67,71,79,80 (z.B. 22,31,67)
1,11,12,15,16,26,29,35,36,43,44,49,57,60,62,68,69,74,76,79,84
9,17,23,28,33,42,44,52,60,64,75,78,84,89,90
1,11,14,34,49,57,73,76,86
2,3,13,14,15,16,17,21,22,25,31,53,62,67,68,72,80,81,89 (z.B. 22,31,67)
3,6,8,9,26,30,35,41,55,57,62,66,74,78,86,
3,6,13,15,25,27,36,40,41,46,50,54,56,60,67,68,70,76,77,80,87
12,20,25,26,30,36,37,47,48,56,57,61,70,73,75,81
7,12,15,17,25,30,33,35,36,40,49,58,66,71,78,81,85
9,17,19,28,34,35,37,39,59,62,64,65,66,67,69,73,79,84
4,11,14,28,33,35,41,53,55,57,61,66,69,75,77
3,8,14,19,22,25,43,46,68,76,80,81
7,14,20,23,31,49,55,59,68,75,84
10,12,16,31,35,40,44,48,55,83,88
8,9,10,22,30,31,37,39,40,47,52,57,59,72,79,86,88
5,12,17,21,29,30,31,41,43,58,66,71,73,77,81,89
Aus diesen Zeilen möchte ich die 3 häufigsten Zahlen, bzw. 4 häufigsten Zahlen und maximal die 5 besten für 1 Reihe finden und dann auf meine Karte übertragen. Ich hoffe, das ich es einigermassen gut erklärt habe. Zu meinem bedauern verstehe ich von dem was du geschrieben hast kein Wort


Sub Bingo()
Dim colC As New Collection, Z As Byte, Zei As Long, Spa As Long
On Error Resume Next
While colC.Count

Kannst du trotzdem weiter helfen. Tausend Dank im voraus.
Cornelia

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread