Schleifen und Geschwindigkeit

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub GetMoreSpeed(Optional ByVal Modus As Boolean = True) Static intCalculation as Integer If Modus = True Then intCalculation = Application.Calculation With Application .ScreenUpdating = Not Modus .EnableEvents = Not Modus .Calculation = IIf(Modus = True, xlManual, intCalculation) .Cursor = IIf(Modus = True, 2, -4143) End With End Sub

Hi
jedes mal, wenn du eine Zelle änderst, muss Excel eine Vielzahl von Aktionen ausführen.
Es muss beispielsweise die Änderung auf dem Bildschirm anzeigen, es muss prüfen, ob es irgendwo in einer geöffneten Exceldatei Zellen gibt, die Formeln enthalten die sich auf diese Zelle beziehen und neu berechnet werden müssen und wenn ja, werden diese Formeln auch neu berechnet.
Es muss geprüft werden, ob es ein Eventmakro gibt, welches auf die ausgeführte Aktion reagieren muss (n der Regel das Change-Event) und wenn ja, müssen sie ausgeführt werden.
du siehst, es gibt für Excel jede Menge zu tun, wenn du einen Zellwert änderst und das braucht alles viel Zeit.
jetzt gibt es zwei Ansätze, um diese Bremse auszuschalten:
a) man deaktiviert diese Aktionen so weit wie möglich und lässt sie erst am Ende des Makros ausführen.
das ist der Ansatz von Hansueli
b) man versucht, die Anzahl der Zellzugriffe so weit wie möglich zu reduzieren um damit zu erreichen, dass Excel diese Aktionen weniger häufig und möglichst für viele Zellen gleichzeitig in einem Schritt ausführen kann.
dh wenn du schreibst:

Range("A1").Value = 1
Range("A2").Value = 1

dann erzeugt das für Excel einen doppelt so hohen Aufwand, wie wenn du schreibst:

Range("A1:A2").value = 1

weil Excel die o.g. Aktionen im obigen Fall 2x ausführen muss, um unteren Fall jedoch nur einmal für beide Zellen gleichzeitig.
wenn du das konsequent machst, sollte der Ablauf eigentlich so schnell werden, dass das "getMoreSpeed" keine große Verbesserung der Durchlaufzeit bringt.
Gruß Daniel

Hi
du hast in dem Code mehrfach zwei in einander geschachtelte Schleifen.
Die solltest du mal überprüfen, ob die überhaupt notwendig.
Außerdem solltest du bei den Doppelschleifen alle Aktionen in der inneren Schleife überprüfen, ob diese nicht in die äußere Schleife gehören.
Hinweiszeichen ist immer, ob der Schleifenzähler der inneren Schleife eine Rolle bei der Aktion spielt, bzw verändert sich die Aktion während des Schleifendurchlaufs.
Wenn nein, gehört die aus der Schleife raus, denn wenn die Aktion in der Schleife immer genau gleich ausgeführt wird, muss man sie nicht wiederholt ausführen lassen sondern einmal reicht.
Überflüssig sind auch solche Schleifen, die du durch eine Formel ersetzen kannst.
Wenn du das per Formel machst, kannst du alle Zellen in einem Schritt bearbeiten.
In der Schleife wird jede Zelle einzeln bearbeitet, was wesentlich aufwendiger ist.
(Wenn du einkaufen gehst, dann fährst du ja auch nur 1x zum Supermarkt und kaufst dort alle zusammen ein und bezahlst alles zusammen, wenn du für jeden Artikel einzeln gehst, dauert es viel länger bis du alles hast.
Beispiel:
Langsam ist:

With ThisWorkbook.Sheets("SAP_Adjusted")
For c = 2 To i
If .Range("D" & c).Value = "keine Übereinstimmung" Then
.Range("E" & c).Value = "kein Wert"
Else
.Range("E" & c).Value = .Range("D" & c).Value * ThisWorkbook.Sheets("SAP_Import").Range( _
"H" & c).Value
End If
Next
End With

geht viel schneller so:

With ThisWorkbook.Sheets("SAP_Adjusted").Range("E2:E" & i")
.FormulaR1C1 = "=IF(RC4=""keine Übereinstimmung"",""kein Wert"",RC4*'SAP_Import'!RC8)"
.Formula = .Value
end with

das ist nicht nur kürzer und schneller, sondern lässt sich auch viel angenehmer in Einzelstepmodus testen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread