Office: (Office 365) Doppelte Werte mit gleiche Farbe löschen

Hallo,
ich habe aktuell das Problem, dass ich viele Doppelte Werte habe und diese in zwei verschiedenen Farben vorhanden sind. Nun sollen jedoch NUR die doppelten entfernt werden, die ausschließlich gelb sind. Wenn nur eine der doppelten rot sind, sollen alle bestehen bleiben. Um das besser zu sehen, habe ich ein Beispiel als Bild hochgeladen.
Ich bin mit VBA zu dem Punkt gekommen, alle gelben doppelten zu löschen, aber ich finde keine Möglichkeit die Bedingung mit rot einfließen zu lassen.

Ich hoffe einer kann mir helfen. Ich wäre sehr dankbar.

 

Hola,
verlinkst du bitte deine Fragen in den verschiedenen Foren gegenseitig?
Warum zeigst du nicht was du bisher schon hast?
Gruß,
steve1da

 

Na klar hier ist der bisherige Code :)

Sub DuplikateNurGelb()
Dim toDel(), i As Long
Dim RNG As Range, Cell As Long
Dim sheet As Worksheet
Set sheet = Worksheets("Tabelle1")
lastRow = sheet.Cells(sheet.Rows.Count, 1).End(xlUp).Row

Set RNG = Range("h1:h" & lastRow)

For Cell = 1 To RNG.Cells.Count
If Application.CountIf(RNG, RNG(Cell)) > 1 Then
ReDim Preserve toDel(i)
toDel(i) = RNG(Cell).Address
i = i + 1
End If
Next

For i = UBound(toDel) To LBound(toDel) Step -1
If Range(toDel(i)).Cells.Interior.ColorIndex = 6 Then

RowToDel = Range(toDel(i)).Cells.Row
Rows(RowToDel).EntireRow.Delete
End If
Next i​

End Sub