Sub Tabellen_vergleichen()
 
Dim verg1(2500, 60), verg2(2500, 60), mer(2500), titel(60)
 
Rem 'Tabelle 1 einlesen
 
Worksheets("Tabelle1").Activate
y = 1
Do While Cells(1, y) <> ""
titel(y) = Cells(1, y)
y = y + 1
Loop
For r = 1 To y - 1
z = 1
Do While Cells(z, 1) <> ""
verg1(z, r) = Cells(z, r)
z = z + 1
Loop
Next r
 
Rem 'Tabelle 2 einlesen
 
Worksheets("Tabelle2").Activate
yy = 1
Do While Cells(1, yy) <> ""
yy = yy + 1
Loop
For r = 1 To yy - 1
z = 1
Do While Cells(z, 1) <> ""
verg2(z, r) = Cells(z, r)
z = z + 1
Loop
Next r
 
Rem 'Änderungen kennzeichnen
 
For r = 1 To z - 1
For s = 1 To yy - 1
 
If verg1(r, s) <> verg2(r, s) Then
mer(r) = r
Cells(r, s).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Interior.ColorIndex = 3
End If
Next s
Next r
 
Worksheets("Tabelle3").Activate
 
For l = 1 To yy - 1
Cells(1, l) = titel(l)
Next l
zz = 2
For m = 1 To z - 1
If m = mer(m) Then
For n = 1 To yy - 1
Cells(zz, n) = verg2(m, n)
Next n
zz = zz + 1
End If
Next m
 
End Sub