Änderungen am beigefügten Code
03.07.2003 10:32:57
N. Davidheimann
wie muß ich den folgenden Code ändern, um 3 Spalten mit den Zahlen zu füllen:
Sub ArrayDump2()
Dim x(1 To 10, 1 To 1) As Double
For j = 1 To 10
x(j, 1) = j * j
Next
Range(Cells(1, 2), Cells(10, 2)).FormulaArray = x
End Sub
Viele Grüße
Norbert
Anzeige