Weeknummer Tonen in hoofdtekst Excel? (via afdrukken)

[Wocky]

Beste,

Weet iemand of het mogelijk is om de huidige weeknummer te laten verschijnen in de hoofdtekst, wanneer je een spreadsheet wil afdrukken?
Datum & tijd gaat wel via een invoegknop.
Zie afbeelding in bijlage.

Alvast bedankt
Wocky

 

[jkpieterse]

Nee daar bestaat geen koptekst-code voor. Je zou het middels een macrootje wel voor elkaar kunnen krijgen. Zet dit in je ThisWorkbook module:

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim oSh As Object
    For Each oSh In ActiveWindow.SelectedSheets
        oSh.PageSetup.LeftFooter = "Week: " & DatePart("ww", Date, vbMonday, vbFirstFourDays)
    Next
End Sub

 

[alphamax]

Vervang in de code van jkpieterse "LeftFooter" (voetregel) door "LeftHeader" (kopregel)

 

[Wocky]

Ok bedankt!

Wocky