Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Formatangleich aller Blätter

Formatangleich aller Blätter
05.03.2009 17:07:44
Martin
Hallo,
ich habe eine Excelmappe mit sehr vielen Arbeitsblättern. Ich möchte jetzt auf allen Blättern mit einem Code das gleiche Format einbringen. Also Druckbereich, Seitenrändern, Tabelleneinstellung, Seitenumbrüche, Fußzeilen usw. Kennt jemand ein Makro dazu?
Über hilfe würde ich mich sehr freuen!
Martin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatangleich aller Blätter
05.03.2009 17:34:53
Ramses
Hallo

Sub setPages()
    Dim i As Long
    For i = 1 To Worksheets.Count
        With Worksheets(i)
            .PrintArea = "A1:B10"
            With .PageSetup
                'Deine Einstellungen kannst du mit einem makro aufzeichnen
                'und dann hierher kopieren
                'ACHTUNG
                'Es muss ein Punkt wie im Beispiel davor stehen
                .LeftFooter = "Seite " & n
                .RightFooter = InterSum
            End With
        End With
    Next i
End Sub

gruss Rainer
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige