![]() |
Ausgabe aller möglichen Kombinationen keno in Excel - Druckversion +- 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 |