SumProduct mit VBA

Forumthread: SumProduct mit VBA

SumProduct mit VBA

25.06.2008 10:51:00

Martin

Guten Morgen,
ich bitte um Eure Hilfe.
Warum funktioniert:


Sub summenprodukt()
Dim spResult As Variant
spResult = Evaluate("SumProduct((EX$8:EX635>70)*(EX$8:EX635

Aber das funktioniert nicht:


Sub summenprodukt()
Dim spResult As Variant
spResult = Evaluate("SumProduct((Range(Cells(154,8),cells(154,635))>70)*(EX$8:EX635

Fehlermeldung: Typen unverträglich
Danke,
M. Born

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: SumProduct mit VBA

25.06.2008 10:59:06

Hajo_Zi
AW: SumProduct mit VBA

25.06.2008 11:02:57

Martin
AW: SumProduct mit VBA

25.06.2008 11:04:57

Hajo_Zi
AW: SumProduct mit VBA

25.06.2008 11:16:00

Martin
AW: SumProduct mit VBA

25.06.2008 11:20:00

Hajo_Zi
AW: SumProduct mit VBA

25.06.2008 11:02:08

Rudi
AW: SumProduct mit VBA

25.06.2008 11:27:00

Martin
AW: SumProduct mit VBA

25.06.2008 12:00:03

Rudi
AW: SumProduct mit VBA

25.06.2008 12:06:32

Martin

AW: SumProduct mit VBA

25.06.2008 10:59:06

Hajo_Zi

Hallo born,
versuche es doch mit Application.WorksheetFunction.SumProduct

AW: SumProduct mit VBA

25.06.2008 11:02:57

Martin

Danke Ha-Jo,
diese Änderung hatte ich schon mal versucht. Jetzt nochmal und das klappt
aus irgendwelchen Gründen auch nicht:


Sub summenprodukt()
Dim spResult As Variant
spResult = Evaluate("application.worksheetfunction.SumProduct((Range(Cells(154,8),cells(154,635) _
)>70)*(EX$8:EX635

Gruß,
Born

AW: SumProduct mit VBA

25.06.2008 11:04:57

Hajo_Zi

Hallo Born
spResult = application.worksheetfunction.SumProduct((Range(Cells(154,8),cells(154,635) _
)>70)*(EX$8:EX635 Gruß Hajo

AW: SumProduct mit VBA

25.06.2008 11:16:00

Martin

Danke HaJo,
jetzt wird "Syntax-Fehler" angezeigt.
Ich weiß, das das Ding nicht so einfach zu lösen ist. Hab schon eine
Stunde bei Google recherchiert.
Gruß,
Born

AW: SumProduct mit VBA

25.06.2008 11:20:00

Hajo_Zi

Hallo Born,
ich habe jetzt in meine Hildfe geschaut
Summenprodukt in VBA
ActiveSheet.Range("B1").Value = Evaluate("=SumProduct((Tabelle2!A40:A46 =""Geiger"")*((Tabelle2!B40:B46)))")
von Thomas Ramel
Gruß Hajo

AW: SumProduct mit VBA

25.06.2008 11:02:08

Rudi

Hallo,
das ist ein String!
so sollte es gehen:
spResult = Evaluate("SumProduct((" &Range(Cells(154,8),cells(154,635)).address &">70)*(EX$8:EX635 Gruß
Rudi

AW: SumProduct mit VBA

25.06.2008 11:27:00

Martin

Danke Rudi,
jetzt bekomme ich immerhin keine Fehlermeldung mehr angezeigt,
aber das Ergebnis stimmt leider nicht:
Das korrekte Ergebnis ist 3 und wird angezeigt bei:


Sub summenprodukt()
Dim spResult As Variant
spResult = Evaluate("SumProduct((FF$8:FF953>80)*(FF$8:FF953

Das neue Skript bring das Ergebnis 2584


Sub summenprodukt()
Dim spResult As Variant
spResult = Evaluate("SumProduct((" & Range(Cells(162, 8), Cells(162, 953)).Address & ">80)*(FF$ _
8:FF953

Gibt es dafür eine Erklärung?
Gruß und Danke,
Born

AW: SumProduct mit VBA

25.06.2008 12:00:03

Rudi

Hallo,
das Range(Cells(162, 8), Cells(162, 953)) ist ja auch nicht FF$8:FF953
Cells(Zeile, Spalte)
Gruß
Rudi

AW: SumProduct mit VBA

25.06.2008 12:06:32

Martin

Danke Rudi,
und ich versuch immer so zu tun, als hätte ich schon ein bisschen
Ahnung von VBA. Herber Tiefschlag für mein Ego!
Gruß,
Born

Beliebteste Forumthreads (12 Monate)

Forumthread: SumProduct mit VBA

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread