Markér dubletter

Hej Jensen363
"En ID kan godt optræde flere gange I rækkerne, men der må ikke være datooverlap mellem Date From og Date To"

Et eksempel ville lette forståelse af problemet :-)

ID    Date From      Date To
100  01-01-2016    31-12-2016
100  01-01-2017    31-12-2017
100  30-06-2016    31-12-2016

record 1 og 2 er unikke, hvorimod record 3 er en dublet, fordi hele eller dele af samme periode er indeholdt i en anden record

Ok - men det er vel pr. ID?

Ja, pr. ID

Ligger data sorteret efter ID p.t.?

Ikke som udgangspunkt, men det kan det blive

Det ville - så vidt jeg kan se - gøre test at det ønskede  noget mere overskueligt.

Du er velkommen til at sende en "mindre" prøve af en sorteret stak - så kunne jeg da prøve at strikke lidt VBA sammen.

Eksempel sendt

Modtaget - vender tilbage..

Rem Version 1 - 06.10.2016
Rem ======================
Dim antalRækker As Long, iD As String, FraDato As Date, tilDato As Date
Dim ræk As Long
Sub kontrolAfDubletter()
    antalRækker = Cells(Rows.Count, "A").End(xlUp).Row
    Application.ScreenUpdating = False
   
    For ræk = 2 To antalRækker - 1
        iD = Right(Range("P" & ræk), 6)
        FraDato = Range("Q" & ræk)
        tilDato = Range("R" & ræk)
       
        check ræk, iD, FraDato, tilDato
    Next ræk
End Sub
Private Sub check(aRæk, aId, aFra, atil)
Dim r As Long
    For r = aRæk + 1 To antalRækker
        If Right(Range("P" & r), 6) = aId Then
            If aFra < Range("Q" & r) And atil < Range("R" & r) Or _
                atil > Range("Q" & r) And atil > Range("R" & r) Then
            Else
                Range("A" & r & ":R" & r).Select
                Selection.Font.Bold = True
            End If
               
        End If
    Next r
End Sub

Takker for hjælpen

Selv tak