Tabellen vergleichen und markieren
14.01.2021 09:55:06
rodi
stehe vor ein Problem...
hab bereits ein Makro, dass mir zwei Tabellen vergleicht und Abweichungen in Tabelle 2 markiert. Leider beginnt es bei Zeile x und geht Zeile für Zeile vor.
Es soll aber erst anhand von 3 gleichen Eingangswerten (Spalte A, C und M) in der erste Tabelle die gleichen Werte finden und dann die ganze Zeile prüfen und in der zweiten Tabelle markieren.
Hoffe es ist nicht zu kompliziert
Anbei das beschriebene Makro
Danke schon mal...
Sub meinVergleich2()
Dim rngT1 As Range, blnDif As Boolean
Dim lngR As Long, lngC As Long, zz As Long, cc As Long
With Worksheets("Tabelle1_alt")
lngR = .Cells(.Rows.Count, 1).End(xlUp).Row
lngC = .Cells(1, .Columns.Count).End(xlToLeft).Column
Set rngT1 = .Range(.Cells(3, 1), .Cells(lngR, lngC))
End With
With Worksheets("Tabelle2_neu")
zz = .Cells(.Rows.Count, 1).End(xlUp).Row
If zz rngT1(zz - 2, cc) Then
.Cells(zz, cc).Font.ColorIndex = 3
' oder auch
.Cells(zz, cc).Interior.ColorIndex = 6
blnDif = True
End If
Next cc
If blnDif Then .Cells(zz, lngC + 2) = "x"
Next zz
zz = .Cells(.Rows.Count, 1).End(xlUp).Row
If lngR Anzeige