Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
648to652
648to652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckbereich anpassen

Druckbereich anpassen
07.08.2005 22:58:48
MartinP2
Hallo und einen wunderschönen!
Ich möchte ganz gerne den Druckbereich einer Datei variabel festlegen. Druckbereich soll sein bis Spalte M
und bis zu der letzten Zeile in der in Spalte L ein Wert steht. (oder zwei Zeilen mehr)
Weiß jemand Rat?
Vielen Dank
Martin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich anpassen
07.08.2005 23:07:13
Leo
Hi,
Option Explicit

Sub Druckbereich()
Dim lz As Long, rc As Long, db As String
rc = Rows.Count
lz = IIf(Cells(rc, 12) <> "", rc, Cells(rc, 12).End(-4162).Row) + 2
db = Range(Cells(1, 1), Cells(lz, 13)).Address
ActiveSheet.PageSetup.PrintArea = db
End Sub

mfg Leo
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige