Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

SUMMENPRODUKT in VBA übersetzen

Forumthread: SUMMENPRODUKT in VBA übersetzen

SUMMENPRODUKT in VBA übersetzen
28.08.2008 15:03:42
Olaf
Hallo Leute,
ich habe versucht, folgende "SummenProdukt" Formel:
=SUMMENPRODUKT((A1:A1000=A27)*(C1:C1000=C27);U1:U1000)
ins VBA zu übersetzen:
WorksheetFunction.SumProduct((Range("A1:A1000") = Range("A" & EEE)) * (Range("C1:C1000") = Range("C" & EEE)), Range("U1:U1000"))
Leider bekomme ich aber nur "#WERT!" als Ergebnis. Was ist da falsch?
Grüße Olaf
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Keine Ahnung, eimal funktioniert es, einmal nicht!
28.08.2008 15:33:45
Backowe
Hallo Olaf,
ich habe es mittlerweile aufgegeben, eine Summenproduktformel per worksheetfunction oder per Evaluate einzugeben. Verwende mal eine Suchmaschine Deiner Wahl und suche nach "worksheetfunction.sumproduct(". Ich habe mir folgende Vorgehensweise angewöhnt.
VBA-Code:
Sub Summenprodukt()
With Range("B1")
  .FormulaLocal = "=SUMMENPRODUKT((A1:A1000=A27)*(C1:C1000=C27);U1:U1000)"
  .Value = .Value
End With
End Sub
Gruß Jürgen
AW: Keine Ahnung, eimal funktioniert es, einmal nicht!
Olaf

Danke für deinen Beitrag, Jürgen!
Wenn ich die Formel wie von dir dargestellt abändere:
FormulaLocal = "=SUMMENPRODUKT((A1:A1000=A" & EEE & " )*(C1:C1000=C" & EEE & ");U1:U1000)"
Dann bekomm ich als Ergebnis "Falsch" ?!?!?!
Kann ich so nicht nachvollziehen!
Backowe

Hallo Olaf,
VBA-Code:
Sub Summenprodukt()
Dim EEE As Long
EEE = 5
With Range("B1")
  .FormulaLocal = "=SUMMENPRODUKT((A1:A1000=A" & EEE & " )*(C1:C1000=C" & EEE & ");U1:U1000)"
  .Value = .Value
End With
End Sub
 ABCU
1 100  
21 110
31 110
41 110
51 110
61 110
71 110
81 110
91 110
101 110
111 110


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Jürgen
Anzeige
AW: Keine Ahnung, eimal funktioniert es, einmal nicht!
28.08.2008 15:51:00
Olaf
Danke für deinen Beitrag, Jürgen!
Wenn ich die Formel wie von dir dargestellt abändere:
FormulaLocal = "=SUMMENPRODUKT((A1:A1000=A" & EEE & " )*(C1:C1000=C" & EEE & ");U1:U1000)"
Dann bekomm ich als Ergebnis "Falsch" ?!?!?!
Kann ich so nicht nachvollziehen!
28.08.2008 16:07:55
Backowe
Hallo Olaf,
VBA-Code:
Sub Summenprodukt()
Dim EEE As Long
EEE = 5
With Range("B1")
  .FormulaLocal = "=SUMMENPRODUKT((A1:A1000=A" & EEE & " )*(C1:C1000=C" & EEE & ");U1:U1000)"
  .Value = .Value
End With
End Sub
 ABCU
1 100  
21 110
31 110
41 110
51 110
61 110
71 110
81 110
91 110
101 110
111 110


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Jürgen
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige