Werte aus 2 Dateien vergleichen und kopieren

Hallo zusammen,
ich muss eine Auswertung machen aus 2 Dateien. Also folgendes Problem:
Es gibt 2 Dateien (Datei1 und Datei2) mit jeweils einer Tabelle (Tabelle1 und Tabelle2)
Datei1 ist mit ca. 400 Zeilen und 40 Spalten mit verschiedenen Daten (Datum, Texte und Zahlen) gefüllt.
Datei2 ist eine temporäre Datei und ist ein Export aus SAP (mit gleichen Daten bzw. neue Daten). Jetzt zu meinem Problem:
In Datei1 sollte ein Button sein. Wenn ich ihn anklicke dann sollte die Projektnummer (Zelle A1) aus der Datei2 mit der Projektnummer (Zelle A1) aus der Datei1 verglichen werden, wenn diese gleich ist dann die restlichen Werte (B1 bis AZ1 aus Datei2 mit Datei1) vergleichen und wenn ungleich dann ersetzen sonst lassen. Wenn keine Übereinstimmung zwischen A1(Datei2) und A1(Datei1) dann die ganze Zeile aus der Datei2 in die nächste leere Zeile (also z.B. 401) der Datei1 kopieren. Datei1 wird immer als "Master"abgespeichert und jede Woche mit der neuesten Datei2 verglichen. Gibt dafür eine Lösung mit VBA?
Ich hoffe ich habs nicht zu umständlich erklärt :-).
Gruß
Andreas

Hi Andreas,
bei mir läuft es einwandfrei.
Wenn Du beide Dateien geöffnest hast, kannst Du auch folgenden VBA-Code zu Testzwecken nutzen.


Sub Aktualisieren()
Dim wkb As Workbook
Dim wkb1 As Workbook
Dim wks As Worksheet
Dim wks1 As Worksheet
Dim rng As Range
Dim iRow As Integer
Dim i
Application.ScreenUpdating = False
On Error Resume Next
On Error GoTo 0
Set wkb = Workbooks("Master.xls")
Set wkb1 = ThisWorkbook
wkb1.Activate
Set wks = wkb.Worksheets("Tabelle1")
Set wks1 = wkb1.Worksheets("Tabelle1")
anz = wks.Cells(65536, 1).End(xlUp).Row
anz1 = wks1.Cells(65536, 1).End(xlUp).Row
For z = 2 To anz1
suchwert = wks1.Cells(z, 1)
With wks.Range("a2:a" & anz)
Set c = .Find(suchwert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
For s = 2 To 11
wks.Cells(c.Row, s) = wks1.Cells(z, s)
Next
Else
For s = 1 To 11
wks.Cells(anz + 1, s) = wks1.Cells(z, s)
Next
anz = wks.Cells(65536, 1).End(xlUp).Row
End If
End With
Next
Application.ScreenUpdating = True
End Sub

Jan

A	B	C
Projektnr	Wert1	Wert2
123	10	20
456	30	40

A	B	C
Projektnr	Wert1	Wert2
123	15	25
789	50	60

A	B	C
Projektnr	Wert1	Wert2
123	15	25
456	30	40
789	50	60

Werte aus 2 Dateien vergleichen und kopieren

Forumthread: Werte aus 2 Dateien vergleichen und kopieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial