AW: Tabellen vergleichen mit Checksumme
05.01.2018 20:36:15
Werner
Hallo,
teste mal in deiner Datei, wie das Geschwindigkeitstechnisch aussieht. Derzeit wird die Formel in beide Blätter geschrieben und die Formel durch die jeweiligen Werte ersetzt.
Natürlich mit einer Kopie deines Originals.
Option Explicit
Public Sub Test()
Dim loLetzteAlt As Long, loLetzteNeu As Long
Dim raBereichAlt As Range, raBereichNeu As Range
With Worksheets("DatenAlt")
loLetzteAlt = .Cells(.Rows.Count, 1).End(xlUp).Row
Set raBereichAlt = .Range(.Cells(2, 60), .Cells(loLetzteAlt, 60))
raBereichAlt.FormulaLocal = _
"=WENN(TEXTVERKETTEN(""-"";FALSCH;DatenNeu!A2:BG2)" _
& "=TEXTVERKETTEN(""-"";FALSCH;A2:BG2);""Gleich"";""ungleich"")"
raBereichAlt.Value = raBereichAlt.Value
End With
With Worksheets("DatenNeu")
loLetzteNeu = .Cells(.Rows.Count, 1).End(xlUp).Row
Set raBereichNeu = .Range(.Cells(2, 62), .Cells(loLetzteNeu, 62))
raBereichNeu.FormulaLocal = _
"=WENN(TEXTVERKETTEN(""-"";FALSCH;DatenAlt!A2:BG2)" _
& "=TEXTVERKETTEN(""-"";FALSCH;A2:BG2);""Gleich"";""ungleich"")"
raBereichNeu.Value = raBereichNeu.Value
End With
Set raBereichAlt = Nothing: Set raBereichNeu = Nothing
End Sub
Gruß Werner