Zahlenkombinationen
23.09.2005 08:31:17
Erich
habe mir einen Code für Zahlenkombinationen abgespeichert:
Sub Varianten()
' Call doVarianten(4, 1, 1, Array(1, 2, 3, 4))
' Call doVarianten(6, 1, 1, Array(1, 2, 3, 4, 5, 6))
' Call doVarianten(7, 1, 1, Array(1, 2, 3, 4, 5, 6,7))
Call doVarianten(8, 1, 1, Array(1, 2, 3, 4, 5, 6, 7, 8))
End Sub
Sub doVarianten(n As Integer, zeile As Long, spalte As Integer, werte As Variant)
Dim i As Integer, j As Long, ar As Variant, akt_zeile As Long
For i = 1 To n
akt_zeile = zeile
For j = 1 To Application.WorksheetFunction.Fact(n - 1)
Cells(zeile, spalte) = werte(i - 1)
zeile = zeile + 1
Next
If n > 1 Then
ar = Filter(werte, werte(i - 1), False)
Call doVarianten(n - 1, akt_zeile, spalte + 1, ar)
End If
Next
End Sub
Diesen wollte ich so umbauen, dass er aus 10 oder 20 Zahlen die Kombinationen
immer in einer Zelle erstellt, die sich aus drei Zahlen jeweils zusammensetzen.
Hier ein Muster:
| |||||||||||||||||||||||||||||||||||||||||||||||
Optimal wäre es natürlich, wenn ich in der Zeile 1 die "Auswahlzahlen"
habe und in der Zeile 2 das eintragen beginnt. Im obigen Code gehts in
Zeile 1 bereits los. Geht so was ?
Besten Dank für eine Hilfe!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
Private Tippgemeinschaft für Lotto oder KENO: http://www.kenostrategen.de