Celinhoud in koptekst plaatsen werkt niet

[MarkDM]

Ik ken bijna niets van Excel maar wil dit toch automatiseren.
Agendabestand heeft Tabblad per maand. Bij de even maanden (Feb, Apr, Jun) moet rechtsboven het jaartal komen van de agenda.
Ik heb een Waarde gecreëerd, "Agendajaar", die verwijst naar Tabblad "Jan", cel A, 36
Ik heb in "ThisWorkbook" een routine gemaakt met informatie (instructies) die ik hier en elders vond.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Blad("Feb").PageSetup.RightHeader = Agendajaar
End Sub
Bekijk bijlage Agenda2016TestAgendajaar.xlsm

Deze wordt doorlopen, denk ik, maar zonder resultaat.
Wat is mis ?

 

[gast0660]

Geen flauw idee wat je exact wil bereiken maar alleen voor uw vraag moet het zoiets worden.

Sheets("Feb").PageSetup.RightHeader = Range("Agendajaar").Value

 

[MarkDM]

Het werkt ook niet. Maar blijkbaar wordt de routine niet meer doorlopen. Als ik er syntax-fouten insteek stop hij daar niet op.
Moet ik nog iets activeren ?

 

[gast0660]

Hier een vbtje, misschien?
Beide codes werken.

 

[MarkDM]

Ja, zo werkt het.
Bedankt.
Blijkbaar stonden macro's uitgeschakeld. Dat was ook een probleem.
Ik ga het nog verder verfijnen.
Eventueel kom ik nog met verdere vragen.

 

[gast0660]

Ok

 

[MarkDM]

Centerheader gebruik ik niet. Maar die instelling "vet" en 12-punt interesseert me.
Ik krijg het niet gecombineerd met de Waarde.
Ik gebruik volgende code:

Sheets("Feb").PageSetup.RightHeader = Range("Agendajaar").Value

Hoe kan ik dat in Vet krijgen op 12-punt. Ik begrijp de syntax niet bij Centerheader in het voorbeeld .

 

[gast0660]

Hoi Mark,
zoiets?

.RightHeader = "&""Arial,Bold""&12 " & Range("Agendajaar").Value

 

[MarkDM]

Ja, dat werkt. Bedankt.
Ik heb terug wat gesukkeld om de routine op automatisch op te roepen.
Ik heb de instellingen in het vertrouwenscentrum aangepast. Dan word de code altijd doorlopen.
Nu ziet het er goed uit.

 

[gast0660]

OK:thumb:
Suc6