Code Snippet "VBA Excel"

Für alle Blätter einer Arbeitsmappe Fusszeile mit Text, Datum und Dateinamen einfügen

Sub Fusszeilen()
'
' Fusszeilen Makro
' Makro am 14.11.2001 von Silvia Rothen aufgezeichnet
'

'
  For Each blatt In ActiveWorkbook.Worksheets
    With blatt.PageSetup
      'Fixer Text links
      .LeftFooter = "Silvia Rothen"
      'Datum in der Mitte
      .CenterFooter = "&D"
      'Dateiname rechts
      .RightFooter = "&F"
    End With
  Next
End Sub