Okay, så skal du bruge formlen fra linket, hvor funktionen iWeek bruges.
Jeg har desværre ikke erfaring med at indsætte en sådan funktion, men det er måden at gøre det på.
Formlen til at finde sidste dato uge 4
=DATO(F5;1;0)+(C6*7)-6+HVIS(iWeek(DATO(F5;1;1))>=52;8-UGEDAG(DATO(F5;1;1);2);-UGEDAG(DATO(F5;1;1);2)+1)+6
Formlen til at finde første dag uge 5
=DATO(F5;1;0)+(B7*7)-6+HVIS(iWeek(DATO(F5;1;1))>=52;8-UGEDAG(DATO(F5;1;1);2);-UGEDAG(DATO(F5;1;1);2)+1)
Men det kræver funktionen som er beskrevet i linket:
Function iWeek(InputDate As Long) As Integer
Dim A As Integer, B As Integer, C As Long, D As Integer
iWeek = 0
If InputDate < 1 Then Exit Function
A = Weekday(InputDate, vbMonday)
B = Year(InputDate + ((8 - A) Mod 7) - 3)
C = DateSerial(B, 1, 1) '1. januar ÅR(inputdate)
D = (Weekday(C, vbSunday) + 1) Mod 7
iWeek = Int((InputDate - C - 3 + D) / 7) + 1
End Function
Det har jeg som sagt ingen erfaring med at indsætte....