Array auf einmal in Tabellenblatt schreiben
24.09.2015 11:47:12
Bonduca01
ich versuche schon den ganzen Vormittag lang einen Array auf einmal in ein Tabellenblatt zu schreiben.
Mein Array ist folgendermaßen deklariert: Dim Array(500,4)as Variant.Mein Array füllt sich über eine Schleife, beginnend bei array(3,4). Die Werte werden nicht direkt aus einem Tabellenblatt gelesen, sondern in einem Makro berechnet
For i=3 to 500
Array(i,4) = irgendetwas
Next i
Jetzt möchte ich den Array in ein neues Tabellenblatt auf einmal ausgeben lassen (mit einer Schleife dauert es ziemlich lange, da mein Array groß ist).
Hab schon folgendes versucht:
Dim Array (500,4) as Variant
Range("A1:B26600") = Array
oder:
Tabelle1.Range("A1").Resize(UBound(array, 1) - LBound(array, 1) + 1, UBound(array, 2) - LBound( _
array, 2) + 1).Value = Array
Was mache ich falsch?