Option
Explicit
Public
Sub
getCombinations()
Dim
arr(2, 2)
As
String
, arr2(80, 2)
As
String
Dim
i
As
Integer
, j
As
Integer
, k
As
Integer
, l
As
Integer
, m
As
Integer
For
i = 0
To
2
For
j = 0
To
2
arr(i, j) = Worksheets(
"Tabelle1"
).Cells(i + 1, j + 1).Value
Next
j
Next
i
For
i = 0
To
2
For
j = 0
To
2
For
k = 0
To
2
For
l = 0
To
2
m = m + 1
arr2(m - 1, 0) = arr(i, j)
arr2(m - 1, 1) = arr(i, k)
arr2(m - 1, 2) = arr(i, l)
Next
l
Next
k
Next
j
Next
i
Worksheets(
"Tabelle1"
).Range(
"A5:C86"
) = arr2()
End
Sub