Master suche
Black
Ich habe eine Arbeitsmappe mit Teils Doppelten Einträge die Makriert werden sollen aber nur wen sie vom gleichen Typ sind. der Typ ist also der master (hier Haus)
Beispiel
Haus 12 33 12
Vogel 12 45 22
Stein 12 45 45
Haus 12 33 21
Nun sind die Namen die Master Spalte F
und die Zahelen stehen in Range("J7:BG422").
Nun müsste also die 12 und 33 von Haus markiert werden
+die 45 von Stein
ein Teil des Makros habe ich schon geschrieben:
Sub GetDoubles()
Range("J7:BG422").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Dim rngAll As Range, rngAct As Range
Set rngAll = Range("J7:BG500")
For Each rngAct In rngAll.Cells
If WorksheetFunction.CountIf(rngAll, rngAct.Value) > 1 Then
rngAct.Interior.ColorIndex = 6
Else
rngAct.Interior.ColorIndex = xlColorIndexNone
End If
Next rngAct
Vielen dank im voraus.