Beiträge: 297
Themen: 2
Registriert seit: Mar 2013
Bewertung:
0
@all
Gibt es eine einfache Möglichkeit (z. B. in Excel), aus einer bestimmten Anzahl von Systemzahlen (z. B. 20), alle möglichen Kombinationen zu erstellen.
Für bis zu 10 Zahlen geht das ja noch ganz gut manuell, aber irgendwann wird es dann doch etwas mühsam.
Bin für jeden Tipp dankbar :tor:
LG Doro
*******************************************************
Das, wobei unsere Berechnungen versagen, nennen wir Zufall. (A. Einstein)
Beiträge: 6
Themen: 2
Registriert seit: Nov 2012
Bewertung:
0
Hallo Fortuna,
eine Exceltabelle habe ich leider nicht. Du kannst dir aber hier ein Programm runterladen, http://sdrv.ms/13oUiYW
das Vollsysteme bis 20 Systemzahlen erstellen und speichern kann.
Manfred
Beiträge: 7.037
Themen: 78
Registriert seit: Nov 2008
Bewertung:
2
Hi Fortuna,
versuchs mal mit folgenden Makros:
Für 10 Zahlen
Sub Lotto_6_aus_10()
Dim a%, b%, c%, d%, e%, f%, x&, y&
x = 1
For a = 1 To 5
For b = a + 1 To 6
For c = b + 1 To 7
For d = c + 1 To 8
For e = d + 1 To 9
For f = e + 1 To 10
If y = 65536 Then
y = 0
x = x + 1
End If
y = y + 1
Cells(y, x) = a & "," & b & "," & c & "," & d & "," & e & "," & f
Next f
Next e
Next d
Next c
Next b
Next a
End Sub
Für 15 Zahlen:
Sub Lotto_6_aus_15()
Dim a%, b%, c%, d%, e%, f%, x&, y&
x = 1
For a = 1 To 10
For b = a + 1 To 11
For c = b + 1 To 12
For d = c + 1 To 13
For e = d + 1 To 14
For f = e + 1 To 15
If y = 65536 Then
y = 0
x = x + 1
End If
y = y + 1
Cells(y, x) = a & "," & b & "," & c & "," & d & "," & e & "," & f
Next f
Next e
Next d
Next c
Next b
Next a
End Sub
Für 17 Zahlen:
Sub Lotto_6_aus_17()
Dim a%, b%, c%, d%, e%, f%, x&, y&
x = 1
For a = 1 To 12
For b = a + 1 To 13
For c = b + 1 To 14
For d = c + 1 To 15
For e = d + 1 To 16
For f = e + 1 To 17
If y = 65536 Then
y = 0
x = x + 1
End If
y = y + 1
Cells(y, x) = a & "," & b & "," & c & "," & d & "," & e & "," & f
Next f
Next e
Next d
Next c
Next b
Next a
End Sub
andere Poolgrößen kannst Du nach obigem Schema selbst erstellen
Gruß Peter
Erfahrung ist eine nützliche Sache.
Leider macht man sie immer erst kurz nachdem man sie brauchte.
Beiträge: 297
Themen: 2
Registriert seit: Mar 2013
Bewertung:
0
Daaaankeeee !!!
LG Doro
*******************************************************
Das, wobei unsere Berechnungen versagen, nennen wir Zufall. (A. Einstein)
Beiträge: 7.037
Themen: 78
Registriert seit: Nov 2008
Bewertung:
2
Hallo Manfred
Klasse Programm, haste das selber geschrieben??
Gruß Peter
Erfahrung ist eine nützliche Sache.
Leider macht man sie immer erst kurz nachdem man sie brauchte.
Beiträge: 7.037
Themen: 78
Registriert seit: Nov 2008
Bewertung:
2
Hi Doro,
willst Du Kombinationen mit mehr als 6 Zahlen pro Reihe erstellen mußt Du das Makro modifizieren:
Beispiel 8 aus 10 (45 Reihen)
Sub Lotto_8_aus_10()
Dim a%, b%, c%, d%, e%, f%, g%, h%, x&, y&
x = 1
For a = 1 To 3
For b = a + 1 To 4
For c = b + 1 To 5
For d = c + 1 To 6
For e = d + 1 To 7
For f = e + 1 To 8
For g = f + 1 To 9
For h = g + 1 To 10
If y = 65536 Then
y = 0
x = x + 1
End If
y = y + 1
Cells(y, x) = a & "," & b & "," & c & "," & d & "," & e & "," & f & "," & g & "," & h
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a
End Sub
Gruß Peter
Erfahrung ist eine nützliche Sache.
Leider macht man sie immer erst kurz nachdem man sie brauchte.
Beiträge: 297
Themen: 2
Registriert seit: Mar 2013
Bewertung:
0
Danke Peter, aber 6 Zahlen pro Reihe reicht mir erst mal, da ich das ja für Lotto 6/49 brauche. Aber vielleicht ist das ja ein guter Hinweis für unsere Keno-Spieler.
Ich wollte die Kombinationen zum Testen von Systemen. Da ich immer wieder mal rumspiele, dachte ich mir, dass ich das in Excel ja auch selber machen kann und hier nicht immer wieder neue Anfragen reinstellen muss. Jetzt muss ich nur noch einen schlauen Weg finden, wie ich die Gewinnwahrscheinlichkeiten am besten berechne ??? Ich knobel ja ganz gerne in Excel rum, und werde bestimmt einen Weg finden. Ob das dann der kürzeste sein wird .... Na ja, ein Tipp könnte jedenfalls nicht schaden
Manfred, danke auch für dein Programm. Wirklich sehr praktisch
LG Doro
*******************************************************
Das, wobei unsere Berechnungen versagen, nennen wir Zufall. (A. Einstein)
Beiträge: 7.037
Themen: 78
Registriert seit: Nov 2008
Bewertung:
2
Hallo Peter K.
haste gut gemacht
Das Umwandeln geht zwar auch ganz einfach (Spalte, in der die Werte stehen markieren ->Daten ->Text in Spalten ->"getrennt" auswählen ->weiter ->"Komma" anklicken ->fertig stellen)
Mit Deinem modifizierten Makro erspart man sich diese Arbeitsschritte.
LG Peter
Erfahrung ist eine nützliche Sache.
Leider macht man sie immer erst kurz nachdem man sie brauchte.
Beiträge: 7.037
Themen: 78
Registriert seit: Nov 2008
Bewertung:
2
Ich hab das auch lange Zeit nicht gewußt, bis jemand hier im Forum diese Schritte beschrieben hat. Weiß aber nicht mehr wer und wann das war. :lol1: :lol1:
LG Peter
Erfahrung ist eine nützliche Sache.
Leider macht man sie immer erst kurz nachdem man sie brauchte.
Beiträge: 11.611
Themen: 521
Registriert seit: Sep 2012
Bewertung:
24
Hi,
vielen Dank, man(n) lernt wieder dazu - und lernt mögliche Fehlerquellen :was: zu erkennen.
Transparenz pur... ![Daumen hoch Daumen hoch](https://Lotto-Totostrategen.de/images/smilies/daum.gif)
BG
Ecart
|