mehrfach auftretende Einträge auflisten

Kater_Carlo · 19. Januar 2018

Hallo,

ich möchte die Zeiterfassung über eine Excel-Tabelle machen.

Dazu möchte ich die Arbeiten erstmal so eintragen, wie sie anfallen.

Später soll Excel die Einträge filtern, sodass jeder Eintrag nur einmal gelistet wird.

Die Formel zur Auflistung (1) habe ich nicht selber erstellt und verstehe sie nur im Ansatz.

Sie sammt aus einem anderen Artikel (http://www.supportnet.de/faqsthread/2377554) und lautet:

=WENN(ZEILE(AJ1)>SUMME(WENN(AJ$1:AJ$92="";0;1/(ZÄHLENWENN(AJ$1:AJ$92;AJ$1:AJ$92)));-(ZÄHLENWENN(AJ$1:AJ$92;AJ$1:AJ$92)=1)*1);"";INDIREKT("U"&KKLEINSTE(WENN((ZÄHLENWENN(INDIREKT("U1:U"&ZEILE($1:$92));AJ$1:AJ$92)=1)*(ZÄHLENWENN(AJ$1:AJ$92;AJ$1:AJ$92)>1);ZEILE($1:$92));ZEILE(AJ1))))

Die Formel arbeitet nur, wenn man auf die Zelle auswählt, dann oben ins Feld klickt und [STRG]+[ENTER] drückt.

Die Formel (2) ist einfacher:

=WENN(AK28="";"";SUMMEWENN(AJ$3:AJ$25;AK28;AN$3:AN$25))

Jetzt die Fragen:

Warum funktioniert das nicht, wenn ein Eintrag nur einmal auftaucht? Wie ihr seht, fehlt der Eintrag "top_3".

Wie kann ich die Formel dahingehend ändern?

Neuerdings taucht auch folgender Fehler auf:

Wie kann ich die Fehlerausgabe "#Zahl!" beheben?

Ich hoffe, ich konnte es einigermaßen erklären.

Vielen Dank für eure Hilfe und viele Grüße

Karl

Claus Busch

Hallo Carlo,

da dies eine Array-Formel ist, müssen in allen Ausdrücken die Bereich gleich groß sein.

Wenn deine Daten erst in AJ3 anfangen, dann ändere die Formel so:

=WENNFEHLER(INDEX($AJ$3:$AJ$99;VERGLEICH(1;(ZÄHLENWENN(AK$28:AK28;AJ$3:AJ$99)=0)*(AJ$3:AJ$99<>"");0));"")

Claus

Claus Busch

Hallo Karl,

deine Formel listet dir nur mehrfach vorkommende Einträge auf. Da "top_3" nur ein Mal vorkommt, wird es nicht aufgelistet.

Schreibe in AK28:

=AJ3

und in AK29:

=WENNFEHLER(INDEX(AJ:AJ;VERGLEICH(1;(ZÄHLENWENN(AK$28:AK28;AJ$1:AJ$99)=0)*(AJ$1:AJ$99<>"");0));"")

beende die Eingabe mit STRG+ Shift+Enter und ziehe dann herunter bis die Zelle leer bleibt.

Claus

Kater_Carlo

Hallo Claus,

danke, das geht.

Kann ich noch den Auswertungsbereich anpassen?

Zur Zeit konnt die Spaltenüberschrift und gekommen/ gegangen auch mit und wenn ich den Bereich manuell verkeinere funktioniert die Auflistung nicht mehr.

Danke und Grüße

Carlo

Claus Busch

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

Andreas Killer

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.

Hi,

willkommen im Windows Forum!

mehrfach auftretende Einträge auflisten - Similar Threads - mehrfach auftretende Einträge	Forum	Datum
Warum wird ein Eintrag mehrfach angezeigt? Massig Duplikate Warum wird ein Eintrag mehrfach angezeigt? Massig Duplikate: Hallo liebe Microsoft Community, ich nutze sehr gerne OneNote um meine Notizen zu sortieren. Aber aus irgendeinem Grund, wird vor allem meine einkaufsliste mehrfach kopiert bzw dupliziert aber...	Microsoft Office	7. Oktober 2024
Explorer zeigt mehrfach den Eintrag Desktop an Explorer zeigt mehrfach den Eintrag Desktop an: Aus diesem Thread ausgliedern. Wir verwenden einen Übersetzungsdienst, um unsere Benutzer zu unterstützen. Bitte entschuldigen Sie grammatikalische Fehler.Hallo Werner,Ich bin Dave, ich werde dir...	Apps	18. Oktober 2023
Explorer zeigt mehrfach den Eintrag Desktop an Explorer zeigt mehrfach den Eintrag Desktop an: Aus diesem Thread ausgliedern. Wir verwenden einen Übersetzungsdienst, um unsere Benutzer zu unterstützen. Bitte entschuldigen Sie grammatikalische Fehler.Hallo Werner,Ich bin Dave, ich werde dir...	Games und Spiele	18. Oktober 2023
Explorer zeigt mehrfach den Eintrag Desktop an Explorer zeigt mehrfach den Eintrag Desktop an: Hallo zusammen,in meinem Explorer wird der Desktop mehrfach angezeigt. Die Ansicht ist normalerweise anders. Anbei das Foto dazu.Normalerweise ist "Dieser PC" die oberste Ebene. Nun ist "Dieser...	Apps	16. April 2023
Explorer zeigt mehrfach den Eintrag Desktop an Explorer zeigt mehrfach den Eintrag Desktop an: Hallo zusammen,in meinem Explorer wird der Desktop mehrfach angezeigt. Die Ansicht ist normalerweise anders. Anbei das Foto dazu.Normalerweise ist "Dieser PC" die oberste Ebene. Nun ist "Dieser...	Games und Spiele	16. April 2023
Aufsummieren mehrfacher Einträge in neuer Spalte nach Identifier Aufsummieren mehrfacher Einträge in neuer Spalte nach Identifier: Hallo,ich habe eine Frage bezüglich des Zusammenführens/Summierens von Werten aus Mehrfachnennungen einer Spalte mit einem Identifier, die in einer neuen Tabelle als einzelner aufsummierter Werte...	Microsoft Office	31. Januar 2022
mehrfach auftretende Einträge in einer Spalte auflisten mehrfach auftretende Einträge in einer Spalte auflisten: Hallo, Ich habe eine Liste in der Einträge mehrfach in einer Spalte auftreten. Ich möchte die Einträge einzeln auflisten lassen. Nach einiger Recherche bin ich auf folgende Formel gestoßen...	Microsoft Office	28. Juni 2017

mehrfach auftretende Einträge auflisten