ich habe folgende Frage; Ich muss in einer Datei über VBA in etlichen Tabellenblättern die Fusszeilen anpassen. Die Auswertungsperiode wird aus einem separaten Tabellenblatt ausgelesen und in die Fusszeile geschrieben.
Ich würde jetzt gerne alle Tabellenblätter auf einmal anpassen und nicht jedes einzeln. Hab mir das Ganze wie unten angehängt vorgestellt. Nur leider läuft das mit Selection nicht durch.
Kann mir jemand bei der Anpassung helfen?
Danke im Voraus!
Grüße, Melanie
Sheets("Title page").Select
Dim Datum As String
Datum = Application.Range("D34").Value
Sheets(Array("OVERVIEW", "ANALYSIS I", "ANALYSIS II", "ANALYSIS III")).Select
With Selection.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
.CenterFooter = Datum
End With