VBA Code Permutation auf 3 ändern
11.11.2020 07:00:39
Bernd
ich habe unten stehenden Code im Netz gefunden. Dabei ist es möglich in Spalte A Werte einzugeben, welche mir dann als 2er Kombination in den Spalten B und C, nach unten, aufgelistet werden.
Mein Problem, ich hätte gerne das daraus eine 3er Kombination wird, also auch die Spalte D mit einbezogen werden sollte und mir bei Vorgabe von drei Werten in Spalte A, diese dann mit all den Kombimöglichkeiten aufgelistet wird.
Habe bereits viel zeit damit verbracht, den Code selber umzuschreiben, bin jedoch daran gescheitert und hoffe auf Eure Hilfe hier das mir jemand diesen Code um mein Anliegen erweitert.
Hier mal der Code:
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
Falls eine Beispielmappe benötigt wird, kann ich auch gerne eine erstellen und hoch laden. Ich denke aber, der o.a. Code ist ausreichend um zu Testen, denn mehr habe ich bisher noch nicht.
Ich Danke Euch schon mal vorab und wünsche einen schönen Tag,
LG Bernd