Hallo,
ich habe deinen Code mal "übersetzt" für die Kombination 3 aus 6 (A1:A6=abcdef):
Sub ffff()
Dim i, j, k, m As Integer
m = 13
For i = 1 To 6
For j = i + 1 To 6
For k = i + 2 To 6
Cells(m, 1) = Cells(i, 1) & Cells(j, 1) & Cells(k, 1)
m = m + 1
Next
Next
Next
End Sub
Das Ergebnis kommt der Sache näher, stimmt aber noch nicht, da die Elemente dabei auch doppelt in einer Kombination vorkommen können.
VG A.