ich versuche zwei Mappen miteinander zuverbinden.
In Spalte A der Mappen befindet sich jeweils der Primärschlüssel z.B. Kundennummer.
In den folgenden Spalten findet man nähere Infos zu den Kunden. Die Spalten der beiden Mappen sind nicht immer identisch und sollen in einer Datei zusammengeführt werden.
Über das Forum habe ich folgendes Makro gefunden:
Sub kopieren()
Dim rngQ As Range, rngZ As Range
For Each rngQ In Workbooks("Mappe2.xls").Sheets(1).Range("A2:A" & _
Workbooks("Mappe2.xls").Sheets(1).Range("A65536").End(xlUp).Row)
Set rngZ = Workbooks("Mappe1.xls").Sheets(1).Range("A:A").Find(What:=rngQ, Lookat:= _
xlWhole)
If rngZ Is Nothing Then
Range(rngQ, rngQ.End(xlToRight)).Copy Destination:=Workbooks("Mappe1.xls").Sheets(1) _
.Range("A2").End(xlDown).Offset(1, 0)
Else
Range(rngQ.Offset(0, 1), rngQ.End(xlToRight)).Copy _
Destination:=rngZ.End(xlToRight).Offset(0, 1)
End If
Next rngQ
End Sub
Leider übernimmt das Makro nicht die Überschriften aus den zwei Tabellen und "vermischt" die Spalten.
Z.B.
Mappe1
Kunde Name
1 Udo
2 Andrea
3 Anna
Mappe2
Kunde Ort
1 Frankfurt
4 Ulm
Ergebnis des Makros:
Kunde Ort
1 Udo Frankfurt
2 Andrea
3 Anna
4 Ulm
Ich kenne mich leider mit Makros nicht aus, so dass ich selbst den Fehler nicht beheben kann.
Hat jemand eine Idee und kann mir helfen?