Herbers Excel-Forum - das Archiv

Seitenbreite automatisch anpassen

Bild

Betrifft: Seitenbreite automatisch anpassen
von: Henri

Geschrieben am: 31.03.2005 07:51:50
Hi,
ich habe eine Tabelle mit variierender Seitenanzahl.
Ich muss eine Spalte in der Breite automatisch anpassen und möchte dann per VBA die Tabelle auf genau eine Seitenbreite und x Seiten hoch anpassen.
So funktioniert das jedoch nicht:
Sub Anpassen()
ActiveSheet.Columns("B:B").AutoFit
ActiveSheet.PageSetup.FitToPagesWide = 1
End Sub

Hate einer eine Idee ???
thx
Henri
Bild

Betrifft: AW: Seitenbreite automatisch anpassen
von: u_
Geschrieben am: 31.03.2005 10:48:47
Hallo,
da fehlt noch ein bisschen.
Sub anpassen()
Columns("B:B").AutoFit
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
End Sub

Gruß
Bild

Betrifft: AW: Seitenbreite automatisch anpassen
von: Henri
Geschrieben am: 31.03.2005 12:06:08
Vielen Dank,
hat funktioniert.
grüße
Henri
 Bild
Excel-Beispiele zum Thema "Seitenbreite automatisch anpassen"
Automatische Datumformatierung unterdrücken Automatisch Sicherungsdatei erstellen
Automatisches Komplettieren einer Zelleingabe Zelleingaben automatisch auf volle 1,2-Teile runden
Tabelle nach Datumseintrag automatisch sortieren Eingaben in B:D automatisch mit 6 multiplizieren
Zelleingabe automatisch in Kopfzeile übernehmen Nach Zelleingabe automatische Sortierung
Automatische Sortierung bei Zelleintrag Min- und Max-Werte automatisch markieren