Hallo zusammen,
ich habe alle Kombinationen von Zahlen in einer Spalte stehen
' schreibt die möglichen Paare
Zeile = 1 + (AnzNorm * AnzZeileNorm)
For n1 = 1 To Rest - 1
For n2 = 2 To Rest - (n1 - 1)
Paar = n1
Paar = Paar & Chr(6)
Paar = Paar & n2 + (n1 - 1)
Cells(1, 1).Offset(Zeile, Paar) = Paar
Zeile = Zeile + 1
Next n2
Next n1
dabei erhalte ich dieses Ergebnis
12
13
14
15
23
24
25
34
35
45
jetzt möchte ich diese Kombinationen in eine Reihenfolge bringen, bei der sich die Zahlen in einem Durchgang (2 Zeilen) nicht wiederholen:
z.B.
12
34
13
45
14
25
15
23
24
35
Wie muss der Algorithmus aussehen?
Gruß
Siegfried