Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Dateien vergleichen und zusammenführen

Dateien vergleichen und zusammenführen
09.11.2017 00:41:49
Yannick
Hallo liebes Forum,
ich bin blutiger Anfänger bei VBA und habe folgendes Problem.
Ich habe zwei Dateien A & B mit jeweils einer Tabelle. Die Tabelle der Datei A hat 3 Spalten und die der Datei B hat 2 Spalten. Nun möchte ich ein Makro schreiben, dass jeden Wert der 2. Spalte der Datei A mit allen Werten der 2. Spalte der Datei B vergleicht.
Kommt es zu einem Treffer, so soll der in der selben Zeile wie der Treffer stehende Wert in Datei B Spalte 1, den Wert in Spalte 3 der Datei A der ebenfalls in der selben Zeile wie der Vergleichswert steht, ersetzen.
Gibt es keinen Treffer, so soll der das Datenpaar (Spalte 1 und 2 aus Datei B) unten in die Spalten 1 und 2 der Tabelle aus Datei A angehangen werden.
WICHTIG!!! Die Dateien A und B sollen nach dem Ablauf unverändert existieren und das von mir beschriebene Prozedere in einer neuen Datei C gespeichert werden. Die Datei C ist dafür bereits vorab geöffnet und führt das Makro aus.
Ich danke euch vielmals vorab für eure Hilfe.
Beste Grüße und 1000 Dank
Yannick
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien vergleichen und zusammenführen
09.11.2017 09:09:49
Peter(silie)
Hallo,
bitte gebe uns die Dateien A und B.
Bis dahin ein Bsp. Code zum öffnen und referenzieren v. anderen Workbooks/Worksheets

Dim ws_A As Worksheet
Dim wb_Tmp As Workbook
Set wb_Tmp = Workbooks.Open("Pfad")
If wb Is Nothing Then Exit Sub
Set ws_A = wb_Tmp.Sheets("A")


Anzeige
AW: Dateien vergleichen und zusammenführen
09.11.2017 09:34:09
Yannick
Vielen Dank für die schnelle Antwort. Leider kann ich die Dateien frühestens heute Abend hochladen.
An sich ist das ganze aber sehr eilig und dringend benötigt :(
Vielleicht hilft ja das erstmal.
A:b>
Datum | Nummer| Wort
22.08.2017 | 12351 | asd
01.07.2028 | 12355 | xcgv
02.03.2017 | 34532 | shjk
03.05.2016 | 12356 | xvc
04.05.2016 | 23413 | sdf
B:b>
Wort | Nummer
fgj | 12312
gsdfg | 12356
fha | 12355
sd | 12373
xyc | 64212
Besten Dank. LG
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige