Mit folgendem Code in der zweiten Datei (die unverändert bleibt) sollte dein Problem gelöst sein. Einfach die Pfade anpassen und testen. Ach ja, die zu verändernte Datei sollte beim Ausführen des Makros geschlossen sein.
----------------------------------------------------------
Const strFile1 As String = "c:\Excel\1.xls"
Const strFile2 As String = "c:\Excel\2.xls"
Public Sub Compare()
Dim appExcel As Excel.Application
Dim Book1 As Excel.Workbook
Dim Book2 As Excel.Workbook
Dim Sheet1 As Excel.Worksheet
Dim Sheet2 As Excel.Worksheet
Set appExcel = CreateObject("Excel.Application")
Set Book1 = appExcel.Workbooks.Open(strFile1)
Set Book2 = appExcel.Workbooks.Open(strFile2)
Set Sheet1 = Book1.Worksheets(1)
Set Sheet2 = Book2.Worksheets(1)
For R = 1 To 10
If Sheet1.Cells(R, 2).Value = Sheet2.Cells(R, 1).Value And Sheet1.Cells(R, 3).Value = Sheet2.Cells(R, 2).Value Then
Sheet1.Cells(R, 4) = Sheet2.Cells(R, 2)
End If
Next
Book1.Save
appExcel.Quit
End Sub
----------------------------------------------------------
|