bislang hat mir dieses Makro gute Arbeit geleistet:
Private Sub Doppelte_markieren_ab_ersten_Eintrag()
'Es wird ab dem ersten Eintrag gefärbt
Dim rng As Range
Dim Bereich As Range
Set Bereich = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
For Each rng In Bereich
If Application.CountIf(Bereich, rng) > 1 Then _
rng.Interior.ColorIndex = 3
Next
End Sub
Damit färbe ich EInträge, die in der Spalte A merfach vorkommen.
Nun muss ich aber auch zugleich Spalte Spalte C mitprüfen. Der Ordnungsbegriff in Spalte darf nur rot markiert werden, wenn
- der Ordnungsbegriff in Spalte A mehrfach vorkommt
und zugleich
- der Eintrag in Spalte unterschiedlich ist (aber natürlich nur bezogen auf diesen Ordnungsbegriff).
Beispiel:
Spalte A Spalte C
1234 NRW
1234 NRW
keine Farbe, da jeweils NRW
3456 NRW
3456 Hamburg
rot, da einmal NRW und einmal Hamburg
Unterschiedlich wäre es auch dann, wenn
3456 NRW
3456
rot, da einmal NRW und einmal "leer"
Ich bin ganz ehrlich, ich habe keine Ahnung, wie ich das hinkriegen soll. Hat jemand Rat für mich?
Gruß
Marc