VBA Seitenlayout anpassen

Jonathan · 1970-01-01T00:00:00+00:00

Hey, per VBA Code blende ich diverse Spalten ein oder aus. Nun möchte ich, dass nach jedem Aufruf der Funktion das Seitenlayout angepasst wird: Hochformat, 1 Seite breit, 4 Seiten hoch; Seitenwechsel jeweils vor den Zeilen Nr. 56, 89, 130. Ist das so möglich? Leider passt sich das Seitenlayout manchmal an, so dass eine händische Anpassung nötig wäre. Würde mich über Hilfe sehr freuen. Mit dem Makrorecorder klappt das gar nicht. VG

Hey,
irgendwie ist das alles nicht zufriedenstellend. Mit den benutzerdef. Ansichten klappte s nicht richtig, da die Datei auch in älteren Excelversionen geöffnet wird. Zudem müsste ich dann 10 Ansichten erstellen.
Wünschenswert wäre ein VBA Code, welcher den Druckbereich definiert
.PrintArea = "$A$1:$N$150"
und über den Zeilen 62 und 122 ein Seitenumbruch einfügt. Ich habe es getestet mit:

Sub SeitEinr()
With Sheets("Bauhauptgewerbe")
With .PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 3
.PrintArea = "$A$1:$N$150"
End With
.ResetAllPageBreaks
.HPageBreaks(2).Location = Range("A62")
.HPageBreaks(2).Location = Range("A122")
End With
End Sub

das klappt aber gar nicht.
Es kann doch eigentlich nicht so schwer sein, dies mit VBA zu lösen? _Ich habe so viel rum probiert - alles ohne Erfolg.
Könntet Ihr mir bitte weitere Hilfestellung geben?
VG

Hallo Jonathan,
nach dem entfernen aller Seitenwechsel müssen neue Seitenwechsel mit der Add-Methode eingefügt werden.
Es gibt aber ein Grundproblem bei deiner Wunschliste:
mauell(fest) gesetzte Seitenwechsel werden ignoriert, wenn die Option Anpassen an X Seiten Breit, Y Seiten Hoch verwendet wird.
Manuelle Seitenwechsel werden nur berücksichtigt, wenn die Option Vergrößern/verkleiner aktiv ist und ein %-Wert eingetragen ist.
Gruß
Franz

Sub SeitEinr()
With Sheets("Bauhauptgewerbe")
With .PageSetup
.PrintArea = "$A$1:$N$150"
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 3
End With
End With
End Sub
'oder
Sub SeitEinr()
With Sheets("Bauhauptgewerbe")
.ResetAllPageBreaks 'Alle vorhandenen festen Seitenwechsel löschen
With .PageSetup
.PrintArea = "$A$1:$N$150"
.Zoom = 69
End With
'feste Seitenwechsel einfügen
.HPageBreaks.Add Before:=.Range("A62")
.HPageBreaks.Add Before:=.Range("A122")
End With
End Sub

Forumthread: VBA Seitenlayout anpassen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial