Fusszeilen ohne Handarbeit
In Excel habe ich eine Buchhaltung mit 25 Kontoblättern gestrickt. Jedes Kontoblatt trägt in der Fusszeile links die Jahreszahl. Wie kann ich diese auf allen Kontoblättern gleichzeitig von 2006 auf 2007 ändern?
Werner Tobler, Adligenswil
Ein Makro aktualisiert diese Angabe ohne Murren auf allen 25 Blättern:
Sub FusszeileFuerAlleBlaetterSetzen()
For Each Sheet In ActiveWorkbook.Sheets
Sheet.PageSetup.LeftFooter = ActiveWorkbook.BuiltinDocumentProperties(«Title»)
Next
End Sub
Das Makro setzt die Angabe, die Sie zuvor über «Datei > Eigenschaften» im Reiter «Zusammenfassung» unter «Titel» vergeben haben, in die Fusszeile. Bei Problemen mit dem Abtippen erhalten Sie von der Kummerbox eine fixfertige Excel-Mappe mit Makro.
Als Alternative – ohne Marko – kann man die Blätter bei neueren Versionen von Excel auch zusammen auswählen, indem man im Blattregister mit der rechten Maustaste auf ein Blatt klickt, den Befehl «Alle Blätter auswählen» betätigt und dann die Fusszeile wunschemäss über den Befehl «Seite einrichten» festlegt.