Fehler zwischen zwei Tabellen finden
23.10.2020 17:40:55
Timo
Dieses Makro... .
Sub CommandButton1_Click()
'Code gleicht ganze Zeilen ab und gibt Zeilen aus, die kein Duplikat in der jeweils anderen _
Tabelle haben
Dim zeile As Variant
Dim letztezeile1 As Variant
Dim letztezeile4 As Variant
Dim t1 As Worksheet, t2 As Worksheet, t3 As Worksheet
Set t1 = Sheets("Tabelle1")
Set t2 = Sheets("Tabelle2")
Set t3 = Sheets("Ergebnis")
letztezeile1 = t1.Cells(t1.Rows.Count, 1).End(xlUp).Row
letztezeile4 = t3.Cells(t3.Rows.Count, 1).End(xlUp).Row + 1
'Erster Durchgang __________________________________
For zeile = 1 To letztezeile1
If WorksheetFunction.CountIf(t2.Columns(4), t1.Cells(zeile, 4).Value) = 0 And Not _
IsEmpty(t1.Cells(zeile, 4).Value) Then
t1.Cells(zeile, 4).EntireRow.Copy Destination:=t3.Cells(letztezeile4, 1)
letztezeile4 = letztezeile4 + 1
End If
Next zeile
'Zweiter Durchgang (nur t1 und t2 getauscht, damit beidseitiger Abgleich) _
__________________________________
For zeile = 1 To letztezeile1
If WorksheetFunction.CountIf(t1.Columns(4), t2.Cells(zeile, 4).Value) = 0 And Not _
IsEmpty(t2.Cells(zeile, 4).Value) Then
t2.Cells(zeile, 4).EntireRow.Copy Destination:=t3.Cells(letztezeile4, 1)
letztezeile4 = letztezeile4 + 1
End If
Next zeile
End Sub
..soll aus zwei identischen Tabellen jede Zeile vergleichen, und es soll eine leere Ergebnistabelle resultieren.
Wenn ich aber in einer Zelle einer Zeile (mein Beispiel vergleicht alle Spalten jeder Zeile) einen Wert ändere (in meiner Beispieldatei wird es zu FEHLER), dann soll die komplette Zeile in die Tabelle "Ergebnis" kopiert werden.
Schaut euch an, wie das Ergebnis ausschaut. Nicht weit weg, aber auch nicht richtig.
Wer kann helfen?