Fußzeile ändern

02/12/2008 - 13:44 von Dieter Schulz | Report spam
Hallo *,

ich habe das Problem, dass mein Reporting (12 Excel-Dateien mit je 8-12
Laschen) im linken Teil der Fußzeile eine Organisationsbezeichnung
enthàlt. Und jetzt hat sich (wie jedes GJ) diese Bezeichnung geàndert :-(
In VBA bin ich nicht fit.
Kann mir einer der Könner hier ein Makro nennen, das ich 12x (je einmal
pro Datei) aufrufe und das dann in allen Laschen den Text "Org_alt" in
"Org_neu" àndert?

Vielen Dank im Voraus!
Dieter
 

Lesen sie die antworten

#1 Claus Busch
02/12/2008 - 13:58 | Warnen spam
Hallo Dieter,
Am Tue, 02 Dec 2008 13:44:43 +0100 schrieb Dieter Schulz:


ich habe das Problem, dass mein Reporting (12 Excel-Dateien mit je 8-12
Laschen) im linken Teil der Fußzeile eine Organisationsbezeichnung
enthàlt. Und jetzt hat sich (wie jedes GJ) diese Bezeichnung geàndert :-(
In VBA bin ich nicht fit.
Kann mir einer der Könner hier ein Makro nennen, das ich 12x (je einmal
pro Datei) aufrufe und das dann in allen Laschen den Text "Org_alt" in
"Org_neu" àndert?



probiers mal so:
Sub FusszeileAendern()

Dim i As Integer

For i = 1 To Sheets.Count
With Sheets(i).PageSetup
.LeftFooter = "Org_neu"
End With
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP3 / Vista Ultimate
Office 2003 SP3 / 2007 Ultimate SP1

Ähnliche fragen