Summenprodukt in VBA
06.05.2009 17:27:07
MBorn
ich erlaube mir diese Frage nochmals zu wiederholen, da sie noch nicht beantwortet
werden konnte:
Ich versuche die Funktion Summenprodukt für VBA umzubauen. Als Excel-Formel heißt sie:
=SUMMENPRODUKT(($C$1:$C$300000=AB$1)*($F$1:$F$300000=$AA2))
Diese Formel funktioniert.
In VBA versuche ich (ohne Erfolg):
Dabei habe ich den Vorschlag von Hajo ['Evaluate ("=SumProduct((Tabelle2!A40:A46 =""Geiger"")*((Tabelle2!B40:B46)))")] eingebaut:
Sub Demo()
For i = 2 To 6
For j = 5 To 15
MsgBox Evaluate("=Sumproduct((A1:A30=cells(i,4))*(F1:F30=cells(1,j)))")
Cells(i, j) = Evaluate("=Sumproduct((A1:A30=cells(i,4))*(F1:F30=cells(1,j)))")
Next j
Next i
End Sub
https://www.herber.de/bbs/user/61655.xls
Gruß und Dank,
Born