brauche Hilfe beim erweiterten Dublettenabgleich
13.01.2005 09:20:03
Jürgen
vielleicht kann mir jemand kurzfristig helfen?
Möchte in einer Exceltabelle zwei Spalten nach Dubletten durchsuchen (sprich wenn Spalte C Dubletten enthält und gleichzeitig Spalte F) und diese dann markieren.
Habe in der Recherche schon einen Anhaltspunkt gefunden, der aber leider erweitert werden muss:
Sub MarkColor()
Dim rngCell As Range, rng As Range
Set rng = Range("C1:C" & Cells(Rows.Count, 6).End(xlUp).Row)
For Each rngCell In rng
If WorksheetFunction.CountIf(rng, rngCell.Value) > 1 Then
rngCell.Interior.ColorIndex = 6
End If
Next rngCell
End Sub
Wie bekomme ich es hin, dass das Makro nach Dubletten in C sucht, nachschaut, ob es sich in Spalte F auch um eine Dublette handelt und mir, wenn ja, diese Dubletten in Spalte A farbig markiert. (Die Kür wäre es noch, wenn er mir in die jeweiligen Zellen in Spalte A ein X schreiben würde - für später zur Nachbearbeitung über den Autofilter.)
Bin für jede Hilfe dankbar.
Gruß Jürgen