Liste Zeilenweise über mehrere Spalten vergleichen

Hallo liebes Forum,
habe hier schon oft Lösungen für meine Probleme gefunden, aber zu meinem aktuellem Problem finde ich leider nichts.
Es gibt zwar viele Beiträge zu dem Thema, auch in den Vorlagen, aber nichts was ich als Anfänger so weit anpassen kann,
dass es mir Hilft.
Ich bekomme aus einer Software Monatlich mehrere Exeltabellen generiert.
Der Aufbau der Tabellen ist immer gleich. Daten von Spalte A bis Spalte U.
Die Länge der Daten ist aber extrem unterschiedlich, und kann bei weit mehr als 20.000 Zeilen liegen.
Die Vergleichenden Dateien haben annähernd die gleichen Anzahlen an Zeilen.
Ich muss nun die Monatlichen Änderungen in diesen Listen Filtern und herausarbeiten.
Die Vergleichstabelle kann weniger Datensätze enthalten, so dass ich nicht Zeile 1 mit 1 und Zeile 2 mit 2 vergleichen kann.
Sondern jede Zeile mit der Kompletten Liste abgleichen muss.
Es können Änderungen in fast jeder Spalte vorkommen.
Es können Komplette Datensätze neu hinzukommen, oder bisher vorahndene komplett entfallen,
somit auch die Reihenfolge nicht mehr übereinstimmen.
Ich bräuchte nun eine 3te Tabelle, in welcher mir sämtliche Einträge aufgelistet werden, welche
a) eine Datenänderung aufweisen
b) Daten welche nicht mehr vorhanden sind in neuer Tabelle
c) Daten welche neu sind und in Vergleichstabelle nicht vorhanden waren
Um es noch etwas anders zu Formulieren:
Wenn komplette Zeile aus Datei/Tabelle 1 in Datei/Tabelle 2 identisch, in beiden Dateien die Zeile ausblenden.
Alles was am Ende in beiden Dateien nicht ausgeblendet ist, in eine Datei zusammenschreiben.
Kann man das so umsetzen?
Eine Beispieldatei habe ich angehängt, in der Datei sind die Blätter alle in einer Datei, im realen werden es mindestens
2 Dateien. Ob die Änderungen ebenfalls in eine neue Datei geschrieben werden, oder in eine der Vergleichsdateien wäre egal.
Wäre für jede Hilfe und Anstoß in die richtige Richtung Dankbar!
Gruß
Stefan
Beispieldatei:
https://www.herber.de/bbs/user/124524.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub F_en() With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") Sheets("Alt").Cells(1).CurrentRegion.Copy .GetFromClipboard Alt = Split(.GetText, vbCrLf) For i = 1 To UBound(Alt) Debug.Print Alt(i) Next i Debug.Print Application.CutCopyMode = False Sheets("Neu").Cells(1).CurrentRegion.Copy .GetFromClipboard Neu = Split(.GetText, vbCrLf) For i = 1 To UBound(Neu) Debug.Print Neu(i) Next i Application.CutCopyMode = False End With End Sub

Hi
könntest du so umsetzen:
1. in beiden Tabellen in Spalte V den Tabellennamen bzw den Monat eintragen, damit du später weißt, aus welcher Tabelle die jeweilige Zeile kommt.
2. beide Tabellen untereinander in eine Tabelle kopieren
3. die neue Tabelle nach allen Spalten sortieren. Zeilen, die in beiden Tabellen in allen Spalten gleich sind sollten jetzt direkt bei einander stehen.
3. füge folgende Formel in Spalte W ein, um gleiche Zeilen zu kennzeichnen, Formel für W2, dann nach unten ziehen

=WENN(SUMMENPRODUKT(((A2:U2A3:U3)*1)*SUMMENPRODUKT((A2:U2A1:U1)*1))=0;"Gleich";"Änderung")

die Zeilen, die gleich sind, kannst du dann ausblenden oder löschen und dir den Rest dann genauer anschauen (daher auch vor dem Zusammmenkopiern Punkt 1 ausführen.
bei der genannten Datenmenge kannst du nicht in zwei Tabelle jede Zeile der einen Tabelle mit jeder Zeile der anderen Tabelle vergleichen.
Das gibt dir bei 20.000 Zeilen 20.000 * 20.000 Zeilenvergleiche, damit ist dann selbst Excel irgendwann überfordert.
Durch die Sortierung (und im Sortieren ist Excel sehr schnell) berauchst du dann nur noch jede Zeile mit ihren beiden Nachbarzeilen zu vergleichen, um festzutellen, ob es eine Übereinstimmung gibt oder eine geänderte Zeile vorliegt, was die ganze Sache 10.000x schneller macht.
Ich gehe natürlich davon aus, dass es in den beiden Tabellen selbst keine Zeilen gibt, die in allen Spalten übereinstimmen, so dass jede Zeile ein Unikat ist.
Gruß Daniel

Sub F_en() Anf = timer 'Daten an Array übergeben With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") Sheets("Alt").Cells(1).CurrentRegion.Copy .GetFromClipboard Alt = Split(.GetText, vbCrLf) Application.CutCopyMode = False Sheets("Neu").Cells(1).CurrentRegion.Copy .GetFromClipboard Neu = Split(.GetText, vbCrLf) Application.CutCopyMode = False End With 'Alt For i = 1 To UBound(Alt) If IsError(Application.Match(Alt(i), Neu, 0)) Then Sheets("Alt").Cells(i + 1, 1).Interior.Color = vbRed Else Sheets("Alt").Cells(i + 1, 1).Interior.Color = vbGreen End If Next i 'Neu For i = 1 To UBound(Neu) If IsError(Application.Match(Alt(i), Neu, 0)) Then Sheets("Neu").Cells(i + 1, 1).Interior.Color = vbRed Else Sheets("Neu").Cells(i + 1, 1).Interior.Color = vbGreen End If Next i Msgbox timer - Anf End Sub

Beliebteste Forumthreads (12 Monate)

Liste Zeilenweise über mehrere Spalten vergleichen

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

341 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Liste Zeilenweise über mehrere Spalten vergleichen

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

341 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread