---

Hallo,

möchte folgendes erreichen.
Aus 2 Excel Dateien (.xls) möchte ich die spalte A miteinander vergleichen (Datei2 mit Datei1) und anschließend in eine neue dritte Datei zusammenführen und die 2 passenden Zeilen hintereinander schreiben.

Ich habe mir eine Excelvorlage erstellt, beim öffnen wird eine Userform aufgerufen.
Dort gebe ich die Pfade zu den 2 Dateien.

Hier kurz der Aufbau der Dateien:

Datei1

A  B    C
66 bla66 blup66
77 bla77 blup77
88 bla88 blup88

Datei2

A  B  C
66 gjh ztr
66 hkj hkj
88 jlk jlkj

Das Ergebnis sollte so aussehen:

Datei3

A  B  C    D    E
66 gjh ztr  bla66 blup66
66 hkj hkj  bla66 blup66
88 jlk jlkj bla88 blup88
.
.
.
.

Hier mein Code:

Dim dat1 As Worksheet, dat2 As Worksheet

  Set dat2 = Workbooks.Open(Pfad2).Worksheets("tabelle1")
  Set dat1 = Workbooks.Open(Pfad1).Worksheets("tabelle1")

If dat2.Range("A" & i).Value = dat1.Range("A" & j).Value Then

hmmm?

danke

gruß

frank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Frank und Herzlich Willkommen bei CAD.de.
So ähnliche Fragen hatten wir hier schon öfter im Forum, die Suche mit dem Stichwort Spalten vergleichen bringt z.B. folgende threads zum Vorschein: http://ww3.cad.de/foren/ubb/Forum226/HTML/000643.shtml#000003
oder vielleicht auch diesen hier: http://ww3.cad.de/foren/ubb/Forum226/HTML/000829.shtml
Die wirst Du natürlich anpassen müssen.

Ich bin mittlerweile dazu übergegangen, die Daten zunächst in arrays zu lesen, diese zu vergleichen oder zumindest die Übereinstimmungen in temporäre arrays zu packen. Die kann man dann einfacher wieder in die Tabelle schreiben und arrays lassen sich schneller durchlaufen, als Zellen im Sheet.

Wenn Du bei Deinem Schema bleiben möchtest, was (außer der Umständlichkeit  ) spricht dagegen, es genauso wie Du es rausliest, wieder reinzuschreiben?

dat3.Range("A" & a).Value = dat2.Range("A" & i).Value
dat3.Range("B" & a).Value = dat2.Range("B" & i).Value
dat3.Range("C" & a).Value = dat2.Range("C" & i).Value
dat3.Range("D" & a).Value = dat1.Range("B" & j).Value
dat3.Range("E" & a).Value = dat1.Range("C" & j).Value

Wobei ich da auch wieder eher auf Cells als auf Range gehen würde, der Einfachheit der Schleifen halber...
btw, Schleifen fehlen in Deinem "Code" ja noch völlig, vergessen hier hinzutippen oder verheimlichst Du uns diverse Zeilen? ;-)

Bitte schau mal, wieweit Du mit diesen Infos zu später Stunde schon kommst.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

alles klar.

danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP