Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Anders (software)

printen dagen en data in cellen in Excel 2000

None
3 antwoorden
  • 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="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.
  • 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

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.