Permutation ohne Doppelte
12.03.2019 21:01:42
Cxy
ich möchte aus einer variabelen Anzahl von Werten in einer Spalte (Zahlen oder Buchstaben bzw. Kombinationen) mir in drei Spalten alle möglichen Kombinatinen Anzeigen lassen. Die Werte in der Ausgangsspalte kommen nicht doppelt vor.
Bei einer Anzahl von 15 Werten, müßten es dann eigentlich 35 Kombinationen sein.
Ich habe ein Makro, hier aus dem Forum, welches das mit 2 Spalten macht. Ich brauche aber drei Spalten.
Wie muss ich den VBA-Code abändern?
Hier der Code mit Permutation auf zwei Spalten:
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
https://www.herber.de/bbs/user/128340.xlsx
Vielen Dank für Eure Hilfe!
Chris