Excel Macro Voettekst - Paginanummers

[Financieeltje96]

Hey hallo,

Voor mijn werk ben ik e.e.a. aan het automatiseren (wekelijks terugkerende items).
Nu heb ik zelf nog niet eerder met Macro's gewerkt maar voor alles is een eerste keer.

Hier wil ik een simpele voettekst onder hebben waar onder het paginanummer en het aantal pagina's zodat dit op hardcopy duidelijk is dat alles aanwezig is.
nu heb ik de macro gemaakt door simpel weg de macro op te nemen, maar het resultaat is niet gewenst, gezien hij het aantal pagina's verwijderd

Hier staat in de macro het volgende .RightFooter = "Pagina &P/&N"
Hiermee is het sipelweg vertaald naar 'Pagina &[Pagina]/&[Pagina's]


Wat er gebeurd is dat het kopje &[Pagina's] wel in de macro staat aangegeven met ''&N'' maar deze word NIET uitgevoerd....


Iemand een oplossing/ andere code die ik ergens in kan gooien ??

Alvast bedankt!



Hierbij de code

    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = "tekst met nog iets er in" & Chr(10) & "&D &T"
        .CenterFooter = "&A" & Chr(10) & "&F"
        .RightFooter = "Pagina &P/&N"
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With

 

[Cobbe]

RightFooter = "Pagina &P/&N"
moet zijn:
RightFooter = "Pagina " &P/&N

 

[Financieeltje96]

Hallo Cobbe,

Hartelijk dank voor de informatie, ik ga het zo dadelijk even proberen !

M.v.g.