Kopier nogle felter og sæt dem ind i nogle bestemte celler.

Jeg har lavet et ark, som løser dit problem.
Interesseret så send en mail eller opgiv mailadresse.
janvogt@esenet.dk

jeg har sent en mail

Sendt ark

Til andre kan oplyses, at opgaven er løst uden VBA v.h.a. et dobbeltopslag MATCH/INDEX.

Formlen, som kan kopieres ud hedder:
=HVIS(ELLER($B18="";$A18="");"";HVIS($A18>C$17;"";HVIS($A18+3<C$17;"";INDEKS(Modeldata;SAMMENLIGN($B18;$A$1:$A$13);SAMMENLIGN(C$17+1-$A18;$A$1:$E$1)))))

Det ser meget godt ud, men jeg har lige at tilægs spørgsmål; hvis jeg skal have modellen til at række over flere uger f.eks. hvor skal jeg så ændre i formlen?

Der er plads til et år - eller 53 uger, som du nævner i opgaveteksten.
Hvis du skal bruge flere bliver det kompliceret fordi vi så skal have noget med årstal med også.

jeg fik vist spurt forkert. det jeg har brug for er modellen skal udviges
40 40 40 40 30 30 30 osv. op til 16 uger
og så vil jeg gerne vide hvor jeg skal ændre.

Ok, så skal du ændre flere steder. Det område, som hedder "Modeldata" skal ændres. Først skal du forlænge ugerækken fra 4 til 16, og så skal du gå ind i menuen under Indsæt - Navne - Definer og ændre området for "Modeldata".

Derefter skal du i ovenstående formel ændre ét sted (A18+3 til A18+15) altså:
=HVIS(ELLER($B18="";$A18="");"";HVIS($A18>C$17;"";HVIS($A18+15<C$17;"";INDEKS(Modeldata;SAMMENLIGN($B18;$A$1:$A$13);SAMMENLIGN(C$17+1-$A18;$A$1:$E$1)))))

Formlen kan derefter kopieres til alle andre celler.

jeg takker mange gange, da du lige har redet julen for mig

Jamen glædelig jul så ..... o<:-)