Hi Ulrich, guter Ansatz, aber ich weiß nicht trotzdem nicht, wie ich nun die Spalte 4 mit Spalte 4 aus dem alten Report vergleichen kann. Das Problem ist, dass die Tabelle dynamisch ist, sprich Zeile 3 in der Tabelle alt, wird nie Zeile 3 in Tabelle neu sein. In Spalte 1 ist eine einzigartige ID und der Code kann supe r die Unterschiede hervorheben..
Vielen Dank schon mal.
Hier nochmal der Code leserlich:
Sub UnterschiedeIn2Färben()
Dim vntIn As Variant
Dim objDic As Object
Dim i&
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Set wks1 = ThisWorkbook.Worksheets("Report_Alt")
Set wks2 = ThisWorkbook.Worksheets("Report_Neu")
Set objDic = CreateObject("Scripting.Dictionary")
vntIn = wks1.UsedRange.Value
For i = LBound(vntIn, 1) To UBound(vntIn, 1) '
If Not objDic.Exists(vntIn(i, 1)) Then _
objDic.Add vntIn(i, 1), ""
Next
For i = 1 To wks2.Cells(Rows.Count, 1).End(xlUp).Row
If Not objDic.Exists(wks2.Cells(i, 1).Value) Then wks2.Cells(i, 1).Interior.ColorIndex = 3
Next
End Sub
|