Fussnote über mehrere Arbeitsblätter
09.03.2006 15:51:30
Lakritze
ich will über einzelne Arbeitsblätter einer Datei jeweils eine Fussnote haben. Das Makro soll aber nicht für jedes Arbeitsblatt neu angestoßen werden, sondern gleich über alle markierten Arbeitsblätter laufen.
Mein Versuch ist allerdings sagenhaft langsam:
Sub A_Fussnote_mehrereArbeitsblaetter()
Dim wks As Worksheet
For Each wks In ActiveWindow.SelectedSheets
wks.Activate
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "&8Datei &F [&A]" & Chr(10) & "&D &T"
End With
Next wks
End Sub
Weiß jemand eine nettere/schnellere Lösung?
Schonmal recht herzlichen Dank und viele Grüße.