VBA Code optimieren

[Sandrof90]

Hallo zusammen,

Ich muss in einer Excel Tabelle mehrere Spalten über eine bestimmte Formel berechnen lassen und habe dazu folgendes einfaches makro erzeugt.

Sub Spalten_einfügen()
Dim letzte As Long

letzte = Cells(Rows.Count, 1).End(xlUp).Row

Range("F39").FormulaR1C1 = "=RC[-4]-RC[-5]*R13C[5]"
Range("G39").FormulaR1C1 = "=RC[-4]-RC[-6]*R13C[5]"
Range("H39").FormulaR1C1 = "=RC[-4]-RC[-7]*R13C[5]"
Range("I39").FormulaR1C1 = "=RC[-4]-RC[-8]*R13C[5]"
Range("F39:I39").Copy Destination:=Range("F39:I" & letzte)

End Sub

Da meine excel-Dateien sehr groß sind (>800.000 Zeilen) würde ich gern wissen, ob evtl. die Möglichkeit besteht den Code so umzuschreiben, dass die Berechnung deutlich schneller erfolgt? 

Beste Grüße
 Sandro

[Kuwer]

Hallo Sandro,

der "optimierte" Code vielleicht so:

Sub FormelnRein()
  Range("F39:I" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=RC[-4]-RC[-5]*R13C[5]"
End Sub

Aber schneller wird es deshalb auch nicht rechnen.

Gruß Uwe

[BoskoBiati]

Hi,

evtl. so:

Code:

Sub Spalten_einfügen()
Dim letzte As Long

letzte = Cells(Rows.Count, 1).End(xlUp).Row

Range("F39").FormulaR1C1 = "=RC[-4]-RC[-5]*R13C[5]"
Range("G39").FormulaR1C1 = "=RC[-4]-RC[-6]*R13C[5]"
Range("H39").FormulaR1C1 = "=RC[-4]-RC[-7]*R13C[5]"
Range("I39").FormulaR1C1 = "=RC[-4]-RC[-8]*R13C[5]"
Range("F39:I39").AutoFill Range("F39:I" & letzte)

End Sub

[RPP63]

Moin!
Ich habe für den gesamten Bereich (anders als Uwe) diese Formel:
=RC[-4]-RC1*R13C[5]
oder auch "auf gut Deutsch"
=B39-$A39*K$13

800k Zeilen * 4 simple Grundrechenformeln dürften imho kein Performanceproblem darstellen.

Range("F39:I800039").FormulaR1C1 = "=RC[-4]-RC1*R13C[5]"
Braucht tatsächlich erstaunliche 30 Sekunden …

Gruß Ralf

[Sandrof90]

Ich habe für den gesamten Bereich (anders als Uwe) diese Formel:
=RC[-4]-RC1*R13C[5]

Muss mal doof nachfragen , wo ist denn da genau der Unterschied zu Uwes Formel? 

Viele Grüße Sandro

[RPP63]

Es gibt keine doofen Fragen.
Uwe:
=RC[-4]-RC[-5]*R13C[5]
Formel in F39:
=B39-A39*K$13
Ich:
=RC[-4]-RC1*R13C[5]
Formel in F39:
=B39-$A39*K$13
Der Unterschied "beim Ziehen" sollte klar sein?

Gruß Ralf

[Sandrof90]

Formel in F39:
=B39-$A39*K$13
Der Unterschied "beim Ziehen" sollte klar sein?

Gruß Ralf

Ah jetzt hab ichs :D 
Das Dollarzeichen bedeutet ja aber, dass der Wert aus A39 für jede Zeile verwendet wird. Der muss bei meiner Auswertung jedoch immer dem aktuellen Wert für die Zeile A entsprechen bleiben.

Gruß Sandro

[RPP63]

Ah jetzt hab ichs :D 

Ich glaube nicht!  :19:

Das Dollarzeichen bedeutet ja aber, dass der Wert aus A39 für jede Zeile verwendet wird. Der muss bei meiner Auswertung jedoch immer dem aktuellen Wert für die Zeile A entsprechen bleiben.

Wie viele $ siehst Du?
Ich sehe nur eins, und zwar vor der Spaltenbezeichnung!
Heißt:
Beim kopieren nach rechts bleibt $A39 immer gleich.
Beim ziehen nach unten wird aus $A39 $A40 usw.

Grundlagenwissen:
https://www.online-excel.de/excel/singsel.php?f=56

Gruß Ralf

[Sandrof90]

Beim kopieren nach rechts bleibt $A39 immer gleich.
Beim ziehen nach unten wird aus $A39 $A40 usw.

Ach Stimmt ja :D

Besten Dank!  :23: