Tabellen vergleichen und markieren
23.08.2006 14:10:05
Helsingfors
das Problem: Tabellenvergleich - meine bisherige Lösung arbeitet spaltenweise und betrachtet jede einzelne Zelle. Ist der Inhalt nicht gleich, so wird die Zelle markiert.
Leider können z.B. Zeilen im Sheet "Ist" durchaus ihre Position verändern. Eine zeilenweise Betrachtung wäre meines Erachtens sinnvoller, da die Strings pro Zeile letztenendes passen müssen.
Soll ich 1 Zeile aus dem Ist-Sheet mit jeder Zeile im Soll-Sheet vergleichen? - das ist nicht sehr performant.
Des Weiteren sollen die Datensätze, die zwar im Ist aber nicht im Soll sind, ins Soll kopiert und farblich markiert werden. Die Datensätze, die im Soll aber nicht im Ist stehen sollen auch farblich markiert werden (im Soll Sheet).
Anbei ein Beispiel code der bisherigen Lösung (stellvertretend für alle andere Spalten)
Sub vergleiche_b()
zeile = ActiveSheet.Range("B65535").End(xlUp).Offset(1, 0).Row 'die Zeile mit der letzten beschriebenen Zelle
For I = 1 To zeile
Workbooks("Tool.xls").Sheets("Soll").Select
zelle = Range("B" & I)
str = zelle 'Betrachtet das erste Zeichen von zelle
Workbooks("Tool.xls").Sheets("Ist").Select
zelle = Range("B" & I)
zelle = Replace(zelle, " ", "") 'Beseitigt Leerzeichen aus den Zellen
str2 = zelle
If str Like str2 Then
Else
Range("B" & I).Interior.ColorIndex = 33
End If
Next I
End Sub