Gesamte Mappe Seitenränder ändern geschlossen

[Redamaris]

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.
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

 

[FeliX_22]

Hi!

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

Sub SeitenränderSetzen()
For i = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(i).Select
With ActiveSheet.PageSetup
.LeftMargin = Application.CentimetersToPoints(2.5)
.RightMargin = Application.CentimetersToPoints(2)
.TopMargin = Application.CentimetersToPoints(2.5)
.BottomMargin = Application.CentimetersToPoints(2)
End With
Next
End Sub

Gruß

FeliX_22

 

[kiss]

moin,
bin mir nicht 100% sicher aber ich glaube das muesste ueber extras > anpassen funktionieren !!

mfg
kiss

 

[cpt. Nemo]

[..] 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.