VBA mit Datenfelder

Hallo bestes Forum,
Durch das Archiv bin ich darauf gestoßen, dass Berechnungen in VBA mit Arrays in der Regel viel schneller sind als mit der herkömmlichen Methode über Zellwerte.
Bei einer Gegenüberstellung dieser Methoden (siehe z.B. Archiv: https://www.herber.de/forum/archiv/12to16/t12635.htm) wurde behauptet, dass die Berechnung von z.B. 30000 Werten mit Array doppelt so schnell ist. (Laufzeit wird im Makro verarbeitet und anschließend ausgegeben)
Ich habe mir eine Tabelle wie im oben angegebenen Thread nachgebaut, und habe festgestellt, dass die Berechnungszeit der Werte bei der Array-Methode etwas kürzer ist. Es kommt allerdings noch die Zeit hinzu, um die Daten in den Array einzulesen.(ergo ist die Array-Methode sogar langsamer)
Mit Datenfeldern in VBA hab ich so gut wie gar keine Ahnung.
Mein Frage: läßt sich die Beispiel-Aufgabe: "Wert aus Zeile A plus Wert aus Zeile B minus Wert aus Zeile C" unter VBA mit Arrays anders formulieren, so dass die Bearbeitungszeit wirklich verkürzt wird?

hier der Link zu meiner nachgebauten Tabelle:
https://www.herber.de/bbs/user/936.xls

und der Code:


Sub berechnung_mit_Array()
Dim arr1() As Long
Dim ZeilenAnz As Long, m As Long, i As Long
Dim n As Integer
Dim t1 As Double, t2 As Double
ZeilenAnz = 30000
t1 = Now
Application.ScreenUpdating = False
'Einlesen der Daten:
ReDim Preserve arr1(ZeilenAnz, 3)
For m = 3 To ZeilenAnz
For n = 1 To 3
arr1(m, n) = Cells(m, n).Value
Next n
Next m
'Berechnen:
t2 = Now
For i = 3 To ZeilenAnz
Cells(i, 5) = arr1(i, 1) + arr1(i, 2) - arr1(i, 3)
Next i
Application.ScreenUpdating = True
Cells(4, 8) = t2 - t1       'Zeit, um Daten einzulesen
Cells(5, 8) = Now - t2      'Berechnungszeit
Cells(6, 8) = Now - t1      'Gesamtzeit
End Sub

vielen Dank für eure Hilfe
Gruß
Christoph

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub berechnung_mit_Array() Dim ZeilenAnz As Long, i As Long Dim t1 As Double t1 = Now 'Einlesen des Ergebnisses in den Array: ReDim Arr(Range("N6") - 3) As Variant For i = 3 To Range("N6") Arr(i - 3) = Cells(i, 1) + Cells(i, 2) - Cells(i, 3) Next i 'In Tabelle eintragen Range("C3:C" & Range("N6")) = Arr Cells(6, 8) = Now - t1 'Gesamtzeit End Sub

Sub berechnung_mit_Array() Dim ZeilenAnz As Long, i As Long Dim t1 As Double t1 = Now 'Einlesen des Ergebnisses in den Array: ReDim arr(Range("N6") - 3) As Variant For i = 3 To Range("N6") arr(i - 3) = Cells(i, 1) + Cells(i, 2) - Cells(i, 3) Next i 'In Tabelle eintragen Range("E3:E" & Range("N6")) = Application.WorksheetFunction.Transpose(arr) Cells(6, 8) = Now - t1 'Gesamtzeit End Sub

Hallo Chris,
du hast recht, man muss es transponieren.
Aber warum funktioniert das nur bis 5000?
kann man das Array nicht gleich in zwei Dimensionen erzeugen und dann nur die 2. Dimension berücksichtigen?
Wie gesagt, ich hab so gut wie keine Ahnung von Arrays, will aber genau durch solche Probleme schlauer werden.
Noch was zur Bearbeitungszeit: wenn du in meiner Bsp-Tabelle die Zahlen vor jeder Berechnung (mit Array oder ohne) neu erstellst, dann sind sie Zeitunterschiede nicht unerheblich. (Array ist doppelt bis dreimal so schnell)

bleibt nur noch das Problem mit der Dimension bzw. Anzahl5000 zu lösen.
Wenn du noch Lust hast...vielleicht fällt dir ja noch was ein.
Ich bedanke mich auf jeden Fall für deine Hilfe
Gruß
Christoph

Sub berechnung_mit_Array() Dim ZeilenAnz As Long, i As Long Dim t1 As Double Dim arr() As Long t1 = Now 'Einlesen des Ergebnisses in den Array: ReDim Preserve arr(Range("N6") - 3, 0) For i = 3 To Range("N6") arr(i - 3, 0) = Cells(i, 1) + Cells(i, 2) - Cells(i, 3) Next i 'In Tabelle eintragen Range("E3:E" & Range("N6")) = arr Cells(6, 8) = Now - t1 'Gesamtzeit End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread