ich markiere mit folgendem Makro die Doppelten in Spalte A.
Was muss ich ändern, wenn ich die Doppelten Spalte A und Spalte E farbig markiert haben möchte. Es soll markiert werden, wenn die Einträge Spalte A und E identisch sind.
Beispiel:
A E
120 240
110 240
120 240
Es soll der erste und dritte Datensatz markiert werden.
Hier mein Makro (ist aus dem Forum)für die Markierung der Spalte A
Sub DOPPELTeMarkieren()
Dim intRow As Integer
intRow = 2
Do Until IsEmpty(Cells(intRow, 1))
If Application.CountIf(Columns("A"), Cells(intRow, 1)) > 1 Then
Cells(intRow, 1).Interior.ColorIndex = 6
End If
intRow = intRow + 1
Loop
End Sub
Vielen Dank und Grüße
Gisela