ich würde gerne eine Vielzahl von Werten im Arbeitsspeicher berechnen lassen, die einzelnen Werte in einem Array speichern und sie dann auf einmal in einem Zellbereich ausgeben. Bis jetzt gelingt mir das nur mit einer Schleife, in der ich jede einzelne Array Position aufrufe und sie in eine Zelle schreibe. Leider dauert diese Lösung sehr lange.
Hier mein Ansatz, leider bekomme ich nur den gleichen Wert ausgegeben. Vielleicht kann mir _
jemand helfen?
Sub ArrayNutzen()
Dim Speicher(1 To 3000) As Long
Dim i As Integer
Dim j As Integer
'Werte berechnen und in Array speichern
Cells(1, 1).Value = 2500 'soll jeweils im vorfeld durch Eingabe bestimmt werden
i = 1
j = Cells(1, 1).Value
Do Until i > j
Speicher(i) = i + 1 'hier nur eine exemplarische Rechnung
i = i + 1
Loop
'Gespeicherte Werte im Array auf einmal in einen Zellbereich schreiben
Range(Cells(178, 13), Cells(178 + j - 1, 13)) = Speicher
End Sub
danke.
Gruß
Björn