Tidsregistrering i vagtskema

Noget i den her retning måske.

Jeg har prøvet med datoen i A3:A33 (som tal 1-31), og medarbejder A i kolonne B3:C33, medarbejder B i kolonne D3:E33 osv.
Derudover skal der navngives 4 celler, der bruges i makroen.
Navnene er: Dato, Start_tid, Slut_tid og Paa_job.

De 3 første giver sig selv, her indtastes værdierne, Paa_job returnerer antallet af medarbejdere, der er på arbejde pågældende dato og tidsrum.
Medarbejdernes tider + de to indtastningsceller er formatteret som tt:mm.
Det smarteste vil nok være, at lave en knap i regnearket der kan køre makroen.
Og her følger så makroen:

Sub Tid_reg()
Application.ScreenUpdating = False  'Slår skærmopdateringen fra mens makroen kører
Set Checkdato = Range("Dato")
Set Starttid = Range("Start_tid")
Set Sluttid = Range("Slut_tid")

Range("A3").Select 'Vælger kolonnen med dato
Do While IsEmpty(ActiveCell.Offset(1, 0)) = False  'Gennemgår cellerne i kolonnen indtil der kommer en tom celle
If ActiveCell.Value = Checkdato Then GoTo Fortsaet  'Hvis indtastningsværdien er lig med datoen fortsættes
ActiveCell.Offset(1, 0).Select  'Vælger cellen under den celle der netop er blevet checket
Loop  'Går tilbage til "Do While" og starter igen

Fortsaet:
ActiveCell.Offset(0, 1).Select  'Vælger cellen til højre for datoen
Tael = 0  'Sætter tælleren til værdien 0

Do While IsEmpty(ActiveCell.Offset(0, 0)) = False  'Gennemgår cellerne i kolonnen indtil der kommer en tom celle
If ActiveCell.Value <= Starttid And ActiveCell.Offset(0, 1).Value >= Sluttid Then Tael = Tael + 1  'Hvis indtsatningsværdierne ligger inden for arbejdstiderne fortsættes
ActiveCell.Offset(0, 2).Select  'Flytter til næste mødetidskolonne
Loop  'Går tilbage til "Do While" og starter igen

Range("Paa_job").Select  'Vælger cellen hvor værdien fra tælleren skal skrives
ActiveCell = Tael    'Indsætter tællerens værdi i cellen

Application.ScreenUpdating = True  'Slår skærmopdateringen til igen
End Sub

Jeg har ikke helt fået den til at virke, men efter nogen tids granskning, kan jeg se, at den ikke er helt ved siden af... Desuden er kravene til regnearket steget en del siden da, men det er jo ikke din fejl...

Kast et svar, så får du point'ene. :-)

Svar :o)

Undskyld ventetiden... Ferien kom over mig... :-)