Ga naar inhoud
  • 0

printen dagen en data in cellen in Excel 2000


anoniem

Vraag

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
Link naar reactie

2 antwoorden op deze vraag

Aanbevolen berichten

  • 0
[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.
Link naar reactie

Doe mee aan dit gesprek

Om te reageren, moet je eerst inloggen. Dit doe je door rechtsboven op inloggen te klikken.

Gast
Antwoord op deze vraag...

×   Geplakt als verrijkte tekst.   Plak in plaats daarvan als platte tekst

  Er zijn maximaal 75 emoji toegestaan.

×   Je link werd automatisch ingevoegd.   Tonen als normale link

×   Je vorige inhoud werd hersteld.   Leeg de tekstverwerker

×   Je kunt afbeeldingen niet direct plakken. Upload of voeg afbeeldingen vanaf een URL in

×
×
  • Nieuwe aanmaken...