VBA celwaarde bevat datum die in koptekst moet

[Bert007]

Hallo,

Ik wil graag een celwaarde in de koptekst middels VBA en de celwaarde is een formule die een datum weergeeft. Het heeft een lange tijd gewerkt maar om onduidelijke reden werkt het niet meer. Ook heb ik in de CenterHeader de pagina's en dat werkt wel nog steeds. Ik zou graag in elk actief werkblad de datum rechtsbovenin willen. Ook als ik achter RightHeader = "" plaats blijft hij een verkeerde datum weergeven van één van de vorige keren die ik geopend heb. De VBA code is als volgt;

Private Sub Worksheet_Activate()

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "Pagina &P van &N"
.RightHeader = Format(Range("A1"), "dd-mmm-yyyy")
End With
End Sub

In de bijlage een voorbeeldbestand zoals het altijd gewerkt heeft.

Wie kan mij helpen?

 

[edmoor]

Werkt hier prima.
Merk op dat de Workbook_BeforePrint niet wordt uitgevoerd voor de Preview.
Alleen voor het daadwerkelijk afdrukken.

 

[HSV]

In blad 1 moet je de eerste rij even naar beneden trekken aan de linkerkant in de modus 'Pagina-indeling' dan zie je de kopteksten weer.

 

[Bert007]

Werkt hier prima.
Merk op dat de Workbook_BeforePrint niet wordt uitgevoerd voor de Preview.
Alleen voor het daadwerkelijk afdrukken.

Nogmaals geprobeerd en bij mij werkt het gek genoeg niet. Waarschijnlijk ligt het probleem bij mij ergens op de pc aangezien de VBA code klopt. De preview zag ik ook nooit correct maar bij de afdruk wel.
Dank voor je antwoord!

 

[Obrecht]

Nogmaals geprobeerd en bij mij werkt het gek genoeg niet. Waarschijnlijk ligt het probleem bij mij ergens op de pc aangezien de VBA code klopt. De preview zag ik ook nooit correct maar bij de afdruk wel.
Dank voor je antwoord!

Bij mij werkt het ook gewoon
Maar had ook problemen met macro's na update Windows 11 24H2
Heb je oude macro's waar nu ook problemen mee zijn?
Of zoals ik gedownloade macro's die niet meer werken?

Probeer anders deze oplossing van edmoor.
werkte bij mij goed!

Control Panel > Progams and features.
Klik met rechts op Microsoft Office.
Klik Yes en dan op Online repair.

 

[Bert007]

Bij mij werkt het ook gewoon
Maar had ook problemen met macro's na update Windows 11 24H2
Heb je oude macro's waar nu ook problemen mee zijn?
Of zoals ik gedownloade macro's die niet meer werken?

Probeer anders deze oplossing van edmoor.
werkte bij mij goed!

Dank voor het meedenken.
Ik heb Windows 10 22H2 en zie nergens control panel. Heb van alles bekeken en geprobeerd en video's opgezocht maar uiteraard heb ik net weer iets anders blijkbaar. Ik heb sinds kort wel Microsoft 365 Copilot dus wellicht heeft het daar mee te maken.

 

[edmoor]

Klik op Start en tik in: control
Dan zie je het wel staan.