Tabellen vergleichen

Sub Tabellen_Vergleichen()
Dim I As Integer
Dim J As Integer
Worksheets("Tabelle2").UsedRange.Interior.ColorIndex = 3
For I = 2 To Worksheets("Tabelle1").Cells.SpecialCells(xlLastCell).Row
For J = 1 To Cells(I, Columns.Count).End(xlToLeft).Column
If Worksheets("Tabelle1").Cells(I, J) = Worksheets("Tabelle2").Cells(I, J) Then
Worksheets("Tabelle2").Cells(I, J).Interior.ColorIndex = xlNone
End If
Next J
Next I
End Sub

vilen Dank