ich versuche mittels einem Makro zwei Tabellen zu vergleichen.
Die beiden Tabellen haben mehrere Spalten, dabei sollen jeweils die ersten drei Spalten verglichen werden.
Heißt: Falls Tablle1.A1 = Tabelle2.A1 & Tablle1.B1 = Tabelle2.B1 & Tablle1.C1 = Tabelle2.C1 Dann soll die entsprechende Reihe in Tabelle2 eingefärbt werden.
Danach soll die erste Zeile der Tabelle 1 weiter mit den restlichen Zeilen der Tabelle 2 verglichen werden und bei Übereinstimmung eingefärbt werden.
Sobald das passiert ist, soll Zeile 2 von Tabelle 1 wieder beginnend mit Zeile 1 von Tabelle 2 bis Ende Tabelle 2 verglichen werden usw bis es in Tabelle 1 keine weitere zu vergleichende Zeile gibt.
Hier ist mein bisheriger Ansatz =)
Sub Test23()
Dim i As Long
Dim k As Long
k = 1
i = 1
Do While Tabelle1.Cells(i, 1) ""
Do While Tabelle2.Cells(k, 1) ""
If Tabelle1.Cells("A" & i) = Tabelle2.Cells("A" & k) And Tabelle1.Cells("B" & i) = _
_
Tabelle2.Cells("B" & k) And Tabelle1.Cells("C" & i) = Tabelle2.Cells("C" & k) Then
Sheets("Tabelle2").Rows(i).Interior.Color = 245778
End If
k = k + 1
Loop
i = i + 1
k = 1
Loop
End Sub
Vielen Dank und viele Grüße!
AK