variabler Tabellennamen
08.04.2007 20:21:00
Korl
ich möchte zwei Dateien, die vom Aufbau der Tabellen, sowie der Tabellen-Namen identisch sind, jeweils die Zellen in Spalte "D" miteinander vergleichen. Sollten diese nicht übereinstimmen, soll die Zelle farblich markiert werden.
Hierzu habe ich mir bereits ein Code gebastelt.
Sub Vergleich()
'Straßenvergleich
Dim loLetzte As Long
Dim i As Long
Dim wbalt As Workbook, wbneu As Workbook
Set wbalt = Workbooks("Test06.xls")
Set wbneu = ThisWorkbook
Application.ScreenUpdating = False
loLetzte = Range("A65536").End(xlUp).Row
For i = 2 To loLetzte
If ActiveSheet.Cells(i, 4).Value <> wbalt.Worksheets("SN-01").Cells(i, 4).Value Then
ActiveSheet.Cells(i, 4).Interior.ColorIndex = 40
End If
Next i
Application.ScreenUpdating = True
End Sub
Nach meiner jetzigen Methode, muß ich den Tabellennamen der zweiten Datei manuell anpassen.
Lässt sich das nicht verhindern, da die active Tabelle stets den selben Namen haben soll wie der zweiten Tabelle.
gruß Korl