Excel vba

Computer: Software & Programmierung Visual Basic
#1

Guten Tag,
wieder ist Wochenend und ich habe Zeit an meinen Makros zu basteln. Als Anfänger lese ich mich ein in Excel in 14 Tagen von Bernd Held. Was ich dort nicht finde suche ich im Internet zusammen. Interessant.
Nun zu meinem kleinen Problem:
In meinem kleinen Makro möchte ich, das die Seitenumbruchvorschau (die blaue rechte seitliche Linie Spaltenbegrenzung) die aktuell nach der Spalte W ist automatisch nach Ende Spalte O geschoben wird.

Sub TabelleEinrichten()
ActiveSheet.PageSetup.PrintArea = „“
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.LeftMargin = Application.InchesToPoints(0.8)
.RightMargin = Application.InchesToPoints(0.8)
.BottomMargin = Application.InchesToPoints(1.1)
End With
End sub

Für eine Idee bin ich dankbar.

Viele Grüße H.

#2

Hallo H,

basteln. Als Anfänger lese ich mich ein in Excel in 14 Tagen
von Bernd Held.

*hmmh* Ich schreib grad ein Buch „Hubschrauberpilot in einem Tag“, würdest du das auch kaufen? *interessiert schau*

Mal so, schau mal nach Autor Michel Schwimmer, Melanie Bradon (Brandon?), Thomas Ramel :smile:))

Was ich dort nicht finde suche ich im Internet
zusammen.

Bei dem Buch würd ich alles im Internet suchen.

In meinem kleinen Makro möchte ich, das die
Seitenumbruchvorschau (die blaue rechte seitliche Linie
Spaltenbegrenzung) die aktuell nach der Spalte W ist
automatisch nach Ende Spalte O geschoben wird.

Das legt man über .Printarea fest.
Oder reden wir über was verschiedenes, bei mir wird der Druckbereich nicht durch blaue Linien angezeigt sondern durch so gestrichelte.

Zu deinem Code, benutze hier bitte nicht prehtml sondern nur pre.

Gruß
Reinhard

#3

Moin, H.,

die Seitenvorschau richtet sich nicht nach Spaltennamen, sie rechnet einfach: (Papierbreite - Ränder - Breite der Spalten, die sich ganz anzeigen lassen) muss >= 0 sein. Auf die rechte Seite der rechten Spalte wird in der Vorschau die Grenze gesetzt.

Gruß Ralf

#4

fürs Archiv: betrifft Seitenvorschau

#5

Hallo nochmal,

genau diese rechte Grenze der Seitenvorschau müsste ich nach links rüber ziehen bis zur Spalte O.
Dies müsste eigentlich der Druckbereich sein.
Das Problem liegt dabei das ich den Druckbereich nicht fest definieren kann. z.B. Range A1:open_mouth:700 (Spalte A1:Spalte O Zelle 700) oder so, sondern das Tabellenblatt immer verschieden viele Zeile hat. Eins ist gemeinsam Ausdruck nur bis Spalte O obwohl spalten P und folgende… auch belegt sind.
Für eine Lösung bin ich dankbar.

Viele Gr. H.

#6

genau diese rechte Grenze der Seitenvorschau müsste ich nach
links rüber ziehen bis zur Spalte O.
Dies müsste eigentlich der Druckbereich sein.
Das Problem liegt dabei das ich den Druckbereich nicht fest
definieren kann. z.B. Range A1:open_mouth:700 (Spalte A1:Spalte O Zelle
700) oder so, sondern das Tabellenblatt immer verschieden
viele Zeile hat. Eins ist gemeinsam Ausdruck nur bis Spalte O
obwohl spalten P und folgende… auch belegt sind.

Hallo H,

ich verstehe das nicht ganz. Die Zeilenanzahl hat doch nix mit der Anzahl der Spalten zu tun.

Du gibst als Druckbereich A1:M700 ein. Weil das nicht aufs Blatt passt druckt XL erst A1:K40, dann L1:M40, dann A41:K80 usw.
(reihenfolge kann anders sein)

Oder du kannst in den Druckeroptionen einstellen daß alles auf eine Seite angepasst wird, dann versucht XL das auf die Seite zu quetschen.

Sorry, würde dir gern helfen aber weiß gar nicht was du genau willst :frowning:

Gruß
Reinhard