Aufsummieren mehrfacher Einträge in neuer Spalte nach Identifier

Vielen Dank Andreas!
<br />Ich habe schon ein paar Fortschritte mit der ZÄHLENWENNS - Funktion damit gemacht, aber das hier sieht übersichtlicher aus!
<br />Danke nochmals und LG!
<br />

Ich nehme an, dies ist etwas, das man mit SVERWEIS hinbekommen könnte?

Lieber nicht. ;-)
<br />Formatiere die Daten als Tabelle, das macht es später einfacher wenn Daten hinzukommen.
<br />Create and format tables - Office Support
<br />Dann erstelle eine Pivottabelle:
<br />Create a PivotTable to analyze worksheet data - Office Support
<br />


<br />Und schon ist das Ergebnis da. Das Layout kann man anpassen.
<br />Andreas.
<br />

Hallo,

leider sieht man das Bild nicht.

Versuche es mal mit einer UDF:

Function DuplikateAuflisten(Bereich As Range)

Dim myDic As Object

Dim rngC As Range

Dim varTmp As Variant, varData As Variant, varOut() As Variant

Dim i As Long, n As Long

varData = Bereich

Set myDic = CreateObject("Scripting.Dictionary")

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

   myDic(varData(i, 1)) = varData(i, 1)

Next

varTmp = myDic.items

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

   If Application.CountIf(Bereich, varTmp(i)) > 1 Then

      ReDim Preserve varOut(n)

      varOut(n) = varTmp(i)

      n = n + 1

   End If

Next

DuplikateAuflisten = varOut(Application.Caller.Row - 1)

End Function

und rufe diese Funktion im Blatt auf mit z.B.:

=WENNFEHLER(DuplikateAuflisten(A$1:A$100);"")

und ziehe nach unten bis die Zelle leer bleibt.

Claus

Ich habe eine Liste in der Einträge mehrfach in einer Spalte auftreten.
Ich möchte die Einträge einzeln auflisten lassen.

Lad Dir mal dieses AddIn runter, brauchst Du nicht zu installieren, einfach entpacken und doppelklicken.

Da ist ein "Duplikate anzeigen" drin, was auch Unikate und mehr kann.

Andreas.

Hallo,

kann ich hier meine Beispieldatei hochladen?

Vor dieser ist auch der Screenschot oben.

Grüße

Karl