Tabellenbereich mit Array o.ä. füllen

Hallo zusammen,
weiss jemand eine Möglichkeit wie man mehrere Werte gleichzeitig in ein Exceltabellenblatt bekommt?
Mein Problem ist folgendes:
Ich berechne mir über eine Schleife die x,y Werte für ein Diagramm.
Diese würde ich gerne vorher speichern (z.B. in einem Array, bzw. Matrix) und diese dann direkt auf das Tabellenblatt übertragen.
Ich könnte zwar die Werte innerhalb der Schleife jweils übertragen, dies ist allerdings sehr langsam, da ich von einem anderen Programm aus Excel anspreche und dies ziemlich Zeit beansprucht.
Die x-Werte sollen beispielsweise auf Sheet(1) in die Spalte A und die y-Werte auf Sheet(1) in Spalte B übertragen werden.
In Excel befindet sich bereits ein Diagramm welches auf diese Zellen zugreift. Durch das übertragen der gesamten Werte erhoffe ich mir, dass sich das Diagramm sehr schnell an die neuen Werte anpasst.
Über eine Idee oder einen Tipp wäre ich sehr dankbar.
MFG
Dennis

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim xWerteArray() As Double, yWerteArray() As Double Dim z As Long, i As Long, x As Double, y As Double y = 10 ' Startwert für y For i = 1 To 100 ' Schleifenberechnung x = x + 1 ' für x ReDim Preserve xWerteArray(z) xWerteArray(z) = x ' Einlesen in Array x-Werte y = 0.5 * y ' für y ReDim Preserve yWerteArray(z) yWerteArray(z) = y ' Einlesen in Array y-Werte z = z + 1 Next i For i = LBound(xWerteArray()) To UBound(xWerteArray()) ' Schreiben der x-u.y-Werte Cells(i + 1, 1) = xWerteArray(i) Cells(i + 1, 2) = yWerteArray(i) Next i End Sub

Sub ZufallDirekt() Dim i As Long, vx(1 To 10000, 1 To 1) As Variant For i = 1 To 10000 vx(i, 1) = vx(i, 1) + i 'Int(500 * Rnd + 1) Next i With Worksheets("Tabelle1") .Range(.Cells(1, 1), .Cells(10000, 1)) = vx End With End Sub

Sub arrOut() Dim arr(3, 4) As Integer Dim ii As Integer, jj As Integer For ii = 0 To 3 For jj = 0 To 4 arr(ii, jj) = (ii + 1) * (jj + 1) Next jj Next ii Cells(2, 3).Resize(UBound(arr, 1) - LBound(arr, 1) + 1, _ UBound(arr, 2) - LBound(arr, 2) + 1) = arr End Sub

Hi Dennis,
"Range" kaommt in meinem Code gar nicht vor, würde aber auch nicht schaden.
Statt


Cells(2, 3).Resize(UBound(arr, 1) - LBound(arr, 1) + 1, _
UBound(arr, 2) - LBound(arr, 2) + 1) = arr
' ginge natürlich auch
Range("C2").Resize(UBound(arr, 1) - LBound(arr, 1) + 1, _
UBound(arr, 2) - LBound(arr, 2) + 1) = arr

Der kleine Scherz dabei bleibt ja erhalten:
Explizit angegeben wird nur die erste Zelle des Bereichs, in den das Array geschrieben werden soll.
Die Anzahl Zeilen und Spalten wird dann mit Resize abhängig von der Arraygröße festgelegt.
Ist zwar etwas länglicher hinzuschreiben, aber dafür muss man sich um die Größe des Bereichs nicht mehr kümmern.
Kürzer wird es natürlich auch, wenn man z. B. LBound(...) immer mit 1 festlegen kann.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Tabellenbereich mit Array o.ä. füllen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenbereich mit Array o.ä. füllen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread