Function: Find dato for mandag i en given uge?

Hej Maffigadaffi.
Jeg laver en "reference"-celle for hvert år, jeg skal bruge. I cellen står datoen for mandag i uge 1 i et pågældende år.
Jeg har lavet reference-celler for tre år i cellerne A2, A3 og A4
I celle A2 skriver jeg 30-12-2013 - denne celle kalder jeg "mandag_uge_1_2014" (det taster du bare ind, hvor der ellers står A2 øverst til venstre)
I celle A3 skriver jeg 29-12-2014 - denne celler kalder jeg "mandag_uge_1_2015"
I celle A4 skriver jeg 04-01-2016 - denne celle kalder jeg "mandag_uge_1_2016"
Cellerne A2, A3 og A4 formatteres som dato (dd-mm-åååå)

I celle A1 står det tal, som er udgangspunktet for beregningen - YYYY uge WW

I celle B1 har jeg placeret beregningen (datoen for mandagen i uge WW i år YYYY udfra celle A1)
Celle B1 skal ligeledes formatteres som dato.

Formlen til celle B1 er:
=HVIS(VENSTRE(A1;4)="2014";(HØJRE(A1;2)*7-7)+mandag_uge_1_2014;
HVIS(VENSTRE(A1;4)="2015";(HØJRE(A1;2)*7-7)+mandag_uge_1_2015;
HVIS(VENSTRE(A1;4)="2016";(HØJRE(A1;2)*7-7)+mandag_uge_1_2016
)))

OBS
Hvis du skal bruge flere år, må du selvfølgelig lave flere reference celler - og flere linier efter samme princip i beregnings-formlen.

Venlig hilsen
Ole Viller, Randers

Hej Ole.

Tusind tak for indsatsen, men det er ikke helt hvad jeg er ude efter.

Jeg ønsker at finde mandag i en uge ved hjælp af en UserFunction, udelukkende ud fra en tekst i en celle hvor der altid står årstal som de første 4 karakterer og ugenr. som de 2 sidste. (Altså uden referenceceller).

Desuden er det en UserFunction jeg er ude efter, således at jeg ikke skal skrive hele min (lange)formel hver gang. I stedet vil jeg gerne kunne nøjes med blot kan skrive :"=FoersteUgedag(A1)" eks i celle B1 og så få returneret "41708" som jeg kan formattere som dato efterfølgende såfremt min tekststreng befinder sig i celle A1 og har indholdet "2014 UGE 11", Og at min UserFunction naturligvis hedder noget i retning af:

"Public Function FoersteUgedag(YearAndWeek as String), eller noget i den retning".

Function FDIW(YearandWeek As String)
FDIW = Evaluate("DATE(" & Left(YearandWeek, 4) & ",1,7*" & _
Right(YearandWeek, 2) & "-3-WEEKDAY(DATE(" & Left(YearandWeek, 4) & ",,),3))")
End Function

Lige i øjet, xl-Enthusiast...
Verdensklasse...

@ xl-Enthusiast:

Smid et svar og få velfortjente point...

OK.