Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fußzeile automatisiert erstellen

Forumthread: Fußzeile automatisiert erstellen

Fußzeile automatisiert erstellen
Bernd
Hallo,
ich würde gerne über einen Auswahldialog Excel-Dateien auswählen können, die anschließend mit einer einheitlichen Fußzeile (Erstellername, Datum ;Dateipfad;Dateiname) versehen werden. Wer kann mir helfen?
Gruß
Bernd
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
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
Anzeige
Danke, Perfekt!
20.09.2010 11:59:35
Bernd
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige