Question

I get an error 1004 at the line: ActiveSheet.Cells(row, 0).Text = elements(i).

Sub Mogelijkheden()
Workbooks("Model-v6-final-test_macro_2.xlsm").Sheets("Variaties").Activate
ActiveSheet.Activate

Dim elements(3) As Variant
elements(0) = ActiveSheet.Cells(3, 2).Text
elements(1) = ActiveSheet.Cells(4, 2).Text
elements(2) = ActiveSheet.Cells(5, 2).Text

Dim length As Integer
length = UBound(elements) - LBound(elements) + 1

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim c As Integer
Dim b As Integer
Dim v As Integer
Dim n As Integer

Dim row As Integer
row = 10

'Now, "print" the combinations by looping through your array
For i = 0 To length
For j = 0 To length
For k = 0 To length
For x = 0 To length
For y = 0 To length
For z = 0 To length
For c = 0 To length
For b = 0 To length
For v = 0 To length
For n = 0 To length

ActiveSheet.Cells(row, 0).Text = elements(i)
ActiveSheet.Cells(row, 1).Text = elements(j)
ActiveSheet.Cells(row, 2).Text = elements(k)
ActiveSheet.Cells(row, 3).Text = elements(x)
ActiveSheet.Cells(row, 4).Text = elements(y)
ActiveSheet.Cells(row, 5).Text = elements(z)
ActiveSheet.Cells(row, 6).Text = elements(c)
ActiveSheet.Cells(row, 7).Text = elements(b)
ActiveSheet.Cells(row, 8).Text = elements(v)
ActiveSheet.Cells(row, 9).Text = elements(n)

row = row + 1

Next n
Next v
Next b
Next c
Next z
Next y
Next x
Next k
Next j
Next i

End Sub

Answer 1

Change the length assignment to:

length = ubound(elements) - 1

Also, you want:

ActiveSheet.cells(row, 1).value = elements(i)

You can’t write to the Text property