Hallo,
das Programm funktioniert, jetzt hat sich leider die "Aufgabenstellung" geändert. Aktuell vergleicht das Makro Zeile für Zeile. In den beiden Dokumenten können die Zeilen aber auch in einer unterschiedlicher Reihenfolge vorkommen ( Die Reihenfolge der Spalten ist immer gleich). Das Makro vergleicht aktuell nur die gleichen Zeilen. Theoretisch müsste ich es so ändern, dass es die Zeile in dem einen Dokument mit jeder anderen einzeln vergleicht und wenn eine Fehler aufkommt, diese in das neue Dokument einfügt.
Rein theoretisch müsste ich ja bloß diesen Teil des Codes ändern:
For i = 1 To lastrow 'alle zeilen
For j = 1 To 3 'alle Spalten
If wb1.ActiveSheet.Cells(i, j) <> wb2.ActiveSheet.Cells(i, j) Then 'Abweichung gefunden
Wenn ich das richtig sehe, kann das Makro aktuell nur einen Fehler finden? Müsste da kein Befehl sein in die nächste Zeile zu springen, nach dem ersten Fehler?
Vielen Dank
Viele Grüße
Felix
|