Hallo EXCEL-Freunde,
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:

A B C D E F G H I J K L M N 1 1 2 3 4 5 6 7 8 9 10   10 Zahlen: 120 Kombis 2 123 124 125 126 127 usw           20 Zahlen: 1.140 Kombis Formeln der Tabelle A2 : =A$1&B$1&C$1 B2 : =A$1&B$1&D$1 C2 : =A$1&B$1&E$1 D2 : =A$1&B$1&F$1 E2 : =A$1&B$1&G$1

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
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