Oplopende datum in verschillende tabbladen

[Brokoli]

Hallo allen,

Ik heb een werkblad per maand gemaakt met daarin 31 tabbladen voor elke dag.

Hoe krijg ik hier op bijv. tabblad 1 maandag 1-8-2016 te staan en automatisch opvolgend tot het 31e tabblad woensdag 31-8-2016.

Ik heb de datum in cel A1 staan.

Hoor 't graag en alvast bedankt voor de hulp

 

[edmoor]

Test deze maar eens:
Bekijk bijlage Oplopende Datum.xlsm

 

[HSV]

Zo te lezen bestaan de werkbladen al Ed. :d

Sub hsv()
Dim j As Long
 For j = 2 To 31
  Sheets(j).[a1] = Sheets(1).[a1].Value + j - 1
 Next j
End Sub

 

[edmoor]

Heb je gelijk in. Daarom vroeg ik in eerste instantie om een voorbeeld maar heb toch maar even gemaakt wat ik plaatste.

 

[Brokoli]

Top

Jaa, dit is echt top Edmoor! Dankjewel. Nou wil ik de datum alleen ook nog in cel A1 op elk tabblad hebben staan

Heb voor de zekerheid het document ook toegevoegd.

Bekijk bijlage checklist excel.xlsm

Bedankt voor de hulp!

 

[edmoor]

Probeer deze maar eens met een sjabloonblad erbij:
Bekijk bijlage checklist excel.xlsm

 

[Brokoli]

Yes, dit bedoel ik helemaal! Ontzettend bedankt voor je hulp:thumb:!!!

 

[edmoor]

Graag gedaan