Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1168to1172
1168to1172
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Sumproduct dynamisch

Forumthread: VBA Sumproduct dynamisch

VBA Sumproduct dynamisch
Peter.H
Hallo zusammen
ich bekomme in der nachfolgenden Formel den Teil *** "=""BMW"" *** nicht über eine Variable zugewiesen.
Hier mein Code:
Sub SummenproduktFunktioniert()
Dim iCol%: iCol = 3
Dim iLz%: iLz = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Dim mon%: mon = 2
With wsSP
.[F1] = Evaluate("SumProduct((SP!A1:A" & iLz & "=""BMW"")*(SP!B1:B6=" & mon & ")*(" _
& .Range(.Cells(1, iCol), .Cells(iLz, iCol)).Address & ")*(SP!D1:D6))")
End With
End Sub

Sub SummenproduktFunktioniertNicht()
Dim iCol%: iCol = 3
Dim iLz%: iLz = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Dim mon%: mon = 2: Dim Typ$: Typ = "BMW"
With wsSP
.[F1] = Evaluate("SumProduct((SP!A1:A" & iLz & "="" & Typ & "")*(SP!B1:B6=" & mon & ")*("  _
_
& .Range(.Cells(1, iCol), .Cells(iLz, iCol)).Address & ")*(SP!D1:D6))")
End With
End Sub
Ich finde nicht den richtigen Weg die "" zu setzten...
Hier auch als Datei:
https://www.herber.de/bbs/user/70751.xls
Gruß
Peter
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Sumproduct dynamisch
25.07.2010 20:03:23
Gerd
Hallo Peter,
du hast eine etwas eigenwillige Kombination von Zellenadressierungen. :-)
Der 2. Unterstrich stammt von der Forensoftware.
Sub SummenproduktFunktioniertNicht()
Dim iCol%: iCol = 3
Dim iLz%: iLz = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Dim mon%: mon = 2: Dim strTyp$: strTyp = "BMW"
Dim wsp As Worksheet
Set wsp = Sheets("SP")
With wsSP
.[F1] = Evaluate("SumProduct((SP!A1:A" & iLz & "=""" & strTyp & """)*(SP!B1:B6=" & mon & ")*("  _
_
& .Range(.Cells(1, iCol), .Cells(iLz, iCol)).Address & ")*(SP!D1:D6))")
End With
End Sub
Gruß Gerd
Anzeige
AW: VBA Sumproduct dynamisch
25.07.2010 22:30:41
Peter.H
Hallo Gerd
es funktioniert jetzt perfekt....
Zu der eigenwilligen Zelladressierung:
Ich stehe mit den "" und verschiedenen Referenzierungen auf dem Kriegsfuss und habe hier in diesem Beispiel die unterschiedlichen Dynamisierungsmöglichkeiten zu lernen versucht.
Vielen Dank für die Lösung
Peter
Anzeige
;

Forumthreads zu verwandten Themen

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
Dynamische Summe ohne VBA
Matthias

Hallo,
habe folgendes Problem:
Auf einem Excel Blatt werden immer nur die letzen 31 Tage berechnet, eine Spalte soll aber einen kumulierten Wert übder das ganze Jahr erhalten. Wie bekommt man es ohne Makro hin, das er nach dem gegenwärtigen Datum der Zeile schaut, sich selbiges auf der...
25.11.2008 08:54:00
Thread-ID: 1027559
2 Beiträge
Anzeige
VBA Resume vier mal, dann Resume next
MBorn

Hallöle,
gibt es eigentlich sowas wie in der Überschrift beschrieben:
Resume 4 times: versuche das gleiche vier mal
Wenn es 4 x nicht klappt dann
Resume next: mach weiter
Ich hab noch nichts dazu gefunden, ihr vielleicht?
Danke,
Born
31.01.2009 16:52:00
Thread-ID: 1045686
6 Beiträge
WorksheetFunktion.Sum auf Range beschränken.
Chris


Hallo
Der untere Code läuft soweit perfekt, wären nicht noch andere Eingabefelder in der Umbgebung.
Sobald ich in eine Andere Zelle gehen als die von den Range A2:A30 und A50:A80 kommt auch dann
die Meldung. Ich glaube das hängt mit dem Sheet zusammen.
Kann man die Workshe...
08.02.2009 20:12:00
Thread-ID: 1048456
6 Beiträge
Anzeige
Spezialsumme VBA
Michi

Guten Morgen!
Ich habe eine ergänzende Frage zu einem Problem, das ich hier bereits gepostet hatte. Ich konnte den Thread nicht mehr aus dem Archiv zum Leben erwecken. Bitte verzeiht mir das.
Das Problem war hier beschrieben.
https://www.herber.de/forum/archiv/1044to1048/t1045492.h...
11.02.2009 10:42:00
Thread-ID: 1049477
8 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
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
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
ArraySumme von ABS Werten in VBA
ABS

Hallo Excel Freunde,
ich stehe gerade bei einer vermutlich banalen Sache auf der langen Leitung.
{=SUMME(ABS(A6:G6)) } Diese ArrayFormel bildet die Summe aller Einzelzellen von A6-G6 aus ihren individuellen ABS Werten.
Wie lautet diese Zeile in VBA, wenn testweise A6-G6 die Selectio...
10.03.2010 20:52:23
Thread-ID: 1144997
4 Beiträge
VBA Summenprodukt-Wochentag Typen unverträglich
Alfons

Hallo,
in Spalte A stehen die Tage: 01.02.2010, 02.02.2010 usw.
Zellformat ist Standard.
Mit VBA will ich davon die Anzahl der Montage ermitteln.
Dim rng As Range
Set rng = Range("A2:A65000")
MsgBox WorksheetFunction.SumProduct((Weekday(rng, 2) = 1) * 1)
Warum kommt...
29.03.2010 07:12:46
Thread-ID: 1148988
11 Beiträge
vba SUMPRODUKT und Anführungszeichen
Alfons

Hallo,
es soll eine Collection mit Firmen durchlaufen und die passenden Werte
aus Spalte H-K mit SUMPRODUKT addiert werden.
Problem: enthält der Firmenname Anführungszeichen, liefert SUMPRODUKT #WERT.
Set rngFirmen = ActiveSheet.Range("B2:B" & lngLZ)
Set rngAE = ActiveSh...
30.07.2010 10:47:16
Thread-ID: 1169611
3 Beiträge
Summe einer Spalte - variabel
Ano

Hallo,
folgendes Problem:
In einer Spalte stehen von 1- max. 30 Zahlen untereinander, deren Summe ich in einer anderen Spalte benötige. Danach fängt ein neuer Block an.
Also
3
4
5
Summe: 12
4
9
Summe 13
4
Summe 4
6
7
7
3
2
...
07.08.2010 11:34:15
Thread-ID: 1171032
21 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige