Overlappende datoer - VB?

Ja - via VBA

Kunne en ekspert evt give et skelet til noget kode, så jeg på én eller anden måde kan komme i mål?

Vender tilbage senere..

Du er velkommen til at sende filen / model. @-adresse under min profil

Const fraRæk = 4
Const fraDatoKol = 4
Const tilDatoKol = 5
Const deltagerStartKol = 8
Const chk = "p"

Dim antalRæk As Integer, antalKol As Integer
Dim ræk As Integer, kol As Integer
Dim fraDato As Date, tildato As Date, antalP As Integer
Dim datoer As String
Public Sub datoKontrol()
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    antalKol = ActiveCell.SpecialCells(xlLastCell).Column
   
    Application.ScreenUpdating = False
   
    For kol = deltagerStartKol To antalKol
        datoer = ""
        For ræk = fraRæk To antalRæk
            If Range("A" & ræk) <> "" Then
                If LCase(Cells(ræk, kol)) = chk Then
                    fraDato = Cells(ræk, fraDatoKol)
                    tildato = Cells(ræk, tilDatoKol)
                    antalP = antalP + 1
                   
                    If erdatoOptaget(fraDato) = False Then
                        datoer = datoer & fraDato & " "
                        If fraDato <> tildato Then
                            If erdatoOptaget(tildato) = False Then
                                datoer = datoer & fraDato & " "
                            Else
                                Cells(ræk, kol).Interior.ColorIndex = 3
                            End If
                        End If
                    Else
                        Cells(ræk, kol).Interior.ColorIndex = 3
                    End If
                End If
            End If
        Next ræk
        antalP = 0
        datoer = ""
    Next kol
End Sub
Private Function erdatoOptaget(dato)
    If InStr(datoer, dato) > 0 Then
        erdatoOptaget = True
    Else
        erdatoOptaget = False
    End If
End Function
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Interior.ColorIndex = 3 And Target = "" And Target.Column >= deltagerStartKol Then
        Target.Interior.ColorIndex = xlColorIndexNone
    End If
End Sub

Wow! I'm impressed! Og så rystet ud ad ærmet - tak!  :-)