Zwei Codes mit gleicher Funktion im Vergleich

Guten Abend,
ich will mich so langsam von der Makro-Orientierten Programmierung trennen, dabei ist mir aufgefallen, dass sie trotz ein paar Codezeilen mehr dennoch viel schneller ist. Und daher nutzte ich sie immer noch zu Genüge.
Dazu habe ich mal nachfolgend 2 Varianten geschrieben, wo ihr mir bestimmt sofort mit Sicheheit sagen könnt, wo mein Denkfehler liegt.
Zur Aufgabe:
Ich habe In 20000 Zeilen per Zufall irgendwelche Werte in den ersten beiden Spalten (A,B) eingefügt. In Spalte C will ich die Summe auf alle 20000 Zeilen berechnen lassen. Dabei will ich am Ende nur reine Werte haben (also nicht als Formel). In der 1. Variante habe ich mir den Makrorekorder zur Hilfe genommen den Code anschließend etwas modifiziert. De Facto habe ich mit Formeln und anschließenden Kopier- u. Einfügmethoden gearbeitet.
Variante 1:


iRow = Cells(Rows.Count, 1).End(xlUp).Row
Cells(1, 3).FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
Cells(1, 3).Copy
Range("C1:C" & iRow).Select
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

In der 2. Variante habe ich zwar einen funktionierenden und Codezeilen sparenderen Code ohne Makrorekorder verwendet. Dieser ist bei mir auf dem Rechner aber mindestens 30 mal langsamer als der erste. Was sollte ich eurer Meinung nach besser machen? Gibt es evtl. andere Möglichkeiten?


iRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To iRow
Cells(i, 3).Value = Cells(i, 1).Value + Cells(i, 2).Value
Next i

Vielen Dank für eure Hilfe!
Mit freundlichen Grüßen
Richard E.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dim Summanden dim Ergebnis dim iRow as long dim i as long iRow = Cells(Rows.Count, 1).End(xlUp).Row Summanden = Range("A1:B" & iRow).Value Ergebnis = Range("C1:C" & iRow).Value For i = 1 to iRow Ergebnis(i, 1) = Summanden(i, 1) + Summanden(i, 2) next Range("C1:C" & iRow).Value = Ergebnis

Columns("B:B").Copy Columns("C:C").PasteSpecial xlPasteAll, xlPasteSpecialOperationNone, False, False Columns("A:A").Copy Columns("C:C").PasteSpecial Paste:=xlAll, Operation:=xlAdd, SkipBlanks:=False _ , Transpose:=False Application.CutCopyMode = False

Sub Test() Dim Ar1, Ar2 Dim Bereich As Range Dim A As Long Dim i As Single i = Timer Set Bereich = _ Range("A1", IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp), Cells(Rows.Count, 1))) Ar1 = Bereich Ar2 = Bereich.Offset(0, 1) For A = 1 To Ubound(Ar1) Ar2(A, 1) = Ar1(A, 1) + Ar2(A, 1) Next A Bereich.Offset(0, 2) = Ar2 MsgBox Timer - i End Sub

Sub Rechnen() 'Application.ScreenUpdating = False Dim BEREICH As Range iRow = Cells(Rows.Count, 1).End(xlUp).Row x = Timer Set BEREICH = Range("C1:C" & iRow) With BEREICH .FormulaR1C1 = "=SUM(RC[-2]:RC[-1])" .Value = .Value End With Range("K30").Value = Timer - x 'Application.ScreenUpdating = True Set BEREICH = Nothing End Sub

die Verschiedenen Lösungsmöglichkeiten nebeneinander im direkten Vergleich zu sehen.
die Zeitunterschiede sind, bis auf die eine Variante ja eher klein, so daß es keinen eindeutigen Sieger gibt.
welche die Lösung die bessere ist, hängt wahrscheinlich vom konkreten Einzelfall ab.
allerdings favorisiere ich momentan eher die Formellösung als die Array-Schleifen, und zwar aus folgenden Gründen:
- als Excelanwender bin ich natürlich mit Formeln besser vertraut als mit "echter" Programmierung
- die Formeln lassen sich unabhängig vom Makro entwickeln und testen. Das hat Vorteile bei komplexen Makros, die zum Testen u.U. immer vollständig durchlaufen müssen
- ein Array ist immer eine Kopie der Exceldaten, dh die Datenmenge verdoppelt sich, was bei sehr grossen Datenmengen ein Problem sein kann
- in den Formeln lassen sich auch sehr komplexe Berechungen in einer VBA-Zeile abbilden. Der notwenige Makrocode ist dadurch sehr kompakt.
Grundsätzlich gilt meiner Ansicht nach für eine effiziente Programmierung in Excel:
man sollte immer erst mal nachdenken, wie das Problem ohne VBA nur mit Excel-Funktionen und Formeln am schnellsten und einfachsten lösbar wäre. Wenn man dann diese Vorgehensweise im Makro umsetzt, hat man auf jeden Fall eine gute bis sehr gute Lösung.
Gruß, Daniel

Sub addieren() Z = Range("A65536").End(xlUp).Row Range("C1").Formula = "=Sum(A1:B1)" Range("C1").Copy Destination:=Range(Cells(2, 3), Cells(Z, 3)) 'Columns("C:C").Copy 'Columns("C:C").PasteSpecial Paste:=xlPasteValues End Sub

Beliebteste Forumthreads (12 Monate)

Zwei Codes mit gleicher Funktion im Vergleich

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

286 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zwei Codes mit gleicher Funktion im Vergleich

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

286 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread