Zeilen vergleichen

[anjaz]

Hallo liebe Community,

für meinen Chef muss ich in einem sehr großen Excelsheet immer zwei Zeilen vergleichen und unterschiede rot einfärben (am besten identische zellen auch grün).
Zum Verständnis: Es sind Daten aus zwei verschiedenen Datenquellen, die eigentlich größtenteils identsich sein sollten. Es muss immer ein "Zeilenpaar": Zeile 1 (Angaben aus Quelle A) mit Zeile zwei (Angaben aus Quelle B), dann Zeile 3 (Angaben aus Quelle A) mit Zeile 4 (Angaben aus Quelle B) usw. verglichen werden.

Ich habe es nur geschafft "manuell" über Conditional Formatting die Zeilen zu vergleichen.  Dafür muss ich aber für jedes Zeilenpaar eine neue bedingte Formel erstellen und der Datensatz ist echt sehr lang.

Gibt es eine Möglichkeit diese Formel automatisch zu hinterlegen, dass Excel es automatisch für jedes "Zeilenpaar" prüft?

Vielen Dank im Voraus und liebe Grüße
Anja

[Crazy Tom]

Hallo

so habe ich es in xl2003 getestet
die Spalten A und B markieren

MfG Tom

[anjaz]

und wie bekomme ich es hin, dass eben automatisch jedes zeolenpaar verglichen wird?

[Crazy Tom]

Hallo

in meinem Test habe ich die Zellen A1 bis B20 markiert und dann diese bedingte Formatierung

MfG Tom

[anjaz]

nee dann vergleicht er doch zeile 1 mit zeile 2 und zeile 2 mit zeile 3 usw..
was ich aber brauche is ein vergleich von zeile 1 mit zeile 2, zeile 3 mit zeile4, zeile 5 mit zeile 6 usw..

[Crazy Tom]

Hallo

ich hatte es so verstanden, dass die zu vergleichenden Zellen jeweils in Spalte A und B sind

da ich nicht so der Formelmensch bin, kann ich dir da leider nicht weiterhelfen
mit VBA könnte ich dir da vielleicht was basteln

MfG Tom

[anjaz]

nein es sind viele spalten und viele zeilen.. es sind jeweils personenangaben aus zwei Quellen, für jede Person und jede Quelle wurde eine Zeile eingerichtet, so dass nun immer in 2 Zeilen untereinander die Angaben zu ein und derselben person stehen die abgeglichen werden sollen.

[Fennek]

Hallo Anja,

nur ein Versuch:

- markiere 2 Zeilen
- drücke F5, "Inhalte"... "Zeilen vergleichen"

Falls das die gewünschten Markierungen erzeugt, kann man mit vba auch für eine große Datei anwenden.

mfg

[anjaz]

okay das geht, zumindest werden die zellen dann markiert, dann kann ich sie danach manuell einfärben.. und wie mache ich das dann über vba für die ganze tabelle?

[Fennek]

Hallo Anja,

teste mal, ob das passt:

Code:

Sub Fen()
Dim rng As Range
Dim C_D As Range

sp = ActiveSheet.UsedRange.SpecialCells(11).Column
lr = Cells(Rows.Count, "A").End(xlUp).Row
If lr Mod 2 = 1 Then MsgBox "ungerade Anzahl, Fehlermeldung"

For i = 1 To lr Step 2
   Set rng = Range(Cells(i, 1), Cells(i + 1, sp))
   On Error Resume Next
   Set C_D = rng.ColumnDifferences(rng.Cells(1, 1))
   On Error GoTo 0
   If Not C_D Is Nothing Then
       C_D.Interior.Color = vbYellow
       C_D.Offset(-1).Interior.Color = vbCyan
   End If
Next i
End Sub

mfg