Time beregning med "validering" kabbak

prøv denne

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

    For Each C In Range(DagOmråde.Address)
        RW = C.Row
        F = Val(Cells(RW, StartTidOmråde.Column) * 24)
        T = Val(Cells(RW, SlutTidOmråde.Column) * 24)
        For N = F To T - 1
            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) / 24, "hh:nn") & "-"
        End If
    Next
    If Not Tom Then
    IkkeBesat = Left(IkkeBesat, Len(IkkeBesat) - 1)
    Else
    IkkeBesat = "alle timer besat"
    End If
End Function

Yes meget bedre, så er der kun et problem tilbage, den skal hvis man viser 09:00 - 21:00, ikke vise som om 21 ikke er taget for tiden er jo kun til 21.. Hvis du forstår.. Den viser kun alle timer besat hvis man skriver 22???

lav
  For I = 9 To 21
om til

  For I = 9 To 20

Smid et svar Kabbak

Funker det nu ?