Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.10.2025 06:53:43
Zeilen löschen oder ausblenden wenn Zeile darüber höher wird
22.10.2025 19:40:18
Prüfen ob Datei offen
22.10.2025 19:07:50
Bedingtes kopieren in andere A.-Blätter u. VBA Anpassungen
22.10.2025 16:04:18
Auswahl der Datenüberprüfung auf Folgezellen übertragen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Orientierung Druckbereich automatisch anpassen

Forumthread: Orientierung Druckbereich automatisch anpassen

Orientierung Druckbereich automatisch anpassen
25.04.2014 09:39:54
Gira
Liebes Forum,
dank euch konnte mein gestriges Problem perfekt gelöst werden - vielen Dank noch mal hierfür.
Nun habe ich noch eine weitere Frage:
Mein Tabellenblatt ist dank des gestrigen Makros so aufgebaut, dass abhängig von div. Parametern mal mehr, mal weniger Spalten eingeblendet werden.
Meine Druckeinstellungen sind derzeit so gewählt:
Orientierung: Hochformat
Skalierung: 1 Seite hoch und 1 Seite breit
Nun kann es aber sein, dass je nach Wahl der Parameter die Tabelle sehr breit wird, da viele Spalten angezeigt werden. Dann macht es natürlich mehr Sinn, dass die Orientierung des Blattes Querformat ist.
Wie kann ich (per Makro) sagen:
Wenn der sichtbare Bereich des Blattes breiter als höher ist, bitte automatisch auf Querformat stellen.
Wenn der sichtbare Bereich des Blattes höher als breiter ist, bitte automatisch auf Hochformat stellen.
?
Bereits im Voraus vielen Dank für eure Unterstützung und viele Grüße
girasol

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Orientierung Druckbereich automatisch anpassen
25.04.2014 10:51:40
EtoPHG
Hallo Girasol,
Zuerst mal musst du selbst festlegen, ab welcher Anzahl (sichtbarer) Spalten von Portrait(hoch) auf Landscape(quer) umgeschaltet werden soll. Darauf könnte man dann aufbauen und in einem BeforePrint-Ereignis entsprechend reagieren. Folgende Informationen wären aber zusätzlich essentiell:
Welche Tabellenblätter sind betroffen (Namen der Register)?
Aufgrund welcher Zeile (z.B. Titelzeile) des Blatts könnte festgestellt werden, wieviel Spalten angezeigt sind?
Soll die Umschaltung ohne Nachfrage vor dem Drucken erfolgen?
Gruess Hansueli

Anzeige
AW: Orientierung Druckbereich automatisch anpassen
25.04.2014 11:04:57
Rudi
Hallo,
evtl. so? 
Private Sub Worksheet_Calculate()
Static dSaved As Double
Dim lCol As Long
If dSaved  Range("AO38").Value Then
dSaved = Range("AO38").Value
For lCol = 9 To 39
Cells(38, lCol).EntireColumn.Hidden = (Cells(38, lCol) = 0)
Next lCol
With ActiveSheet.PageSetup
If Range("A1:AO38").Height > Range("A1:AO38").Width Then
.Orientation = xlPortrait
Else
.Orientation = xlLandscape
End If
End With
End If
End Sub

Gruß
Rudi

Anzeige
AW: Orientierung Druckbereich automatisch anpassen
25.04.2014 12:48:41
Gira
Hallo Rudi,
ja genau, perfekt - genau so habe ich mir das vorgestellt.
Vielen, vielen Dank und ein schönes Wochenende,
girasol
;

Forumthreads zu verwandten Themen

Spalte nicht ausdrucken
Edwin

Hallo,
ich möchte in einem Sheet, dass eine bestimmte Spalte nicht ausgedruckt wird.
Ich weiß, dass ich Spalten ausblenden kann und dass diese dann nicht ausgedruckt werden.
Kann ich aber auch der Spalte die Eigenschaft zuweisen, dass sie nicht ausgedruckt wird?
Gruß
Edwin
05.11.2008 10:42:43
Thread-ID: 1021789
4 Beiträge
Spalte keine Ansicht und nicht drucken
Frederic

Hallo Zusammen
Hätte eine blöde Frage:
Wie kann ich mit VBA erreichen, dass die Spalte C1:C60 nicht in der Seitenansicht und auch nicht gedruckt wird. Grund: Habe dort Listenvermerke drin.
Für Eure generöse Hilfe danke ich schon im Voraus
Salvus
Frederic
20.12.2008 19:23:00
Thread-ID: 1034447
23 Beiträge
Druckbereich automatisch anpassen
Wolfango

Hallo zusammen,
in einer Tabelle soll immer nur bis zu einer bestimmten Zeile gedruckt werden (variabel!).
Mit Hilfe einer Formel kann ich ermitteln welche Zeile das ist (das Ergebnis der Formel steht in Zelle 'P5' und hier steht dann bspw. '25', wenn ich möchte dass bis einschl. Zeile...
17.01.2012 09:48:09
Thread-ID: 1246495
7 Beiträge
2 print areas für ein sheet festlegen
Friederike

Hallo,ich habe ein großes Excel Sheet mit mehreren Tabellen.Ich möchte jedoch nur 2 davon ausdrucken. Diese befinden sich an unterschiedlichen Stellen im File. Ich möchte nicht jedes mal eine der beiden Tabellen markieren und dann den selektierten Bereich ausdrucken. Ich hab es schon mit der AN...
29.07.2002 12:41:06
Thread-ID: 141942
4 Beiträge
Anzeige
Druckbereich automatisch anpassen
matthias

Hallo,
gibt es eine Möglichkeit den Druckbereich automatisch immer erweitern zu lassen entsprechend der Anzahl der Zeilen die einen Wert aufweisen?
Wie kann man so etwas realisieren?
09.04.2015 12:40:10
Thread-ID: 1419887
9 Beiträge
Druckbereich nach Jahr automatisch anpassen
marcel

Hallo,
ich habe folgendes beispielhaftes Tabellenblatt.
Ich würde gerne einen Button haben, durch den nur ein bestimmter Bereich der Tabelle gedruckt wird.
Es soll die Spalte mit der Beschriftung, die Spalte mit den Werten für das aktuelle Jahr, die zwei vorherigen Jahre und die dre...
15.04.2015 12:21:29
Thread-ID: 1420906
3 Beiträge
Dynamischer Druckbereich mit VBA
Mats

Hi Leute,
nach langem suchen im Netz habe ich zwar viele Lösungsansätze für das oben beschriebene Problem gefunden aber keiner funktioniert für mich (bzw. schaffe ich es nicht ihn anzupassen).
Ich will einen dynamischen Druckbereich mit VBA. Als Formel hab ich den Druckbereich bereits i...
03.04.2016 00:09:37
Thread-ID: 1485600
4 Beiträge
Druckbereich dynamisch festlegen
Danny

Moin die Damen und Herren,
Ich habe in einer Tabelle einige Bereiche die immer mitgedruckt werden sollen und einige die nur mitgedruckt werden sollen, wenn sich in der Spalte A ein X davor befindet.
Mein Problem ist, dass die besagten Bereiche mal eine Zeile, mal 2 oder auch mal 4 habe...
13.10.2016 08:52:55
Thread-ID: 1519407
2 Beiträge
Druckbereich dynamisch festlegen
Werner

Hallo,
ich habe ein kleines Problem und komme nicht weiter.
In einer 3 spaltigen Liste übernehme ich über eine Formel Daten, wenn vorhanden, von einem anderen Tabellenblatt. Dadurch ist die Liste zwar bis zum Ende mit Formeln und Formaten gefüllt aber nicht mit Daten.
Ich möchte nun...
17.04.2019 09:43:26
Thread-ID: 1687648
5 Beiträge
pagesetup.Printarea über 2 Tabellen festlegen
Alex
Hallo Excelkenner..
Das Problem:
Ich muß ein PDF-File erstellen, das eine Grafik aus Tabelle 2 ganzseitig (Zellen A1:I62) auf Seite 1 und die Zellbereiche der Tabelle 1 $A$1:$I$69,$J$70:$S$328$ auf den nachfolgenden Seiten enthält. Kann ich den Druckbereich über VBA auf Bereiche aus 2 Tabellen...
19.09.2003 23:14:25
Thread-ID: 312595
5 Beiträge
Tabellenende festlegen
Michael
Hallo allerseits,
ich habe folgendes Problem.
Ich erzeuge per VBA aus einer Tabelle einen extrakt in eine andere Tabelle, die
dann in eine Datenbank (FileMaker) eingelesen wird. Doch leider werden in der Datenbank zu viele Zeile importiert (99 Zeilen) obwohl in der Tabelle nur je nach Mo...
04.11.2003 10:40:28
Thread-ID: 332684
3 Beiträge
Anzeige
VBA - Druckbereich festlegen
Rüdiger
Hallo,

Ich erzeuge über VBA eine Tabelle, die ich auf zwei Seiten audrucken will.
Auf der ersten Seite soll der Druckbereich $A$1:$L$34 sein, auf der zweiten Seite soll $M$1:$X$34 gedruck werden.
Über die Anweisung

ActiveWorkbook.Sheets("Tabelle1").PageSetup.PrintArea = "$A$1:$...
05.01.2004 10:46:14
Thread-ID: 358830
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige