Lave kalender

Prøv at kigge her:

http://www.eksperten.dk/spm/762802

Det er lige noget mere simplet vi er ude i ..

jeg skal i bund og grund bare bruge en der gør følgende

tager celle 1's værdi.. kopier den til den ved siden af og indsætte.. noget ala

copy.cell(a2)
en tæller
paste.copy i cell a2+tællerværdi med værdien +tæller værdi
gør det indtil værdien for slutcellen er nået

Så hvis der står i celle a2 står 4 skal der i a3 stå 5  og i a4 stå 6.. osv ..indtil vi når målet som er bestem ved celle a3 og har værdien 28 f.eks.

Så prøv med denne i stedet:

Dim startnummer, slutnummer, ugenr As Integer
Sub ugenummer()
startnummer = Range("a2").Value
slutnummer = Range("a3").Value
   
Range("b2:iv2").ClearContents

For ugenr = startnummer To slutnummer - 1
        Range("a2").Select
        ActiveCell.Offset(0, (ugenr + 1) - startnummer) = ugenr + 1
Next

End Sub

Lige endnu en update

min kode ser nu således ud

Sub Opdatere_kalender()
Range("D8").Select
  For i = Range("c4") To Range("c5")
    ActiveCell.Formula = "=weeknum(" & i & " )"
    ActiveCell.Offset(0, 1).Select
  Next i
End Sub

men Formula funktion virker ikke helt som jeg ønsker.. får en fejl med noget "break mode"

x-lars ..

Jeg kan ikke få din til virke.. den stopper efter første step,

Kan du sende arket på x_lars snabela yahoo.com?

Sådan her skulle den se ud:

Sub ugenummer()
Dim startnummer, slutnummer, ugenr As Integer

startnummer = Range("D4").Value
slutnummer = Range("D5").Value
   
Range("D6:iv50").ClearContents
Range("D8").Select

For ugenr = startnummer To slutnummer
        ActiveCell.Offset(0, (ugenr + 1) - startnummer) = ugenr + 1
Next

End Sub