Summenprodukt-Formel in VBA
28.03.2014 08:13:07
Frank
ich schreibe über eine Schleife die Summenprodukt-Formel in einen größeren Bereich.
Dies ist sehr Zeitintensiv.
For Z = 10 To ColumnCount
Cells(i, Z).FormulaR1C1 = "=sumproduct((r2c2:r" & Cellcount & "c2=r1c" & Z & ")*(r2c4:r" & Cellcount & "c4=r" & i & "c9)*r2c5:r" & Cellcount & "c5)"
Next
Next
Zur Zeit beinhaltet der Bereich 14 Spalten und 148 Zeilen(wächst aber von Monat zu Monat)
Nun habe ich gelesen, dass es schneller geht, wenn ich das Summenprodukt direkt in VBA mit Evaluate berechnen lasse
For Z = 10 To ColumnCount
Cells(i, Z) = Evaluate("=sumproduct((r2c2:r" & Cellcount & "c2=r1c" & Z & ")*(r2c4:r" & Cellcount & "c4=r" & i & "c9)*r2c5:r" & Cellcount & "c5)")
Next
Next
Evaluate liefert mir aber #WERT!
Könnt Ihr mir weiterhelfen?
Schon mal vielen Dank für Eure Zeit
Gruß
Frank