Auflistung und Summe gleicher Namen

05.01.2026 19:17:11

mablu

Hallo zusammen
ich versuche eine Liste zu erstellen ind der die gleichen Titel & Arrangeur, einmal aufgelistet werden und die Summe der Anzahl in Spalte C summiert wird.
Ich habs Versucht mit Sverweis und zwei Bedingungen, aber ich krieg nichts gescheites zusammen!
Könnte mir hier jemands helfen ich hab die Liste erstellt und auch das Resultat von Hand reingeschrieben so wie ich es haben möchte aber wie geht es?
Ist Sverweis überhaupt die richtige Löseung?

Besten Dank für eure Hilfe
mablu

https://www.herber.de/bbs/user/179955.xlsx

AW: Auflistung und Summe gleicher Namen

05.01.2026 19:59:17

Alwin Weisangler

Hallo mablu,

ist Office 2019 aktuell? Wenn ja wäre VBA das Mittel der Wahl.

Gruß Uwe

AW: Auflistung und Summe gleicher Namen

05.01.2026 20:41:02

mablu

Ja hauptsächlich Excel 2019 manchmal Office 365, je nachdem wo ich Arbeite.Makro aufzeichnen und das ist sicher nicht so einfach?
Gruss mablu

AW: Auflistung und Summe gleicher Namen

05.01.2026 20:50:56

Alwin Weisangler

für O365 ginge diese Formel in Auflistung Zelle B4:

=LET(xA; DBS;xB; EINDEUTIG( HSTAPELN(INDEX(xA;;1); INDEX(xA;;4); INDEX(xA;;5); INDEX(xA;;6); INDEX(xA;;7); INDEX(xA;;8)) );xC; MAP(SEQUENZ(ZEILEN(xB)); LAMBDA(r;SUMMEWENNS(INDEX(xA;;2);INDEX(xA;;1); INDEX(xB;r;1);INDEX(xA;;4); INDEX(xB;r;2))));HSTAPELN(INDEX(xB;;1);xC;INDEX(xB;;2);INDEX(xB;;3);INDEX(xB;;4);INDEX(xB;;5);INDEX(xB;;6)))

https://www.herber.de/bbs/user/179959.xlsx
Wenn es mit VBA sein soll melde dich einfach noch mal.

Gruß Uwe

AW: Auflistung und Summe gleicher Namen

05.01.2026 22:22:53

Alwin Weisangler

nun noch die VBA Variante:



Option Explicit



Sub ListeAusgeben()

    Dim arrlist(), oDic As Object, z As Range, tmp, tmp1, i&, j&, k&

    Set oDic = CreateObject("Scripting.Dictionary")

    For Each z In Tabelle1.Range("DBS[Titel]")

        oDic(z.Value & "###" & z.Offset(, 3).Value) = 0

    Next

    tmp = oDic.keys

    ReDim arrlist(1 To UBound(tmp) + 1, 1 To 7)

    For i = LBound(tmp) To UBound(tmp)

        tmp1 = Split(tmp(i), "###")

        With Tabelle1.ListObjects(1).DataBodyRange

            For j = 1 To .Rows.Count

                If .Cells(j, 1) = tmp1(0) And .Cells(j, 4) = tmp1(1) Then

                    k = k + 1

                    arrlist(k, 1) = tmp1(0)

                    arrlist(k, 2) = WorksheetFunction.SumIfs(Tabelle1.Range("DBS[Anzahl]"), Tabelle1.Range("DBS[Titel]"), tmp1(0), Tabelle1.Range("DBS[Arrangeur]"), tmp1(1))

                    arrlist(k, 3) = tmp1(1)

                    arrlist(k, 4) = .Cells(j, 5)

                    arrlist(k, 5) = .Cells(j, 6)

                    arrlist(k, 6) = .Cells(j, 7)

                    arrlist(k, 7) = .Cells(j, 8)

                    Exit For

                End If

            Next j

        End With

    Next i

    Tabelle2.Range("B4").Resize(UBound(arrlist), UBound(arrlist, 2)) = arrlist

End Sub

Was sich mir unklar ist, warum du statt Verlag4 an dieser Stelle Erol Home bzw. Oleg Kimberly in der Ausgabespalte Verlag stehen hattest.
https://www.herber.de/bbs/user/179963.xlsm

Gruß Uwe

AW: Auflistung gelöst Danke!

05.01.2026 22:41:22

mablu

Das ist es was ich suchte
Super vielen Dank
zu deiner Anmerkung ja da ist mir was reingerutscht, vor lauter Suchen habe ich die Übersicht verloren danke für den Input.
Schöne Woche
mablu

AW: Auflistung und Summe gleicher Namen

06.01.2026 10:18:12

Alwin Weisangler

Hallo mablu,

es war im Schnellschuss der LET() noch ein Denkfehler drin (EINDEUTIG). Falls du doch die Formel mal in Betracht ziehen solltest wäre diese korrekt so:


=LET(xA;DBS;xB;EINDEUTIG(HSTAPELN(INDEX(xA;;1);INDEX(xA;;4)) );xC;MAP(SEQUENZ(ZEILEN(xB));LAMBDA(r;SUMMEWENNS(INDEX(xA;;2);INDEX(xA;;1); INDEX(xB;r;1);INDEX(xA;;4); INDEX(xB;r;2))));xD;LAMBDA(col;MAP(SEQUENZ(ZEILEN(xB));LAMBDA(r;INDEX(col;VERGLEICH(1;(INDEX(xA;;1)=INDEX(xB;r;1))*(INDEX(xA;;4)=INDEX(xB;r;2));0)))));HSTAPELN(INDEX(xB;;1);xC;INDEX(xB;;2);xD(INDEX(xA;;5));xD(INDEX(xA;;6));xD(INDEX(xA;;7));xD(INDEX(xA;;8))))

Die Formel funktioniert ab O2024 und natürlich in O365.
https://www.herber.de/bbs/user/179967.xlsm

Gruß Uwe

AW: Auflistung und Summe gleicher Namen

05.01.2026 19:59:59

Daniel

Hi

Nein, SVerweis ist hier nicht richtig.

Bei deiner Excelversion kannst du entweder die Auswertung mit Hilfe der Pivot-Tabelle erstellen (bitte selber googeln, wie das geht, du wirst Tutorials finden, aber im Forum auf die Schnelle erklären kann ich nicht)

Ein anderer Weg wäre, das du die ganze Liste erstmal kopierst und diese Kopie dann mit der Menüfunktion Daten - Datentools - Duplikate Entfernen bearbeitest,so dass jede Kombi aus Titel und Arrangeur nur 1x vorkommt.
Dann kannst du die Auswertung mit SummeWenns machen.

Für eine Lösung, die nur auf Formeln basiert, ist dein Excel zu alt. Da bräuchtest du mindestens Excel 2022 mit der Funktionen EINDEUTIG

AW: Auflistung und Summe gleicher Namen

05.01.2026 20:06:56

onur

"All's was bruchsch uf de WELT 2" ??? Sicher 2 ???

AW: Auflistung und Summe gleicher Namen

05.01.2026 20:35:54

mablu

Hallo
nei da habe ich einen Fehler gemacht sorry
2 x 1 - 1 gibt auch bei mir 1
ich habe jetzt schon einige Vorschläge bei Power Queri wird aber nicht summiert so wie ich das bis jetzt sehe!
Gibt es eine Möglichkeit mit Formeln?

Gruss mablu

AW: Auflistung korrektur

05.01.2026 20:51:55

mablu

Hallo hier noch das korrekte Beispiel
ich habs noch um ein paar Zeilen erweiter zum besseren Verständnis

https://www.herber.de/bbs/user/179960.xlsx

Gruss mablu

Klappt doch...

05.01.2026 21:10:55

Case

Moin, :-)

... mit Power Query (war vorhin noch ein Fehler drin): ;-)
https://www.herber.de/bbs/user/179961.xlsx

Servus
Case

Das wäre eine Möglichkeit...

05.01.2026 20:12:05

Case

Moin, :-)

... mit Power Query: ;-)
https://www.herber.de/bbs/user/179956.xlsx

Infos zu Power Query: ;-)
https://excelhero.de/power-query/power-query-ganz-einfach-erklaert/

Servus
Case

AW: Auflistung und Summe gleicher Namen

05.01.2026 20:38:36

mablu

Ich habe noch einen Fehler in meinem Beispiel Alls was Bruchs... ergibt nur 1!
Korrektes Beispiel:

https://www.herber.de/bbs/user/179957.xlsx

Gruss mablu

Auflistung und Summe gleicher Namen

Forumthread: Auflistung und Summe gleicher Namen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Auflistung und Summe gleicher Namen

Forumthread: Auflistung und Summe gleicher Namen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread