ich als totaler VBA-Laie habe mir folgendes Makro zusammengezaubert. Das klappt ganz prima.
Jetzt habe ich nur noch das Problem, das dieses Makro auf alle vorhandenen Tabellenblätter (egal, ob 1 oder 256; egal wie bezeichnet) automatisch angewendet werden soll. Momentan wird nur das aktive Tabellenblatt nach dem Makro formatiert.
Ich bin für jede Hilfe dankbar!
Gruß, Patrick
Sub Einrichtung_Seitenlayout()
With ActiveSheet.PageSetup
Dateipfad = ActiveWorkbook.Path & "\&F"
.RightHeader = "&""Arial,Fett""&8&D"
.LeftFooter = "&""Arial,Fett""&8Abteilung, Name (Tel.)"
.CenterFooter = "&""Arial,Fett""&8Page &P of &N"
.RightFooter = "&""Arial,Fett""&8" & Dateipfad
End With
End Sub