Excel+VBA Programmierung
 

Hallo an alle!
Folgende Frage:
Ich habe 2 Excel-Dateien mit jeweils einem Sheet. Spalte B von Excel-Sheet1 soll mit Spalte A von Excel-Sheet2 verglichen werden, sowie Spalte C von Excel-Sheet1 soll mit Spalte B von Excel-Sheet2 verglichen werde. Sind die Werte "BC" gleich "AB", dann soll Wert aus Spalte C von Excel-Sheet2 in die nächste freie Spalte der jeweiligen Zeile von Excel-Sheet1 eingetragen werden.
Wie kann ich das am besten mit VBA (unter Office97) machen?
Bitteum Tipps
Danke
:rolleyes:

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
----------------------------------------------------------