Code Snippet "VBA Excel"

Herdt Excel 2003 VBA 2.8 Übung 2

Kopfzeile mit Dateinamen und Fusszeile mit Seitenzahl

'******************************************************************
' Herdt Excel 2003 VBA Kapitel 2.8 Übung 2
Sub KopfDateinameFussSeitenzahl()
'
' KopfDateinameFussSeitenzahl Makro
' Makro am 22.02.2007 von Silvia Rothen aufgezeichnet
    With ActiveSheet.PageSetup
        .LeftHeader = "&F"
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = "&P / &N"
    End With
End Sub