anoniem Geplaatst: 10 februari 2005 Delen Geplaatst: 10 februari 2005 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 Link naar reactie
anoniem Geplaatst: 10 februari 2005 Auteur Delen Geplaatst: 10 februari 2005 [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. Quote Link naar reactie
anoniem Geplaatst: 10 februari 2005 Auteur Delen Geplaatst: 10 februari 2005 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 Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen