Im Prinzip habe ich eine Tabelle mit mehreren Spalten (A bis J). Jetzt möchte ich die Zeilen markieren, bei welchen sich die Werte der Zellen A, B und J doppeln.
Also die Zeilen markieren, welche den gleichen Wert in A, den gleichen Wert in B und den gleichen Wert in J haben. Die drei Werte welche in A, B und J stehen sind jeweils verschieden.
Danke für eure Hilfe
Sub Duplikate_hervorheben()
Dim i As Integer
Dim Bereich As Range
Dim Zelle As Range
i = 24 + 5
Set Bereich = Range(Cells(24, 1), Cells(i, 12)) 'gibt Bereich vor in dem die Zeilen durchsucht _
werden sollen
Set Zelle '=........ Code soll jeweils überprüfen ob es mehrere Zeilen gibt, in der jeweils die _
Werte in Zelle Ai, Bi und Ji gleich sind
For Each Zelle In Bereich
If WorksheetFunction.CountIf(Bereich, Zelle.Value) > 1 Then
Zelle.Interior.ColorIndex = 3
End If
Next Zelle
End Sub