Tabellenvergleich
14.09.2003 20:08:51
Silvia
ich habe in der Recherche einen interessanten Beitrag gefunden,
benötige aber noch Ünterstützung, weil dieser nur als Ansatz für
mich nutzbar ist.
Sub vergleich()
Dim i As Long
Dim j As Long
Dim k As String
Dim l As String
j = 1
For i = 1 To Sheets(1).Cells(65536, 1).End(xlUp).Row
k = Sheets(1).Cells(i, 1) & Sheets(1).Cells(i, 2) & Sheets(1).Cells(i, 3)
l = Sheets(2).Cells(i, 1) & Sheets(2).Cells(i, 2) & Sheets(2).Cells(i, 3)
If k = l Then
Sheets(3).Cells(j, 1) = Sheets(1).Cells(i, 1)
Sheets(3).Cells(j, 2) = Sheets(1).Cells(i, 2)
Sheets(3).Cells(j, 3) = Sheets(1).Cells(i, 3)
Sheets(3).Cells(j, 4) = Sheets(1).Cells(i, 4)
j = j + 1
End If
Next i
End Sub
Ich schildere hier ersteinmal welche Bedingungen bei mir vorliegen:
Sheets(1) hat Ergebniseintragungen in zeilenweiser Schreibweise.
Sheets(2) beinhaltet Ergebnisse aus Sheets(1), jedoch zusätzlich noch
Eintragungen aus anderen Sheets, ist also wesentlich umfangreicher.
Sheets(2) fungiert als eine historische Datenbank von Sheets(1), d.h.
sollten einzelne Zeilen im Sheets(1) gelöscht werden, bleiben diese
im Sheets(2) stehen.
Jetzt zu meiner Problematik:
Ich möchte das, sagen wir 5 Zellen, immer einer Zeile, aus beiden Sheets miteinander auf Übereinstimmung verglichen werden und bei 100% Übereistimmung
der Gesamte Zeileneintrag in Sheets(2) mit blauer Schrift erscheint.
Sollten keine Übereinstimmungen vorliegen soll der gesamte Zeileneintrag
in roter Schriftfarbe erscheinen.
In beiden Sheets darf ab der 10ten Zeile bis ultimo überprüft werden.
Hoffentlich kann mir jemand helfen
Gruß Silvia