Celwaarde opnemen in koptekst

[joscho56]

Beste excel gebruikers,

ik heb een excel document, waarbij ik een celwaarde wil opnemen in de koptekst. In dit geval gaat het om het jaartal YYYY. De celwaarde met het jaartal staat in sheet 1 (cel B5). Dit jaartal wil ik opnemen in de koptekst van sheet 2 (3e kolom). Wie kan mij aan de oplossing helpen?

Al vast bedankt voor jullie input

 

[loek010]

Met een stukje vba

Private Sub Worksheet_Activate()
Worksheets("Sheet 2").PageSetup.RightHeader = Sheets("Sheet 1").Range("B5")
end Sub

 

[cow18]

kan ook in de "Workbook_BeforePrint" in thisworkbook.
Een beetje afhankelijk van wat er gemakkelijkst uitkomt.

 

[joscho56]

Met een stukje vba

Private Sub Worksheet_Activate()
Worksheets("Sheet 2").PageSetup.RightHeader = Sheets("Sheet 1").Range("B5")
end Sub

Hallo Willem,

Ik heb geprobeerd dit stukje VBA op te nemen in een macro. Die ziet er dan als volgt uit:

Sub Jaartal()
'
' Jaartal Macro
'
Private Sub Worksheet_Activate()
Worksheets("Jr-OVZ").PageSetup.RightHeader = Sheets("BatenLasten").Range("B5")
'
End Sub

Ik krijg echter dan een foutmelding, dat direct na de regel ' Jaartal Macro een End sub wordt verwacht. Kun jij me aan de oplossing helpen??

Al vast bedankt,
Johan

 

[loek010]

@joscho56

Als je hem in een macro wil afspelen dan moet uiteraard de Activate event er tussen uit
dus met je macro wordt het zo iets

Sub Jaartal()
Worksheets("Jr-OVZ").PageSetup.RightHeader = Sheets("BatenLasten").Range("B5")
End Sub

 

[joscho56]

@joscho56

Als je hem in een macro wil afspelen dan moet uiteraard de Activate event er tussen uit
dus met je macro wordt het zo iets

Sub Jaartal()
Worksheets("Jr-OVZ").PageSetup.RightHeader = Sheets("BatenLasten").Range("B5")
End Sub

Bedankt Willem, dat was het probleem.
Werkt zoals verwacht.

Groetjes Johan

 

[loek010]

Bedankt