printen dagen en data in cellen in Excel 2000

[anoniem]

Graag wil ik te weten komen hoe je in Excel 2000 in vooraf bepaalde cellen opeenvolgend de dagen van de week met de juiste data kunt printen. m.a.w. 365 vellen A-4 met op vel 1 bijv. in cel A1 zaterdag en in cel B2 1 januari 2005, op vel 2 in A1 zondag en in B1 2 januari 2005, op vel 3 in A1 maandag en in B1 3 januari 2005 etc. Dit alles voor 365 vellen A-4 geheel geautomatiseerd. Hartelijk dank voor een antwoord. Alphons Weert

[anoniem]

[quote:d73e3adeec="alphons"]Graag wil ik te weten komen hoe je in Excel 2000 in vooraf bepaalde cellen opeenvolgend de dagen van de week met de juiste data kunt printen. m.a.w. 365 vellen A-4 met op vel 1 bijv. in cel A1 zaterdag en in cel B2 1 januari 2005, op vel 2 in A1 zondag en in B1 2 januari 2005, op vel 3 in A1 maandag en in B1 3 januari 2005 etc. Dit alles voor 365 vellen A-4 geheel geautomatiseerd. Hartelijk dank voor een antwoord. Alphons Weert[/quote:d73e3adeec] Als ik het goed begrijp, wil je op 365 verschillende werkbladen opeenvolgende data + de daarbij behorende weekdag hebben. En wel in de cellen A1 en B1. Dat kan met de volgende macro: [code:1:d73e3adeec] Sub MaakDatumPaginas() Dim dtWaarde As Date Dim intWerkblad As Integer dtWaarde = #1/1/2005# intWerkblad = 1 While dtWaarde <= #12/31/2005# Worksheets(intWerkblad).Activate Range("A1").Select Select Case Weekday(dtWaarde) Case 1: Range("A1") = "zondag" Case 2: Range("A1") = "maandag" Case 3: Range("A1") = "dinsdag" Case 4: Range("A1") = "woensdag" Case 5: Range("A1") = "donderdag" Case 6: Range("A1") = "vrijdag" Case 7: Range("A1") = "zaterdag" End Select If Range("B1") = "" Then Range("B1") = dtWaarde If Worksheets.Count <= intWerkblad And dtWaarde < #12/31/2005# Then Worksheets.Add After:=Worksheets(intWerkblad) End If intWerkblad = intWerkblad + 1 dtWaarde = dtWaarde + 1 Wend End Sub [/code:1:d73e3adeec] In een module plaatsen, en uitvoeren.

[anoniem]

Mocht 't alleen voor printen zijn: -Uitgaande van één werkblad met standaard 56 rijen per A4-tje: In A1: zaterdag In B1: 1-1-5 Selecteer A1 t/m B56 Kopieer selectie naar beneden tot B20440