Afwijkende koptekst in Excel

[Ocirne]

Hallo,

Na wat experimenteren wil ik in Excel een Word-document nabootsen om resultaten die in tabellen en een grafiek in Excel worden gemaakt te voorzien van een toelichtende tekst. Het document moet worden voorzien van het bedrijfslogo en een afwijkende eerste pagina voor wat betreft de kopteksten.

Voor de eerste pagina moet linksboven het bedrijfslogo komen en rechtsboven enkele algemene gegevens.
Voor de tweede pagina linksboven eveneens het bedrijfslogo en rechtsboven de datum, genoteerd als "12 mei 2018" en daaronder "Pagina x van y".

Afzonderlijk lukt het mij om de twee kopteksten te krijgen. Voor de eerste pagina heb ik de VBA-code:

Sub KoptekstDatum1()
ActiveSheet.PageSetup.LeftHeader = "&G"
ActiveSheet.PageSetup.RightHeader = _
        "&""-,Vet""Algemene gegevens&""-,Standaard""&10" & Chr(10) & "Regel 1" & Chr(10) & "Regel 2"
End Sub

Voor de tweede pagina heb ik nu de VBA-code:

Sub KoptekstDatum2()
ActiveSheet.PageSetup.LeftHeader = "&G"
ActiveSheet.PageSetup.RightHeader = Format(Now(), "d mmm yyyy") & Chr(10) & "Pagina &P van &N"
End Sub

Heeft iemand een oplossing om de VBA-code zo te krijgen dat ze worden gecombineerd zoals gevraagd?

Alvast bedankt voor de reactie.

Mvg,

Ocirne

 

[HSV]

De sheets benoemen op index.

Sub beiden()
 Sheets(1).PageSetup.LeftHeader = "&G"
 Sheets(1).PageSetup.RightHeader = _
        "&""-,Vet""Algemene gegevens&""-,Standaard""&10" & Chr(10) & "Regel 1" & Chr(10) & "Regel 2"
 Sheets(2).PageSetup.LeftHeader = "&G"
 Sheets(2).PageSetup.RightHeader = Format(Now(), "d mmm yyyy") & Chr(10) & "Pagina &P van &N"
End Sub

 

[Ocirne]

Dag Harry,

Als ik de code goed begrijp, moet ik voor de eerste en volgende pagina's twee aparte sheets maken? Op zich kan dat wel, alleen begint sheet 2 dan met pagina 1 van y terwijl (met de eerste pagina meegerekend) deze zou moeten beginnen met 2 van y. Hoe los ik dat dan op?

Mvg,

Ocirne

 

[Ocirne]

Harry, vergeet mijn additionele vraag: ik zie dat als ik beide tabbladen selecteer ze automatisch worden doorgenummerd!

Probleem is zo opgelost. Bedankt voor je moeite.

Mvg,

Ocirne