Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1668to1672
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range in Sumproduct

Range in Sumproduct
17.01.2019 15:07:13
Alex
Hallo ich bins wieder, leider funktioniert mein Range nicht mehr, habe alles versucht, aber kriege es nicht hin.
in Excel wird diese Formel angezeigt und als wert steht #Name?. Wenn ich rngArea.Cells(lngRow; 1) mit dem Kriterium manuell ersetze, kommt das richtige Ergebnis.
=INDEX_
([M_.xlsm]MyTable!A1:AZ2000; SUMMENPRODUKT(([M_.xlsm]MyTable!A1:AZ2000=_
rngArea.Cells(lngRow; 1))*ZEILE([M_.xlsm]MyTable!1:2000));_
SUMMENPRODUKT(([M_.xlsm]MyTable!A1:AZ10="Kommentar")*SPALTE([M_.xlsm]MyTable!A1:AZ10)))
das ist der Code in VBA
FoinKo = _
"=INDEX('[_XXX_]MyTable'!A1:AZ2000,SUMPRODUCT(('[_XXX_]MyTable'!A1:AZ2000=_YYY_)*ROW('[_XXX_] _
MyTable'!1:2000)),SUMPRODUCT(('[_XXX_]MyTable'!A1:AZ10=""Kommentar"")*COLUMN('[_XXX_]MyTable'!A1:AZ10)))"
BezZel = "rngArea.Cells(lngRow, 1)"
FoinKo = Replace(FoinKo, "_YYY_", BezZel)
FoinKo = Replace(FoinKo, "_XXX_", filename)

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range in Sumproduct
17.01.2019 15:24:56
Daniel
Hi
innerhalb des Formeltextes musst du auch die Formeltypische Schreibweise für Zellbezüge verwenden und keinen VBA-Code.
Gruß Daniel
AW: Range in Sumproduct
17.01.2019 15:37:48
Alex
Wie mache ich das? rngArea.Cells(lngRow; 1) ist in Abhängigkeit der Filterung. rngArea.Cells(lngRow; 1) gib ja immer den richtig Wert aus, nur habe ich es nicht geschafft, diese in der Formel anzuwenden
With Sheets(1).UsedRange
Set rngFilter = .Offset(2, 1).Resize(.Rows.Count - 2, 1).SpecialCells(xlCellTypeVisible)
For Each rngArea In rngFilter
For lngRow = 1 To rngArea.Rows.Count
rngArea.Cells(lngRow, 1).Offset(0, SpaKo).Formula = FoinKo
Next lngRow
Next rngArea

Anzeige
AW: Range in Sumproduct
17.01.2019 15:56:09
Daniel
naja, wie bringt man variable Inhalte in VBA in einen Text ein?
"Fester Text Teil1" & Variable/Funktion & "FesterText Teil2"
oder über die von mir beschriebene Methode mit Dummy-Text und Replace
wobei du in diesem Fall noch entscheiden müsstest (bzw uns diese Entscheidung mitteilen), ob du jetzt den Wert aus der Zelle als festen Wert in die Formel einfügen willst oder den Zellbezug auf die Zelle.
wenn du den Zellbezug auf die Zelle in die Formel einfügen willst und es ein relativer bezug sein soll, würde ich dir grundsätzlich empfehlen, dir mal die Z1S1 bzw R1C1-Addressierungsart anzuschauen, denn damit lassen sich relative Zellbezüge einfacher beschreiben.
Gruß Daniel
Anzeige
AW: Range in Sumproduct
17.01.2019 16:07:16
Alex
Dein Hinweis auf die Excel Schreibweise, hat mich weiter gebracht. Warum auch immer dachte ich, dass Excel auch VBA Variablen erkennt ...
Jetzt scheint es zu funktionieren, alle Zellen kriegen die richtigen Bezüge. Vielen Dank!
FoinKo = "=INDEX('[_XXX_]MyTable'!A1:AZ2000,SUMPRODUCT(('[_XXX_]MyTable'!A1:AZ2000=YXYX)*ROW('[ _
_XXX_]MyTable'!1:2000)),SUMPRODUCT(('[_XXX_]MyTable'!A1:AZ10=""Kommentar"")*COLUMN('[_XXX_]MyTable'!A1:AZ10)))"
YYYY = rngArea.Cells(lngRow, 1).Address
FoinKo = Replace(FoinKo, "YXYX", YYYY)
FoinKo = Replace(FoinKo, "_XXX_", filename)

Anzeige

28 Forumthreads zu ähnlichen Themen

formula sum vba
Andi

Hallo,
ich möchte via makro eine Summenformel unter eine Datenreihe setzen (die Summenformel soll danach in der Zelle stehen).
Dies wollte ich über die Funktion „Formula“ machen
Zeile = 5
Spalte = 4
LetzteSpalte = 7
.Range(.Cells(Zeile, Spalte), .Cells(Zeile, Spalte)).Fo...
05.12.2013 18:28:02
Thread-ID: 1341473
7 Beiträge
Anzeige
Worksheetfunction.Sumif
smi

Hallo,
ich habe eine Funktion geschrieben, die mir aus einem Bereich den Mittelwert des oberen Drittels errechnen soll.
Die Worksheetfunction Sumif liefert mir aber kein Ergebnis, wenn ich mehrere Zahlen mit Nachkommastellen habe. Hat jemand eine Idee warum?
Vielen Dank im Voraus.
20.11.2014 12:22:14
Thread-ID: 1393422
3 Beiträge
Application.WorksheetFunction.Sum für 2d Array
Frank

Hallo an Alle,
ich habe schon gesucht und auch ein bisschen was gefunden, aber so richtig hilft mir das nicht weiter. Zur Zeit bilde ich die Summe der Spalte 5 meines Arrays indem ich es über eine Schleife aufaddiere. Nun dachte ich, dass man das auch mit der Sum Formel lösen könnte, aber s...
25.11.2014 09:16:59
Thread-ID: 1394344
9 Beiträge
Anzeige
Worksheetfunction sumif
Dominik

Hallo und zwar hab ich folgendes Problem:
Ich habe ein Excelliste wo in der Spalte D verschiedene Bereitstell-Daten (z.b.: Bereitstell-Datum: 27.01.2015) für unser Aktionen stehen und in der Spalte E dazu die Werte bzw. die Anzahl welche Menge an diesem Tag ausgeliefert wird. Ich habe auch...
21.01.2015 06:42:18
Thread-ID: 1404029
3 Beiträge
Cells in Range bei VBA
Ulrich

Hallo,
ich hoffe ihr könnt helfen
folgende Zeile geht
Worksheets("vorl").Range("H34:BK34").Copy
gewandelt in cells geht nicht
Worksheets("vorl").Range(Cells(34, 8), Cells(34, 63)).Copy
benutzt in
Worksheets("vorl").Range(Cells(34, 8), Cells(34, 63)).Copy
Range...
06.05.2015 10:03:50
Thread-ID: 1424850
26 Beiträge
worksheetFunction Sumif funktioniert nicht
Bonduca

Hallo,
ich habe mir folgenden Code in VBA gebastelt: Sub PLZ_aufsummieren() Dim ws1 As Worksheet Dim ws2 As Worksheet Dim varResult As Variant Set ws1 = Worksheets("A") Set ws2 = Worksheets("B") For i = 17 To 40000 For j = 4 To 500 varResult = Application.WorksheetFunction.SumIf( _ Arg1:=w...
19.08.2015 07:32:08
Thread-ID: 1443036
3 Beiträge
Summenbildung Range/Cells
Robin

Hallo Ihr lieben,
ich stelle mich gerade total an, die Summe aus einem Bereich richtig in einen Code zu packen... Kann mir bitte jemand bei der Korrektur dieser einen Code-Zeile helfen?
In die Variable lngSumme soll die Summe aus dem (dynamischen) Bereich T1:Tstrzeile geschrieben werden...
29.09.2015 11:46:32
Thread-ID: 1449908
3 Beiträge
VBA, WorksheetFunction.SearchB
Rainer Quaas

Hallo Excel-User,die Häufigkeit (H) wie oft String1 in String2 vorkommt, wobei String1 * oder ? als Wildcard enthalten kann, wird durch folgende Funktion berechnet:H = Application.WorksheetFunction.SearchB(String1 , String2 , 1)Bei einer Zeichenanzahl > 32.0000 von String2 ist diese Formel nich...
04.04.2003 11:23:40
Thread-ID: 240294
4 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
5
2
8
14
2
25
2
2
3
3
3
1
3
4
8
2
2
2
1
2
8
3
6
3