Zahlenkombination
31.08.2008 16:29:00
Frank
komme irgendwie wieder nicht weiter.
Habe im Archiv was gefunden was nach meinen Vorgaben etwas umgestrickt werden müßte.
Es geht darum von einer Anzahl Zahlen alle möglichen Zahlenkombinationen auszugeben.
Bei dem untenstehenden Makro werden die Ausgangszahlen in Spalte A gesucht und alle zweier Kombinationen daneben in Spalte B und C ausgegeben.
Mein Problem ist nun dass sich meine Ausgangszahlen in Tabelle1 in Spalte A und B befinden und die Kombinationen in Tabelle2 Spalte A und B gelistet werden sollen.
Vielleicht kann mir jemand helfen.
Danke Frank
Sub permutation()
Dim sCnt, sIx1, sTo1, sIx2, sTo2 As Single
sCnt = 1
sTo2 = Application.WorksheetFunction.CountA(ActiveSheet.Range("A:A"))
sTo1 = sTo2 - 1
For sIx1 = 1 To sTo1
For sIx2 = sIx1 + 1 To sTo2
ActiveSheet.Cells(sCnt, 2).Value = ActiveSheet.Cells(sIx1, 1).Value
ActiveSheet.Cells(sCnt, 3).Value = ActiveSheet.Cells(sIx2, 1).Value
sCnt = sCnt + 1
Next sIx2
Next sIx1
End Sub