AW: Fußzeile automatisiert erstellen
14.09.2010 09:31:50
Heiko
Moin Bernd,
z.B. so, die Formatierung mit dem Makrorekorder bitte selbst ergänzen.
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
Gruß Heiko