Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1500to1504
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

Summe über mehrere Tabellenblätter mit Bedingung

Summe über mehrere Tabellenblätter mit Bedingung
26.06.2016 11:12:00
Andreas

Hallo zusammen,
ich suche nach einer Funktion, die
- Summe über mehrere Tabellenblätter bildet
- Eine Referenz z.B. Artikel 1001 (ist in allen Blätter als Überschrift enthalten)
- Der zugehörige Wert in der Zeile über alle Blätter soll summiert werden
- Blätter sind zusammenhängend und ähnlich benannt z.B. 2016-06 2016-07 usw.
Mein Versuch sh. Anhang mit Summewenn gibt mir ne Fehlermeldung.
https://www.herber.de/bbs/user/106533.xlsx
Ich hatte die Frage bereits im Forum gestellt, hatte wohl mit dem Upload des Excefiles Probleme gegeben. Also sorry für Doppelpost. Wusste nicht wie ich es handhaben soll.
Vielen Dank schon mal für die Hilfe.
Schönen Gruß
Andreas

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

Betreff
Datum
Anwender
Anzeige
...aber mit MatrixFml so, ...
27.06.2016 04:14:54
Luc:-?
…Andreas:
D4: {=SUMME(WAHL(SPALTE(A1:B1);WVERWEIS(D3;'2015-06'!$3:$4;2;0);WVERWEIS(D3;'2016-07'!$3:$4;2;0)))}
Leider wirst du jedes Blatt einzeln aufführen müssen, aber das wdn ja wohl bloß 12… ;-]
Feedback nicht unerwünscht! Morrn, Luc :-?
Besser informiert mit …

Anzeige
...wobei man dann natürlich auch auf WAHL ...
27.06.2016 19:29:18
Luc:-?
…verzichten könnte, Andreas;
dann sähe die Fml so aus (2015-06 heißt dein 1.Blatt!):
=SUMME(WENNFEHLER(WVERWEIS(D3;'2015-06'!$3:$4;2;0);0);WENNFEHLER(WVERWEIS(D3;'2016-07'!$3:$4;2;0);0))
Und eigentlich gehört WENNFEHLER auch in die 1.(Matrix-)Fml:
{=SUMME(WAHL(SPALTE($A1:$B1);WENNFEHLER(WVERWEIS(D3;'2015-06'!$3:$4;2;0);0);WENNFEHLER(WVERWEIS(D3; '2016-07'!$3:$4;2;0);0))) }
Etwas kürzer geht's dann ggf so:
{=SUMME((WAHL(ZEILE(A1:A2);'2015-06'!$3:$3;'2016-07'!$3:$3)=B3)*WAHL(ZEILE(A1:A2);'2015-06'!$4:$4; '2016-07'!$4:$4)) }
Und mit einer UDF zur FmlText-Auswertung (mit XLM-Fkt AUSWERTEN in benannter Fml scheint's nicht zu klappen!) so:
=SUMMENPRODUKT((TxEval(WECHSELN("#!3:3";"#";{"'2015-06'";"'2016-07'"}))=D3) *TxEval(WECHSELN("#!4:4";"#";{"'2015-06'";"'2016-07'"})))
Rem Erweitertes Trivial zu KomplexFktt LetFormula/LetEval
'   Vs1.2 -LSr -cd:20151026 -1pub:20160223h(1.0) -lupd:20160323t
Function TxEval(Bezug)
Dim ix(3) As Long, erg, tx As Variant
On Error Resume Next
If IsArray(Bezug) Then
With WorksheetFunction
If TypeName(Bezug) = "Range" Then
Bezug = .Transpose(Bezug)
Else: Bezug = .Transpose(Bezug)
End If
End With
If IsError(LBound(Bezug, 2)) Then
ix(2) = 1: ix(3) = UBound(Bezug, 1) + 1 - LBound(Bezug, 1)
Else: ix(2) = UBound(Bezug, 1) + 1 - LBound(Bezug, 1)
ix(3) = UBound(Bezug, 2) + 1 - LBound(Bezug, 2)
End If
ReDim erg(ix(2) - 1, ix(3) - 1)
For Each tx In Bezug
erg(ix(0), ix(1)) = Evaluate(tx)
ix(0) = (ix(0) + 1) Mod ix(2): ix(1) = ix(1) - CInt(ix(0) = 0)
Next tx
TxEval = erg
Else: TxEval = Evaluate(CStr(Bezug))
End If
End Function
Feedback nicht unerwünscht! Gruß, Luc :-?
Besser informiert mit …

Anzeige
...Übrigens, 'Alle Versionen' ist unklug, wenn ...
27.06.2016 19:32:12
Luc:-?
…nicht von vornherein auf alle neuen Fktt und Fktionalitäten ab Xl12/2007 verzichtet wdn soll!
Luc :-?

347 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige