Koptekst op meerdere pagina's wijzigen

[Hans290875]

Ik heb een Excel bestand van maximaal 20 pagina's.
Alle pagina's, met uitzondering van pagina 1 en 2 hebben een koptekst met daarin o.a. het jaartal (bijv. voorbeeldtekst 2012 voorbeeldtekst).
Is het mogelijk om op alle pagina's met een koptekst in één handeling het jaartal te wijzigen in 2013?
In Word is dat wel mogelijk namelijk.

 

[Tides]

Dag Hans,

Bedoel je wellicht over meerdere werkbladen?
Wanneer je namelijk in excel via pagina-indeling > werkbladopties > koptekst/voettekst een koptekst maakt zal dit gelden voor alle pagina's.
Wil je dit voor meerdere werkbladen dan kun je deze simpelweg met de CTRL meerdere werkbladen selecteren en dan deze actie herhalen. De kop- of voettekst is dan zichtbaar op de geselecteerde werkbladen.

 

[spaarie]

Of een macrootje

For i = 3 To Sheets.Count 'vanaf werkblad 3 tot einde werkbladen
    Sheets(i).PageSetup.CenterHeader = "voorbeeldtekst " & Year(Now) & " voorbeeldtekst"
Next

 

[Hans290875]

compilatiefoutmelding bij de macro

Ik krijg een compilatiefoutmelding bij de macro in onderstaande regel
For i = 3 To Sheets.Count 'vanaf werkblad 3 tot einde werkbladen


Door vol te houden bereikte ook de slak de ark van Noach.

 

[spaarie]

Je moet wel zelf bepalen op je een Private Sub of een Sub maakt..
Voor in een module:

Sub Spaarie()
    For i = 3 To Sheets.Count 'vanaf werkblad 3 tot einde werkbladen
        Sheets(i).PageSetup.CenterHeader = "voorbeeldtekst " & Year(Now) & " voorbeeldtekst"
    Next
End Sub