Ausgabe aller möglichen Kombinationen keno in Excel

[Sevencloves]

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.

[Peter K.]

Schau hier mal rein : - - K L I C K - -

Vollsystemgenerator in Basic

Kannst Du ganz leicht auf Deine Forderung anpassen - -


Viel Spaß

Peter K.

.

[Sevencloves]

danke kannst du das für 4 aus 35 einstellen ich habe da keine Ahnung.
gruss
sevencloves

[Sevencloves]

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