Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
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

Anzeige
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

Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige