Til Kabbak

Public Function IkkeBesat(DagOmråde As Range, StartTidOmråde As Range, SlutTidOmråde As Range) As String
    Dim Tid() As Variant, I As Date, N As Date, X As Long, F As Date, T As Date, Tom As Boolean
    X = 0
    Tom = True
  Application.Volatile
    For I = #9:00:00 AM# To #9:00:00 PM# Step #1:00:00 AM#
        ReDim Preserve Tid(X)
        Tid(X) = I
        X = X + 1
    Next I

    For Each C In Range(DagOmråde.Address)
        RW = C.Row
        F = Cells(RW, StartTidOmråde.Column)
        T = Cells(RW, SlutTidOmråde.Column)
        For N = F To T Step #1:00:00 AM#
            For X = 0 To UBound(Tid)
                If N = Tid(X) Then
                    Tid(X) = Empty
                    Exit For
                End If
            Next X
        Next N
    Next C
   
    For X = 0 To UBound(Tid)
        If Not IsEmpty(Tid(X)) Then
        Tom = False
            IkkeBesat = IkkeBesat & Format(Tid(X), "hh:nn") & "-"
        End If
    Next
    If Not Tom Then
    IkkeBesat = Left(IkkeBesat, Len(IkkeBesat) - 1)
    Else
    IkkeBesat = "alle timer besat"
    End If
End Function


prøv at teste denne.

jeg har fået point nok, tag dem selv igen

fdf