Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckbereich anpassen

Forumthread: 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
Anzeige

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)

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