Array- Problem
02.07.2003 22:10:32
Romano
ich verstehs nicht, warum funktioniert das:
Sub ArrWaagerecht()
Dim x(1 To 10) As Double
For j = 1 To 10
x(j) = j * j
Next j
Range(Cells(2, 1), Cells(2, 10)).FormulaArray = x
End Sub
das aber nicht:
Sub arrSenkrecht()
Dim x(1 To 10) As Double
For j = 1 To 10
x(j) = j * j
Next j
Range(Cells(1, 1), Cells(10, 1)).FormulaArray = x
End Sub
Gruß Romano
Anzeige