Doppelte Einträge über mehrere Dateien finden

05.01.2026 11:19:13

Tobias

Moin und ein frohes, neues Jahr!

Ich habe pro Woche 4 Transportlisten, die Containerdaten enthalten.
Das sind keine fortlaufenden Listen, sondern immer neue, da diese immer nur für einen Verkehrsträger sind. D.h. ich habe immer für Mo, Mi, Fr + Sa jede Woche jeweils eine Liste.
Wenn sich nun etwas verspätet, müssen häufiger Container von z.B. der Montagsliste auf die Mittwochsliste verschoben werden.
Nun kam es schon diverse Male vor, dass diese tatsächlich kopiert und weder ausgeschnitten noch händisch rausgelöscht wurden, sodass wir dann doppelte Einträge auf unterschiedlichen Listen hatten. Da leider zu viele Personen hier ihre Hände im Spiel haben, muss ich das täglich kontrollieren und bin mir sicher, dass das doch bestimmt auch einfach geht als manuell.
Hat jemand eine Idee für eine Formel oder auch für VBA, damit das flotter geht?

Vielen Dank vorab & einen schönen Tag!
Gruß
Tobias

AW: Doppelte Einträge über mehrere Dateien finden

05.01.2026 13:21:00

Piet

Hallo Tobias

kein Thema, das geht sicher sehr einfach mit VBA.
Ohne die Datei zu sehen können wir dir aber nicht weiterhelfen.
Lade bitte eine Datei mit allen Sheets hoch, 5-10 Zeilen reichen um den Aufbau zu verstehen.
Bitte wichtige Daten durch Fantsiedaten ersetzen. Es geht nur um den Aufbau von Sheets, Spalten, Zeilen.

Wenn ich das richtig sehe sind es vier verschiedene Dateien. Richtig?
Alle im gleichen Ordner? Worin unterscheiden sich die Dateinamen?
Sind die Sheets alle gleich aufgebaut, alle Überschriften 1:1 identisch?
Dann reicht uns eine Datei! Ich warte mal ab was du uns höchlädst.

mfg Piet

AW: Doppelte Einträge über mehrere Dateien finden

05.01.2026 14:40:01

Tobias

Hallo Piet,

alle Dateien sind komplett identisch vom Aufbau (Überschriften, Spaltenbezeichnung etc.), da sie alle aus einer Vorlage erstellt werden.
Es sind teilweise bis zu 16 Dateien im Ordner und ja, sie sind alle im selben Ordner.
Die Dateinamen unterscheiden sich nur im Datum und sind wie folgt aufgebaut:

Format: JJJJMMTT I Werk
Beispiel: 20260105 I Hamburg

Hier ist die Beispieldatei: https://www.herber.de/bbs/user/179952.xlsx

Danke!

Gruß
Tobias

AW: Doppelte Einträge über mehrere Dateien finden

05.01.2026 13:27:59

JoWE

Hallo Tobias,
lade doch besser mal eine Montags- und eine Mittwoch-Liste hoch.
Wie kann Excel erkennen, dass eine Verspätung vorliegt und die Verschiebung erfolgen muss?
Gruß
Jochen

AW: Doppelte Einträge über mehrere Dateien finden

05.01.2026 14:42:50

Tobias

Hallo Jochen,

die Excel soll nicht erkennen, dass eine Verspätung vorliegt, das wird manuell gemacht, da hierzu die Fahrpläne im Web gecheckt werden müssen.
Excel soll für mich nur kontrollieren, ob Containernummern (immer bestehend aus vier Buchstaben Prefix und 7 Ziffern - alles zuammengeschrieben) auf den Listen doppelt erscheinen. Sie dürfen nur jeweils einmal vorkommen.

Hier ist die Beispieldatei: https://www.herber.de/bbs/user/179952.xlsx

Danke!

Gruß
Tobias

AW: Doppelte Einträge über mehrere Dateien finden

05.01.2026 13:47:32

Yal

Hallo Tobias,

bringe jede diese Listen ins Power Query (PQ) zusammen, gruppiere die Einträge über die Felder, die sich wiederholen und mache dabei eine Zählung, filtere anschließend die Einträge, die mehr als einmal vorkommen. Kling einfach, ist es auch. Siehe Kapitel 4 in folgenden Tutorial:
https://excelhero.de/power-query/power-query-ganz-einfach-erklaert/

Idealerweise sind diese 4 Dateien in einem Verzeichnis, wo keine andere Dateien vorliegen, dann kann PQ alle Dateien aus dem Verzeichnis auf einmal verarbeiten. Kapitel 5.

Details geht es nur mit Beispiel-Material (bereinigt von alles, was nicht im Netz gehört).

VG
Yal

AW: Doppelte Einträge über mehrere Dateien finden

05.01.2026 15:23:01

Tobias

Hallo Yal,

danke für deine Antwort, aber ich habe von Power Query bisher nur hier im Forum immer mal gelesen, habe aber keine Ahnung, was das ist und wie das geht.
Daher würde ich davon erstmal absehen.

Gruß
Tobias

AW: Doppelte Einträge über mehrere Dateien finden

05.01.2026 18:49:02

Yal

Hallo Tobias,

was PQ ist:
eine Sammlung von Funktionen, die per Klick (Low Code/no code) Daten transformieren bzw. auswerten können. Jede Schritt wird aufgenommen und kann nachträglich angefasst werden. Schritt-Ergebnisse sind stets vorgezeigt (großer Vorteil ggü VBA). Wer sich mit Datenbank auskennt, kommt sehr schnell zurecht. Aber auch ohne, wesentlich schneller als VBA.

Wie das geht:
Ist im beigelegten Tutorial-Link Anfänger-tauglich erklärt. Dann nur noch den Weg, den ich vorigen Mail beschrieben habe.

Ansonsten mit VBA:
Auf dem ersten Datei einen Dictionary der Einträge der ersten Datei aufbauen, dann ggü diesen Dictionary die Einträge der zweiten Datei durchgehen: ist der Eintrag bereits vorhanden, Datensätze in beiden Dateien an markieren, wenn nicht Dictionary ergänzen.
Dito mit dritte und vierte Datei.

Jetzt bist Du dran: wie viel Ahnung hast Du von VBA? Mehr als von Power Query?
Ansonsten wird Piet mit Sicherheit diese Anleitung umsetzen können.

VG
Yal

AW: Doppelte Einträge über mehrere Dateien finden

06.01.2026 10:00:20

Tobias

Guten Morgen Yal,

danke für deine ausführliche Erklärung.
Das klingt so, als wenn ich mich in einer ruhigen Minute mal mit PQ auseinandersetzen sollte :)

In VBA bin ich eindeutig besser als in PQ, was ja aber nichts heißt, da ich PQ ja nicht mal kenne.
Ich kann in VBA Dinge umsetzen, wenn ich z.B. etwas erweitern oder verändern möchte bzw. verstehe zum Teil, was ich wie korrigieren muss, wenn ich einen Fehler habe. Das war es allerdings auch schon.
Zu komplett neu aufsetzen, bin ich zu dusselig.

Gruß
Tobias

AW: Doppelte Einträge über mehrere Dateien finden

05.01.2026 14:56:39

Onur

ICH würde eine Masterdatei bauen, die sich die 4 Listen am Anfang der Woche reinzieht und auf 4 Blätter verteilt. Dann kan man damit weiterarbeiten und/oder andhand dieser Datei die anderen markiert.
Für Genaueres brauche ich mehr Angaben.

AW: Doppelte Einträge über mehrere Dateien finden

06.01.2026 00:19:59

Piet

Hallo Tobias

hat etwas gedauert, war andersweitig beschäftigt. Hier meine 1. Lösung.

Eine separate Datei, mit der du alle Dateien im Ordner auflisten kannst.
Dort wo du Dateien mit "#" markierst wird das Sheet(1) in diese Datei kopiert.
Mit Verify prüft das Makro ob es doppelte gibt. Ist aber noch nicht voll ausgereift.
Im Augenblick prüft er die 1. Liste mit allen anderen, dann die 2. Liste mit anderen.
Es müsste aber auch noch mal die letzte mit der 1. Liste verglichen werden.

Schauen wir mal wie dir diese 1.Lösung gefällt. Das andere überdenke ich noch.
https://www.herber.de/bbs/user/179966.xlsm

mfg Piet

AW: Doppelte Einträge über mehrere Dateien finden

06.01.2026 12:30:28

Piet

Hallo Tobias

hier mal eine Alternative zur 1. Lösung. Vielleicht gefällt sie dir besser??
Wenn du die Lagerliste NICHT haben willst lösche das Sheet und ändere den Code bitte auf - For k = 2 To Sheets.Count
Bei diesem Code notiere ich die doppelten im Start Sheet und zeige sie als MsgBox an.
In den Listen 2+3 wird der doppelte Eintrag zusätzlich grün markiert.

Da du ja VBA einigermaßen verstehtst kannst du den Code bei Bedarf selbst ändern.
Ich hoffe die Befehle sind so simpel geschrieben das du ihn verstehst.

mfg Piet

Option Explicit

Dim AC As Range, Txt As String

Dim Adr As String, Edr As String



'Makro zum Datein vergleichen



Sub Dateien_vergleichen()

Dim k, l, z, gTxt, Txt1

Dim rFind As Range: z = 4

Dim Sht1 As Worksheet

Set Sht1 = Worksheets("Start")

Sht1.Range("H4:K200").ClearContents

Worksheets("Start").Select



For k = 3 To Sheets.Count   '** k=2 OHNE Lagerliste!!

  Adr = Sheets(k).Range("B3").End(xlDown).Address

  Edr = Sheets(k).Range("B1000").End(xlUp).Address

  'Container Daten in Array laden

  For Each AC In Sheets(k).Range(Adr, Edr)

      If Trim(AC) > "" Then Txt1 = Txt1 & ", " & Trim(AC)

  Next AC

  

  'Folgedatein auf doppelte prüfen

  For l = k + 1 To Sheets.Count

      Adr = Sheets(l).Range("B3").End(xlDown).Address

      Edr = Sheets(l).Range("B1000").End(xlUp).Address

      For Each AC In Sheets(l).Range(Adr, Edr)

          If InStr(Txt1, AC) And InStr(gTxt, AC) = 0 Then

             AC.Interior.ColorIndex = 4  '** grün markieren

             'Namen der Listen (doppelte)

             Txt = Sheets(k).Name & " / " & Sheets(l).Name

             gTxt = gTxt & Txt & "  " & AC & vbLf

             Cells(z, 9) = Txt  'Sheets)

             Cells(z, 8) = AC: z = z + 1

          End If

      Next AC

  Next l

Next k

If gTxt > "" Then MsgBox gTxt

If gTxt = "" Then MsgBox "KEINE doppelten", vbInformation

End Sub

AW: Doppelte Einträge über mehrere Dateien finden

06.01.2026 09:57:03

Tobias

Guten Morgen Piet,

das macht gar nicht, dass das länger dauert bzw. hat, ich bin ja froh über jede Hilfe!

Danke für deine Idee, aber, auch wenn das jetzt eine naive Frage sein sollte, wenn ich das eh alles in eine Liste schmeiße, dann kann ich doch auch einfach auf Spalte B doppelte Werte setzen oder nicht?
Das hatte ich nämlich auch schon im Kopf, hatte aber gehofft, dass es einfacher / schneller geht.

Gruß
Tobias

AW: Doppelte Einträge über mehrere Dateien finden

05.01.2026 15:21:55

Tobias

Hallo Onur,

das ist leider nicht möglich, da eine andere Abteilung mit den einzelnen Listen arbeiten muss und diese auch gesondert pro Verkehrträger an die Kundschaft geht. Ein Zusammenfassen ist daher nicht möglich, außer ich bearbeite täglich immer die Masterdatei plus alle einzelnen Listen und das ist in meinen Augen ineffizient.
Ich habe in zwei anderen Antworten bereits eine Beispieldatei, wie die einzelnen Listen vom Aufbau aussehen, hochgeladen, falls du mehr Details benötigst.

Gruß
Tobias

AW: Doppelte Einträge über mehrere Dateien finden

05.01.2026 15:23:33

Onur

Es soll ja NIEMAND mit der Datei arbeiten - sie wird nur als Zusammenfassung und für das Makro benötigt.

Doppelte Einträge über mehrere Dateien finden

Forumthread: Doppelte Einträge über mehrere Dateien finden

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Doppelte Einträge über mehrere Dateien finden

Forumthread: Doppelte Einträge über mehrere Dateien finden

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread