Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
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
1684to1688
1684to1688
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckbereich durch Inhalt steuern

Forumthread: Druckbereich durch Inhalt steuern

Druckbereich durch Inhalt steuern
02.04.2019 17:57:30
Mario
Hallo zusammen,
ich bastelle derzeit an einem excel-Formular-Vorlage für Einsatzberichte. Dabei gibt es ein Feld, in das ein Berichtstext geschrieben wird. Am Ende wird der kpl. Bericht als pdf-Datei auf eine DIN A4-Seite gedruckt und gespeichert, der Druckbereich ist entsprechend formatiert.
Wenn nun der Platz für den Textbericht nicht ausreicht, kann er auf Seite 2 fortgesetzt werden. Hierzu muss dann in das Feld AF62 ein "X" gesetzt werden.
Nun brauche ich ein makro, das den Druckbereich steuert: Ist in AF62 kein X, dann soll der Druckbereich die Zellen B2:AM66, ist in AF 62 ein X gesetzt, dann soll der Druckbereich B2:AM66 und B68:AM 129 umfassen.
Trotz aller Suche und Hirnen - ich komme nicht drauf. Kann mir jemand weiterhelfen?
LG Mario
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich durch Inhalt steuern
04.04.2019 18:17:25
Werner
Hallo Mario,
teste mal: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address(0, 0) = "AF62" Then
If UCase(Target) = "X" Then
PageSetup.PrintArea = ""
PageSetup.PrintArea = "$B$2:$AM$66,$B$68:$AM$129"
Else
PageSetup.PrintArea = ""
PageSetup.PrintArea = "$B2:$AM$66"
End If
End If
End Sub
Der Code gehört ins Codemodul des Tabellenblattes, auf dem du in Zelle AF62 das "X" setzt.
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren.
Gruß Werner
Anzeige
AW: Druckbereich durch Inhalt steuern
05.04.2019 10:47:17
Mario
Hallo Werner
Besten Dank, das ist es!
Gruß Mario
Gerne u. Danke für die Rückmeldung. o.w.T.
05.04.2019 11:10:12
Werner
;

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