Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summenprodukt in VBA

Forumthread: Summenprodukt in VBA

Summenprodukt in VBA
06.05.2009 17:27:07
MBorn
Hallo,
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


Userbild
https://www.herber.de/bbs/user/61655.xls
Gruß und Dank,
Born

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summenprodukt in VBA
06.05.2009 18:01:56
Hajo_Zi
Hallo Born,

Sub Demo()
For i = 2 To 6
For j = 5 To 15
'Evaluate ("=SumProduct((Tabelle2!A40:A46 =""Geiger"")*((Tabelle2!B40:B46)))")
'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
'ActiveSheet.Range("B1").Value = Evaluate("=SumProduct((Tabelle2!A40:A46 =""Geiger"")*(( _
Tabelle2!B40:B46)))")



Anzeige
AW: Summenprodukt in VBA - Noch nicht
06.05.2009 18:18:08
MBorn
Hallo Hajo,
funktioniert es bei Dir? Bei mir nicht.
siehe: https://www.herber.de/bbs/user/61658.xls
Es werden nur Nullen ausgegeben. Würdest du
bitte nochmal drauf schauen? (Oder wer auch immer
weiß, wie's geht). Danke
Gruß
Born
Anzeige
AW: Summenprodukt in VBA - Noch nicht
06.05.2009 18:47:56
Hajo_Zi
Halo Born,

Sub test()
Range("E2:O6").FormulaLocal = "=SUMMENPRODUKT(($A$1:$A$23=E$1)*($B$1:$B$23=$D2))"
Range("E2:O6").Copy
Range("E2:O6").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
End Sub


Gruß Hajo

Anzeige
AW: Summenprodukt in VBA - Noch, noch nicht
06.05.2009 19:03:13
MBorn
Hallo Hajo,
das ist sicher eine Möglichkeit, aber das ist auch genau das, was ich vermeiden wollte.
Bei einer Tabelle mit 200000 Zeilen dauert die Berechnung mit der Excel-Funktion viel
zu lange. Deswegen suche ich eine "echte" Lösung in VBA. Funktioniert denn das Evaluate
bei Dir?
Gruß,
Born
Anzeige
AW: Summenprodukt in VBA - Noch, noch nicht
06.05.2009 19:15:57
MBorn
Hallo Hajo,
habe mit Basteleien einen Umweg über Evaluate Sum gefunden. Danke für die Hilfe.
Cells(Zeile, Spalte) = Application.Evaluate("=sum((A1:A23=" & Cells(1, Spalte) & ")*(B1:B23=""" & Cells(Zeile, 4) & """))")
Gruß,
Born
;

Forumthreads zu verwandten Themen

SUMMENPRODUKT in VBA übersetzen
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"))...
28.08.2008 15:03:42
Thread-ID: 1005459
4 Beiträge
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Summe von n bis n+t in VBA
n

Hallo zusammen
Leider habe ich sehr wenig Ahnung von VBA und probiere gerade eine Formel hinzubekommen. Sehr wahrscheinlich ist es für andere einfach, daher bitte ich um Rat.
Ich habe eine Spalte mit Zahlen (B2:B16).
Abgesehen von dieser Spalte habe ich zwei weitere Variablen: t und...
22.01.2009 17:06:49
Thread-ID: 1042696
4 Beiträge
| HERBERS Excel Forum
kai

hallo zusammen,
ich würde gerne per makro die letzten beiden beschriebenen zellen der spalte h löschen?
würde mich freuenn, wenn mir das jemand kurz aufschreiben könnte.
danke und viel grüße kai
26.04.2009 19:51:39
Thread-ID: 1071220
6 Beiträge
Anzeige
Summe bestimmter Werte in einer Spalte
Michael

Hallo zusammen,
bin neu hier und hätte eine Frage bezüglich der Berechnung einer Summe. Folgendes Szenario: Ich möchte in B1 eine Summe berechnen aus Werten der B Spalte. Soweit klar! Die einzelnen Werte in Spalte B werden in jeder Zeile mit einem Wert aus der A Spalte "nebenan" berechnet....
17.06.2009 20:47:04
Thread-ID: 1082369
2 Beiträge
Zeile für Summe einfügen m. VBA
Lorenz

Hallo VBA-Profis!
Leider wurde ich trotz Recherche nicht mehr fündig. Dieses "mein" Problem wurde in diesem Forum schon behandelt (finde es aber nicht mehr)!
Folgende Aufgabe (Bitte): In Spalte "A" stehen Belegnummern (od ähnliches), es soll nach Ende einer Produktgruppe eine Leezeile e...
07.08.2009 20:12:41
Thread-ID: 1094336
3 Beiträge
Summe in VBA
Uwe

Hallo,
nicht, das ich jetzt schon wieder ein Problem hätte... Nun denn. Ich nutze eine Prozedur, um je nach Wochentag eine vorgegebene Stundenzahl (Mo-Do = 8:00 Std, Fr = 7:00 Std, Sa = 0:00 Std, So = 0:00 Std) in den Zellen "D9:D39" auszugeben. Soweit klappt das noch.
Jetzt aber beste...
23.09.2009 16:44:03
Thread-ID: 1104926
6 Beiträge
SumProduct mit Bereichsnamen in VBA anwenden
Mike

Hallo,
ich möchte eine Matrixformel in VBA anwenden, wobei Region, Konzern und Status Breichsnamen sind.
Beispiel: =SUMMENPRODUKT((Region="N01")*(Konzern="Metro")*(Status="1-offen"))
Wer kann mir helfen?
Vielen Dank!
Mike
03.10.2009 17:30:08
Thread-ID: 1106999
7 Beiträge
Summe mit Variable in VBA
chrissey

Hallo Leut,
hab folgende Zeile in VBA die mir in der Zelle (LeZe, 10) eine Summe bilden soll:
'Worksheets("Auswertung").Cells(LeZe, 10).Formula = "=SUM(R[-5]C:R[-1]C)"
jetzt möchte ich aber die Länge der Summe durch eine Variable ersetzen,
also
-5 durch eine Variable z.B.: -...
08.10.2009 11:16:57
Thread-ID: 1108126
4 Beiträge
summe in vba
Detlef

=SUMME(......................./Rohdaten_ABT/2009_02/[2009_02_RZ.xls]Daten'!$E$3:$H$3)
wie bekomme ich die Formel in VBA.
2009_01_RZ ist der Dateiname (Jahr_Monat_Abteilung) bei 12 Monaten (Variabel) und 10 Abteilungen (Variabel) fünf verschiedenen Quellbereichen ergeben sich 600 Abfrage...
03.11.2009 12:28:35
Thread-ID: 1114102
5 Beiträge
Anzeige
Summenlinie mit VBA
Ganna

Hallo,
ich lasse mit Macros eine Berechnung laufen. Dabei berechnen sich Datenreihen. Wie kann ich mit VBA Werte für die Summenlinie berechnen, um dann die Summenlinie als Graph darzustellen. Die Summe gesamt habe ich berechnet. Was ich brauche ist die zweite Spalte z.B:
1 1
2 3...
12.01.2010 12:05:55
Thread-ID: 1129119
5 Beiträge
Array Formel summe wenn in VBA umwamdeln
t.wegmann@hengegroup.com

Hallo Liebes Forum,
ich habe ein Problem mit meiner Array-Formel:
=SUMME(WENN(('DATEN NEU'!$F$2:$F$25048=Frachten!$D4)*('DATEN NEU'!$N$2:$N$25048=Frachten!$F4) *('DATEN NEU'!$X$2:$X$25048=Frachten!H$2);'DATEN NEU'!$AB$2:$AB$25048))
Die Formel funktioniert gut, nur wenn ich die Date...
01.03.2010 09:54:52
Thread-ID: 1142293
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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