Sub Fusszeile()
Dim varDateien As Variant
Dim inti As Integer
Dim shtBlatt As Worksheet
varDateien = Application.GetOpenFilename("Alle Dateien (*.*), *.*", MultiSelect:=True)
If TypeName(varDateien) = "Boolean" Then Exit Sub
Application.ScreenUpdating = False
For inti = 1 To UBound(varDateien)
Workbooks.Open varDateien(inti)
For Each shtBlatt In ActiveWorkbook.Worksheets
With shtBlatt.PageSetup
' Hier mal den Makrorekorder nutzen um zu sehen wie die einzelnen Teile von Kopf _
und Fusszeile formatiert werden !!!
.CenterHeader = "&Z&D"
.LeftFooter = "&8&P&N"
End With
Next shtBlatt
ActiveWorkbook.Save
ActiveWorkbook.Close
Next inti
Application.ScreenUpdating = True
MsgBox "Fertig!", vbInformation
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen