Hallo,
meinst du so etwas?
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
Ein Teil des Ergebnisses:
Viele Grüße
|