Macro om gegevens in voetregel(s) op te nemen

[hvebsr]

Ik wil de padnaam en bestandsnaam van een Excelsheet, het paginanummer en aantal pagina's en de datum en tijd in de voetregel opnemen in Times New Roman 6 pts.
Ik heb de volgende macro gemaakt:

 Range("A1").Select
    ActiveWindow.View = xlPageLayoutView`
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
    .LeftFooter = _
    "&""Times New Roman,Standaard""&6 &Z&F"
    .CenterFooter = _
    "&""Times New Roman,Standaard""&6 Pagina &P van &N"
    .RightFooter = _
    "&""Times New Roman,Standaard""&6 &D &T"
    End With
    Application.PrintCommunication = True
    ActiveWindow.View = xlNormalView
    Range("A1").Select

Wanneer ik de macro normaal start, wordt er maar een deel van de middelste voetregel gevuld.
Wanneer ik dezelfde macro stap voor stap uitvoer (F8), gaat wel alles goed.
Wat doe ik fout?

 

[huijb]

Code dient tussen de codetags geplaatst te worden. Hiermee is het beter leesbaar voor de helpers. Zie ook hier http://www.helpmij.nl/forum/showthr...-de-helpers-in-deze-sectie-van-dienst-te-zijn

 

[snb]

Dit is bij mij (Excel 2010) voldoende:

Sub M_snb()
    With ActiveSheet.PageSetup
        .LeftFooter = "&""Times New Roman,Standaard""&6 &Z&F"
        .CenterFooter = "&""Times New Roman,Standaard""&6 Pagina &P van &N"
        .RightFooter = "&""Times New Roman,Standaard""&6 &D &T"
    End With
End Sub

 

[hvebsr]

Bedankt

Bedankt snb,

dit lijkt de oplossing te zijn :d

 

[hvebsr]

Even nog een aanvullende vraag:
de tijd wordt constant bijgewerkt, hoe regel ik, dat dat niet gebeurt?

 

[snb]

Sub M_snb()
    With ActiveSheet.PageSetup
        .LeftFooter = "&""Times New Roman,Standaard""&6 &Z&F"
        .CenterFooter = "&""Times New Roman,Standaard""&6 Pagina &P van &N"
        .RightFooter = "&""Times New Roman,Standaard""&6 & Now
    End With
End Sub

 

[hvebsr]

Helaas,
wanneer ik de tekst overneem, zoals die bij de right footer staat, wordt daar automatisch " achter gezet en komt er als tekst 'Now' in de voettekst te staan.

 

[snb]

Dan moet je die regel even aanpassen.