Code funktioniert nicht
Claudia
ich durchsuche einen bestimmten Bereich und möchte in Spalte J eine Kennzeichnung vornehmen. Nutze ich die im Code aufgeblendete Zeile funktioniert es reibungslos.
Mein Code
erste Zelle = J2
letzte Zeile J + Inhalt aus H1
funktioniert nicht. Was mache ich falsch ?
Liebe Grüße
Claudia
Private Sub Doppelte__ab_zweiten_Eintrag_in_Spalte_J()
i = Range("h1").Value
Dim rng As Range
Dim Bereich As Range
Set Bereich = Range("j2" & ":j" & i)
'Set Bereich = Range(Cells(2, 13), Cells(Rows.Count, 13).End(xlUp))
For Each rng In Bereich
If Application.CountIf(Range(Bereich(1), rng), rng) > 1 Then _
rng.Offset(0, -3).Value = "doppelt"
' rng.Interior.ColorIndex = 3
Next
End SubAnzeige