K(16/5)

https://www.computerworld.dk/eksperten/spm/987749

Jeg har lige rettet makroen til så den passer til din kombination. De forskellige kombinationsmuligheder bliver vist i A1:E1 og nedefter

Sub Kombinationer()
y = 1
For x1 = 1 To 12
For x2 = x1 + 1 To 13
For x3 = x2 + 1 To 14
For x4 = x3 + 1 To 15
For x5 = x4 + 1 To 16
Cells(y, 1) = x1
Cells(y, 2) = x2
Cells(y, 3) = x3
Cells(y, 4) = x4
Cells(y, 5) = x5
y = y + 1
Next
Next
Next
Next
Next
End Sub

Pls