Möglichst performant Zellen befüllen

Hallo zusammen,
ich habe eine Problem, dass die Art wie ich Zellen befülle nicht wirklich performant ist & die Rechenleistung maximal 1.000 Einträge zulässt oder ansonsten abstürzt. Daher gehe ich davon aus, dass mein Code sehr imperformant ist. Der Fokus liegt nur auf dem einfügen der Werte - der Rest passt. Ich kann 50.000.000 Werte zügig vergleichen, aber sobad mehr als das schreiben von 1.000 Einträgen getriggered wird, klappt es nicht mehr
Anbei der auszugsweise Code:
VergleichsTool2.Worksheets(2).Select
Cells(Row, MapColumn(Col)).Interior.Color = 255 'Rote Markierung der Zelle
Cells(Row, MapColumn(Col)).Font.ColorIndex = 1 'Schwarze Markierung des Textes
Cells(Row, MapColumn(Col)).Font.Bold = True 'Fette Markierung des Textes
und
Cells(RowReport, 2) = colval1 ' Wert der alten Version wird angezeigt in Spalte 2
Cells(RowReport, 3) = "<>" ' <> Zeichen in Spalte 3
Cells(RowReport, 4) = colval2 ' Wert der neuen Version wird angezeigt in Spalte 4
'Die Zellen zu den einzelnen Werten werden festgelegt
ColumnLetterOld = Col_Letter(Col) 'Buchstabe der Spalte in der alten Version
ColumnLetterNew = Col_Letter(ColNew) ' Buchstabe der Spalte in der neuen Version
Cells(RowReport, 5) = ColumnLetterOld & Row ' Es wird der Buchstabe der Spalte und die Zahl der Reihe in der alten Version angegeben
Cells(RowReport, 6) = ColumnLetterNew & Row ' Es wird der Buchstabe der Spalte und die Zahl der Reihe in der neuen Version angegeben
Cells(RowReport, 7) = ColTitel
LG
Darius

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
wenn man größere Zellbereiche in einer Schleife Zellenweise bearbeiten muss, geht so sehr schnell:
1. man liest die Zellinhalte in eine Arrayvariable ein
2. man führt die Bearbeitung innerhalb der Array-Variable durch
3. man schreibt das Ergebnisarray in den Zellbereich zurück.
dabei muss beachtet werden dass beim Zurückschreiben in den Zellbereich dieser genauso groß sein muss wie das Array.
Beispiel:
du hast im Zellbereich A1:B10000 Zahlen stehen, die miteinander multipliziert werden müssen.
das geht mit Zellen so:

dim z as Long
For z = 1 to 10000
Cells(z, 3).value = Cells(z, 1).Value * Cells(z, 2).value
next

mit Arrays dann so

dim arr
dim z as Long
Arr = Range("A1:C10000).value
for z = 1 to ubound(arr, 1)
arr(z, 3) = arr(z, 1) * arr(z, 2)
next
Range("A1:C10000").value = arr

ist etwas aufwendiger, aber viel schneller
Gruß DAniel

Beliebteste Forumthreads (12 Monate)

Möglichst performant Zellen befüllen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

156 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Möglichst performant Zellen befüllen

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

156 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread