Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1004to1008
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
Inhaltsverzeichnis

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

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige