Excel dashboard, som viser tidsforbrug af ressourcer

Kunne du prøve at vise hvordan du forestiller dig det skulle se ud?
Via Upload f.eks.

Det kan jeg ihvertfald,

Tænker det skal ligne nedenstående;

https://www.google.dk/search?q=excel+time+plot&espv=2&biw=1440&bih=859&source=lnms&tbm=isch&sa=X&ved=0CAYQ_AUoAWoVChMI14yl4sGFyQIVRwYsCh03vQei#tbm=isch&q=excel+time+chart+24h&imgdii=bow5PSXarqXdzM%3A%3Bbow5PSXarqXdzM%3A%3BsQTpI6ILIVbaeM%3A&imgrc=bow5PSXarqXdzM%3A

Nu er ovenstående graf over en søvnrytme, men hvis det kunne lade sig gøre at visualisere min forespørgsel på samme måde. Således det giver et godt overblik, hvilke tids intervaller der ikke bliver dækket.

I mit datasæt har jeg følgende variabler som berører tidsdelen;
Dato
Startidspunkt (Kvarters interval)
Sluttidspunkt (Kvarters interval)

Håber det kunne give lidt mere mening,

Mvh
Anders

Ok - det næste kunne så blive en billede af datasæt og tilhørende visualisering - bl.a. i relation til følgende:
"Således det giver et godt overblik, hvilke tids intervaller der ikke bliver dækket.
"

Du skal have mange tak for din hjælp, hvis du sender en mail til maso811@student.sdu.dk - kan jeg sende datasættet og min umiddelbare tanker omkring visualisering.

Mvh
Anders

VBA-koden er anbragt under arket "Test"

Dim varighed As Date, tabel As Variant
Dim fra As Date, til As Date, minut As Date, fraTime As Date, tilTime As Date, timeDel As Date
Dim antalRækker As Integer, ræk As Integer, minutter As Integer, TimeMinutter As Integer
Dim timeRæk As Integer
Private Sub fordelingAfTid()
    Application.ScreenUpdating = False
   
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
Rem slet tidligere resultat
    Range("H2:H" & antalRækker).Select
    Selection.Delete
    Range("H2").Select
   
    For ræk = 2 To antalRækker
        fra = Range("C" & ræk)
        til = Range("D" & ræk)
        varighed = Range("E" & ræk)
        tabel = Split(varighed, ":")
Rem omregn til minutter
        minutter = tabel(0) * 60 + tabel(1)
               
        fraTime = Format(fra, "hh:00")
        tilTime = Format(til, "hh:00")
               
        If fraTime <> tilTime Then
            If minutter > 60 Then
                TimeMinutter = 60
            Else
                TimeMinutter = DateDiff("n", fra, tilTime)
            End If
        Else
            TimeMinutter = minutter
      End If
       
Rem indsæt i fratimen
        timeRæk = DateDiff("h", "00:00", fraTime)
        Range("H" & timeRæk + 2) = Range("H" & timeRæk + 2) + TimeMinutter
       
        minutter = minutter - TimeMinutter
       
        tilTime = fraTime
        While minutter > 0
            If minutter <= 60 Then
                TimeMinutter = minutter
            Else
                TimeMinutter = 60
            End If
           
Rem ryk frem til næste time
            If CStr(tilTime) = "23:00:00" Then
                tilTime = "00:00"
            Else
                tilTime = DateAdd("h", 1, tilTime)
            End If
           
            timeRæk = DateDiff("h", "00:00", tilTime)
            Range("H" & timeRæk + 2) = Range("H" & timeRæk + 2) + TimeMinutter

            minutter = minutter - TimeMinutter
        Wend
    Next ræk
End Sub