Gesamte Mappe Seitenränder ändern

  • geschlossen
  • Problem

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Gesamte Mappe Seitenränder ändern

    Hallo,

    ich hab folgendes Problem:
    ich muss bei 12 Arbeitsblättern in einer Mappe die Seitenränder ändern, im Moment muss ich jedes einzelne Blatt in der Seitenansicht ändern, hab's auch schon als Gruppe versucht aber da funktioniert es nicht. :confused:
    Gibt es irgend ein Untermenü in dem man die Seitenränder für alle Blätter von Anfang an ändern kann.

    Danke für Eure Hilfe.

    Viele Grüße
    Redamaris
  • Hi!

    Hier ist ein Makro, es ist verbesserungsfähig, aber es funktioniert.

    Quellcode

    1. Sub SeitenränderSetzen()
    2. For i = 1 To ActiveWorkbook.Worksheets.Count
    3. ActiveWorkbook.Worksheets(i).Select
    4. With ActiveSheet.PageSetup
    5. .LeftMargin = Application.CentimetersToPoints(2.5)
    6. .RightMargin = Application.CentimetersToPoints(2)
    7. .TopMargin = Application.CentimetersToPoints(2.5)
    8. .BottomMargin = Application.CentimetersToPoints(2)
    9. End With
    10. Next
    11. End Sub
    Alles anzeigen


    Gruß

    FeliX_22
  • [..] hab's auch schon als Gruppe versucht aber da funktioniert es nicht.
    Ich weiß ja nicht, was du unter "Gruppe" verstehst, aber in XLS 2003 geht es einwandfrei, wenn ich alle gewünschten Tabellenblätter markiere (die Reiter/Register unten) und dann bei Datei>Seite einrichten die gewünschten Werte eingebe.
    Internette Grüße
    von der Nautilus
    cpt. Nemo