Re: Felder vergleichen und Zeilen ausgeben
23.04.2003 10:54:19
Harald Neumann
Hallo Sandra,hier ein Ansatz aus meinem aktuellen Projekt, wo zwei Versionen einer Excel-Tabelle verglichen werden.
12 ist die Anfangszeile und 6 die Anfangsspalte "F"
Mit Do While klappere ich alle Bereiche ab und vergleiche die einzelnen Zellen.Wenn ein Unterschied gefunden wurde, werden diese Zellen mit weisser Schrift auf grauem Hintergrund gekennzeichnet.
If Application.Worksheets("Plan_Aktuell").Cells(12 + VersatzNachUnten, 6 + VersatzNachRechts) <> Application.Worksheets("Plan_History").Cells(12 + VersatzNachUnten, 6 + VersatzNachRechts) Then
Application.Worksheets("Plan_Aktuell").Cells(12 + VersatzNachUnten, 6 + VersatzNachRechts).Interior.Color = RGB(50, 50, 50)
Application.Worksheets("Plan_Aktuell").Cells(12 + VersatzNachUnten, 6 + VersatzNachRechts).Font.Color = RGB(255, 255, 255)
Application.Worksheets("Plan_History").Cells(12 + VersatzNachUnten, 6 + VersatzNachRechts).Interior.Color = RGB(50, 50, 50)
Application.Worksheets("Plan_History").Cells(12 + VersatzNachUnten, 6 + VersatzNachRechts).Font.Color = RGB(255, 255, 255)
Veränderung = Veränderung + 1
End If
Gruss Harald