Makroer - skifte dato og uge nr

Denne indsætter dato og uge, der hvor cursoren står

Sub IndsætDato()
Selection.TypeText Text:=Date & " Uge " & Format(Date, "WW", vbMonday, vbFirstFourDays)
End Sub

Dags dato eller hvad?

fik vist ikke helt forklaret, hvad jeg skal lave...

Jeg skal lave skemaer for et helt år, dvs. makroen skal indsætte uge-nr. og dato for et helt år. Er det muligt, at man i starten af dokumentet selv indtaster uge-nr. og datoen for mandag og så har en makro, der indsætter samme uge-nr. i de fire efterfølgende skemaer og dato for tirs.-fre. (noget med en variabel i++ og if(dato + i > 31 {i = i - 31} eller hvad?).

Håber det gjorde det lidt klarere...

Nå, forelønig har jeg bare lavet en makro, som finder et bestemt stykke tekst og erstatter den med den værdi, man indtaster i en inputbox og derefter lægger 1 til fire gange for de fire næste dage...

Hvis nogen har en bedre løsning hører jeg gerne om det!

Yes, det var vist det...