Office: Tabellenblätter vergleichen & Unterschiede markieren

Hallo zusammen,

nachdem ich mich durch das Forum gesucht habe und nichts vergleichbares finden konnte nun hier meine Problemstellung:

> 2 Tabellenblätter mit identischem Aufbau (Mat.nr, Mat.bezeichnung, Kosten etc.) je ca. 11.100 Zeilen und 560 Spalten sollen vergleichen werden, sodass Unterschiede (Zellinhalt verändert, Zeile neu hinzugekommen) farblich markiert werden und in Spalte 562 "Artikel verändert steht"; hierbei ist "alt" die ursprüngliche Tabelle und "Update" die veränderte Tabelle, in der auch die farbliche Markierung erfolgen soll

> in dem Tabellenblatt "Makromenü" kann ich angeben von welcher Zeile bis Spalte dieser Vergleich stattfinden soll

> das Makro müsste damit starten die erste Materialnummer (Spalte E = 5) aus "alt" zu nehmen und diese in "Update" auch in Spalte E zu finden

> nachdem die Mat.nr. gefunden wurde, soll die gesamte Zeile verglichen werden und Unterschiede werden farblich markiert

Bisher habe ich folgende Idee:

Sub UpdatesAnzeige()
'
Sheets("Makromenü").Select
'
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
'
Sheets("Update").Select
AnfangsZeile = Sheets("Makromenü").Cells(2, 2)
letzteSpalte = Sheets("Makromenü").Cells(3, 2)
letzteZeile = Sheets("Update").Range("A1048576").SpecialCells(xlCellTypeLastCell).Row
'
For x = AnfangsZeile To letzteZeile
For y = 1 To letzteSpalte
If Sheets("alt").Cells(x, y) = Sheets("Update").Cells(x, y) Then
Else
Sheets("Update").Cells(x, y).Interior.Color = RGB(255, 255, 153)
Sheets("Update").Cells(x, 562) = "Artikel wurde geändert"
End If
Next y
Next x
'
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
'
Sheets("Update").Select
'
End Sub


Dieser Ansatz ist ganz ok, wenn ich keine neue Zeile einfüge, da dann alle Artikelnummern in der gleichen Zelle in "alt" und "Update" stehen. Wenn allerdings nur eine neue Zeile in "Update" eingefügt wird, ist dieser zellenbezogener Vergleich nicht korrekt.

Hat jemand von euch eine Idee, wie ich die Vor-Such-Funktion ("Suche erst Mat.nr. aus "alt" in "update" und dann vergleiche") realisieren kann?

Viele Grüße*Smilie

:)

 

Hallo,

sieh mal, ob dir meine Excelanwendung Tabellen vergleichen weiter hilft.