+- Lotto-Totostrategen (https://Lotto-Totostrategen.de)
+-- Forum: Keno (https://Lotto-Totostrategen.de/forumdisplay.php?fid=886)
+--- Forum: Diverses (https://Lotto-Totostrategen.de/forumdisplay.php?fid=948)
+--- Thema: Ausgabe aller möglichen Kombinationen keno in Excel (/showthread.php?tid=26556)
Hallo Gibt es möglichkeiten das ich die Kombination von 4 aus 35 in Excel schreiben lassen kann? Ich brauche das für K - Sevencloves - 01.01.2019
Hallo
Gibt es möglichkeiten das ich die Kombination von 4 aus 35 in Excel schreiben lassen kann?
Ich brauche das für Keno.
danke jetzt schon für eure Antworten.
:wink: Schau hier mal rein : [URL=https://www.lotto-totostrategen.de/thread.php?threadid=6592&sid=]- - K L I C K - Peter K. - 01.01.2019
Schau hier mal rein : - - K L I C K - -
Vollsystemgenerator in Basic
Kannst Du ganz leicht auf Deine Forderung anpassen - -
Viel Spaß
Peter K.
.
danke kannst du das für 4 aus 35 einstellen ich habe da keine Ahnung. gruss sevencloves - Sevencloves - 01.01.2019
danke kannst du das für 4 aus 35 einstellen ich habe da keine Ahnung.
gruss
sevencloves
Danke alles erlegit habe es geschaft Sub Lotto_moegliche_Kombinationen() Dim i As Byte, j As Byte, k As Byte, l A - Sevencloves - 02.01.2019
Danke alles erlegit habe es geschaft
Sub Lotto_moegliche_Kombinationen()
Dim i As Byte, j As Byte, k As Byte, l As Byte
Dim c As Integer, r As Long
r = 1
c = 1
Application.ScreenUpdating = False
For i = 1 To 32
For j = i + 1 To 33
For k = j + 1 To 34
For l = k + 1 To 35
Cells(r, c) = i & " " & j & " " & k & " " & l
r = r + 1
If r > 65536 Then
Application.ScreenUpdating = True
c = c + 1
r = 1
ThisWorkbook.Save
If c > 256 Then
c = 1
Worksheets.Add
End If
Application.ScreenUpdating = False
End If
Next
Next
Next
Next
End Sub