Anwendung Makro auf alle Tabellenblätter



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Anwendung Makro auf alle Tabellenblätter
von: Patrick
Geschrieben am: 15.05.2002 - 12:44:18

Hallo,
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


nach oben   nach unten

Re: Anwendung Makro auf alle Tabellenblätter
von: Joachim K
Geschrieben am: 15.05.2002 - 12:55:32

Hallo Patrick,
versuchs mal so :
Sub Einrichtung_Seitenlayout()
Dim I As Integer
For I = 1 To Sheets.Count
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
Next I
End Sub

Gruß Joachim

nach oben   nach unten

Re: Anwendung Makro auf alle Tabellenblätter
von: Patrick
Geschrieben am: 15.05.2002 - 13:03:22

Hmmm... Das funktioniert leider nicht. Bei mir wird da auch nur das aktuelle Blatt formatiert. Wenn ich deine Erweiterungen lese, dann verstehe ich das so, daß das aktuelle Tabellenblatt sooft formatiert wird, wie es Tabellenblätter gibt. Ich möchte ja aber gerade jedes Tabellenblatt formatieren.

nach oben   nach unten

Re: Anwendung Makro auf alle Tabellenblätter
von: Joachim L.
Geschrieben am: 15.05.2002 - 13:23:19

Hi Patrick,

folgende Zeile ändern.
With ActiveSheet.PageSetup

in
Sheets(I).PageSetup

Gruß Joachim


nach oben   nach unten

Re: Anwendung Makro auf alle Tabellenblätter
von: Matthias V.
Geschrieben am: 15.05.2002 - 13:24:07

Hallo Patrick,

ich habe den Eintrag von Joachim kopiert und leicht verändert.
Probier das mal aus, vielleicht klappt das hier:

Sub Einrichtung_Seitenlayout()
Dim I As Integer
For I = 1 To Sheets.Count
Worksheets(I).Activate
With ActiveWorkbook.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
Next I
End Sub

Gruß

Matthias V.

nach oben   nach unten

Re: Anwendung Makro auf alle Tabellenblätter
von: Patrick
Geschrieben am: 15.05.2002 - 13:33:11

Danke!

Super, jetzt klappt es!

Gruß,

Patrick


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Anwendung Makro auf alle Tabellenblätter"