Datenabgleich zw. 2 Tabellen - VBA

Hallo,
Ich verzweifle schon seit Tagen an einem Problem und hoffe, dass ihr mir dabei weiterhelfen könnt!
Ich habe 2 Tabellen, welche ich miteinander abgleichen möchte. Tabelle1 ist die zu aktualisierende und Tabelle2 liefert die neuen Daten. Diese befinden sich auf unterschiedlichen Tabellenblättern( Arbeitsblatt1 und Arbeitsblatt2).
Beide Tabellen besitzen eine Spalte mit einer eindeutigen Kennung. In Tabelle1 Spalte B in Tabelle 2 Spalte A.
Nun möchte ich alle Zeilen aus Tabelle2, welche nicht in Tabelle1 vorhanden sind an diese, in die nächste freie Zeile einfügen.
Hierbei soll nicht die komplette Zeile übergeben werden sondern nur die Werte aus den Spalten A, D und G in die Spalten B, C und D geschrieben werden.
Ich habe zu ähnlichen Datenabgleichen zweier Tabellen, schon einige Einträge über Google gefunden. Jedoch waren alle sehr unterschiedlich und ich konnte leider keine auf meine Problemstellung umwandeln.
Anbei habe ich eine Beispieldatei zum besseren Verständnis angehangen:
https://www.herber.de/bbs/user/94061.xlsx
Schonmal vielen Dank für jegliche Mühen die ihr euch macht!
LG
Co

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter (hpo),
ich habe durch Ausprobieren den Hauptgrund für die lange Dauer der Berechnung herausfinden können.
Und zwar besitzt meine Zieltabelle auf Arbeitsblatt1 im Original rechts neben den Spalten mit den "eingelesenen Werten" weitere Spalten. Diese Spalten beinhalten alle Formeln, welche bei Ablauf der Schleife vermutlich neu eingefügt bzw berechnet werden(richtig!?).
Daher habe ich meine Tabelle in Arbeitsblatt1 großzügig erweitert, so dass die Spalten links, in die die Werte aus Arbeitsblatt2 eingefügt werden noch leer sind. Die Spalten rechts davon, mit den Formeln jedoch bereits vorhanden sind.
Den Quellcode habe ich so angepasst, dass die neuen Zeilen nicht unter die Tabelle eingefügt werden, sondern unter die letzte Zeile mit einem Wert in der Spalte B (eindeutige Kennung).
Funktioniert auch einwandfrei und zumindest etwas schneller als zu vor ;) Wenn du jedoch auf eine bessere Lösung kommst, wäre das natürlich super!
Meine Original Datei kann ich aus Gründen des Datenschutzes leider nicht zur Verfüfung stellen.
Daher habe ich die Beispieldatei best möglich angepasst.
https://www.herber.de/bbs/user/94098.xlsm
Die Originaldatei besitzt 7 Tabellenblätter und einige Makros und ist um die 3Mb groß :D Spielt der Umfang der Datei für die einzelne Berechnung eine Rolle?
P.S: Ich würde gerne in die Schleife ein neue funktion einfügen. Wenn die eindeutige Kennung bereits vorhadnen ist, soll überprüft werden ob sich der Mitarbeiter (Spalte C bzw. D) sich geändert hat. Falls ja sollte dieser mit dem neuen Wert überschrieben werden. Wäre das möglich?
Vielen Dank nochmal für deine Mühe und Grüße
Co

Beliebteste Forumthreads (12 Monate)

Datenabgleich zw. 2 Tabellen - VBA

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread