Finde start og slut dato i given uge/år

Function FirstDayInWeek(ugeår)
Dim uge As Long
Dim år As Long
uge = CLng(Left(ugeår, 2))
år = CLng(Right(ugeår, 2))
FirstDayInWeek = DateSerial(år, 1, 7 * uge - 3 - Weekday(DateSerial(år, 0, 0), 3)) - 1
End Function

Denne funktion giver søndagen. Herefter er det let at lægge 7 til :-)
Hvis det skal returnes til arket så husk at formatere cellen som dato.

Som formel ser den sådan ud

=DATO(A2;1;7*A1-3-UGEDAG(DATO(A2;;);3))-1

Denne funktion giver søndagen. Herefter er det let at lægge 7 til :-)

jeg mente selvfølgelig lægge 6 til

Virker perfekt, tak. Smider du et sare.

fint :-)