Zellwerte effizient in Array einlesen

Hallo zusammen,
ich möchte aus einer Excel-Datei die Zellwerte eines bestimmten Bereichs (z.B. "A5:H10000") in ein Array in VBA übertragen, damit ich dort dann mit diesen Werten bestimmte Berechnungen durchführen kann (z.B. (Wert aus A5) + 3,6*(Wert aus E5) ).
Das ergibt dann wieder ein Array, das ich in die Tabelle zurückschreiben möchte.
Bisher habe ich das über zwei for..to Schleifen gemacht, mit denen ich für jede Zeile, die Eingabe-Werte lese (Variable1=cells(i,1).value, variable2=cells(i,2).value, usw.), dann mache ich damit meine Berechnungen und schreibe das über cells(i,j).value=ErgebnisJ wieder in die Tabelle zurück. Das funktioniert, ist nur aufgrund der recht großen Zeilen und Spaltenzahl ziemlich langsam und ich vermute, dass das vor allem durch die vielen Lese-/Schreib-Prozesse kommt.
Daher würde ich gerne alle Werte auf einmal in ein Array einlesen, dann mit diesem Array meine Berechnungen machen und das Ergebnis-Array wieder auf einmal zurückschreiben.
Kann mir jemand die Syntax zum Lesen und Schreiben verraten? Danke für eure Hilfe!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub versiv() 'Bereichs (z.B. "A5:H10000") in ein Array in VBA übertragen, 'damit ich dort dann mit diesen Werten bestimmte Berechnungen durchführen kann '(z.B. (Wert aus A5) + 3,6*(Wert aus E5) ) Dim i As Long Dim myarr myarr = Range("a5:H10000") For i = 1 To UBound(myarr) myarr(i, 1) = 3.6 * myarr(i, 5) Next Range("a5:H10000") = myarr End Sub

Hi
richtig erkannt, das Problem ist die grosse Anzahl von Lese- und vorallem Schreibprozessen.
durch das Einlesen und Schreiben des ganzen Arrays reduzierst du die Anzahl dieser Prozesse auf einen Lese- und einen Schreibprozess (es müssen zwar immer noch viele Zellen gelesen bzw geschrieben werden, aber da das für alle Zellen gleichzeitig passiert, können viele der hierfür erforderlichen Routinen einmalig für alle ausgeführt werden und nicht für jede Zelle einzeln wiederholt).
wie das mit Arrays funktioniert, wurde dir ja hier schon gezeigt.
es gibt aber noch einen weiteren Weg den Prozess zu beschleunigen, welcher insbesondere für einfache Berechnungen geeignet ist:
- schreibe die Berechnung als Formel direkt in die Zellen und ersetze sie dann durch ihren Wert.
auch diese Methode ist sehr schnell, wenn alle Zellen gleichzeitig bearbeitet werden:
hier für dein Beispiel:

With Range("B2:B10000")
.FormulaR1C1 = "=RC1+3.6*RC5"
.Formula = .Value
End With

damit bist du du in den meisten Fällen ähnlich schnell wie mit der Array-Lösung, der Code ist aber kürzer und einfacher (sowohl im Verständnis, als auch beim Testen).
Gruß Daniel

Infobox zum Thema

EXCEL - VBA: Die Datenstruktur Array

Was ist ein VBA-Array?

Ein VBA-Array ist eine Datenstruktur, die es ermöglicht, eine Sammlung von Elementen, typischerweise von denselben Datentyp, unter einem einzigen Variablennamen zu speichern. Diese Elemente können dann durch Indices (z.B. Array(1, 5)) aufgerufen werden.

Einsatzzweck

Das direkte Interagieren mit Zellen in Excel über VBA kann langsam sein, besonders bei großen Datenmengen. Das Laden von Daten in ein VBA-Array, das Durchführen von Operationen innerhalb dieses Arrays und das Zurückschreiben der Daten in Excel kann diesen Prozess beschleunigen und effizienter gestalten.

Vorgehensweise

Daten aus Excel in ein VBA-Array laden:

Dim DatenArray() As Variant
DatenArray = ThisWorkbook.Worksheets("DeinTabellenblattName").Range("A5:H10000").Value

Mit dem Array arbeiten: Durchlaufe das Array mit zwei For-Schleifen und führe deine Berechnungen durch.

Dim i As Long, j As Long
For i = 1 To UBound(DatenArray, 1)
For j = 1 To UBound(DatenArray, 2)
    ' Beispiel: Berechnung mit Werten aus A und E
    If j = 1 Then
        DatenArray(i, j) = DatenArray(i, j) + 3.6 * DatenArray(i, 5)
    End If
Next j
Next i

Daten aus dem VBA-Array zurück in Excel schreiben:

ThisWorkbook.Worksheets("DeinTabellenblattName").Range("A5:H10000").Value = DatenArray

Tipps

Arbeitet man mit sehr großen Datenmengen, kann es sinnvoll sein, vor dem Zurückschreiben des Arrays die Bildschirmaktualisierung (Application.ScreenUpdating) und die automatische Berechnung (Application.Calculation) zu deaktivieren und sie nach dem Schreibvorgang wieder zu aktivieren.
Es kann hilfreich sein, die UBound-Funktion zu verwenden, um die Dimensionen des Arrays dynamisch zu bestimmen, anstatt sie fest codiert einzugeben.

Zusammenfassung

Durch das Arbeiten mit Arrays in VBA anstelle von direkten Zelleninteraktionen kannst du erhebliche Performance-Verbesserungen erzielen, insbesondere bei großen Datenmengen. Das obige Beispiel zeigt, wie du einen Zellbereich in ein Array laden, mit dem Array arbeiten und die Ergebnisse zurück in Excel schreiben kannst.

Beliebteste Forumthreads (12 Monate)

Zellwerte effizient in Array einlesen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

55 Forumthreads zu ähnlichen Themen

Infobox zum Thema

EXCEL - VBA: Die Datenstruktur Array

Inhaltsverzeichnis

Was ist ein VBA-Array?

Einsatzzweck

Vorgehensweise

Tipps

Verwandte Funktionen

Zusammenfassung

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellwerte effizient in Array einlesen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

55 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Infobox zum Thema

EXCEL - VBA: Die Datenstruktur Array

Inhaltsverzeichnis

Was ist ein VBA-Array?

Einsatzzweck

Vorgehensweise

Tipps

Verwandte Funktionen

Zusammenfassung

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread