Retuner ID ved match vha LOOP - VBA

Hej

Jeg har opsat følgende Excel-eksempel:
https://www.dropbox.com/s/8ah8iah2nwa9sdu/LOOP.xlsx?dl=0

hvor jeg har behov for at få udfyldt kolonne D i fanen Aktivitet. Værdien som skal matches står i kolonne A i fane Kontakt.

Følgende kriterier skal opfyldes for matche det korrekte Kontakt_ID:

Aktivitet.KundeNR = Kontakt.KundeNR
AND
Aktivitet.Start >= Kontakt.Start
AND
Aktivitet.End <= Kontakt.End

Hvis der IKKE er match skal der returneres værdien 0

Jeg er ikke så skarp på Loop som skal i brug her.

På forhånd tak for hjælpen.