Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
616to620
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
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UsedRange als Druckbereich festlegen

UsedRange als Druckbereich festlegen
31.05.2005 09:39:59
Dieter
Hallo,
ich möchte in einer Exceldatei den benutzten Bereich (UsedRange) als Druckbereich für alle Arbeitsblätter einer Datei festlegen.
Dies funktiert in der Regel mit folgendem Code (für beide Subs):
------------------------------------------------------------------------

Sub StandardDruckbereicheEinrichten()
Dim i As Integer
Dim strNameWorkbook As String
strNameWorkbook = ActiveWorkbook.Name
For i = 1 To Workbooks(strNameWorkbook).Sheets.Count
Workbooks(strNameWorkbook).Sheets(i).PageSetup.PrintArea = _
Workbooks(strNameWorkbook).Sheets(i).UsedRange
Next
End Sub

------------------------------------------------------------------------

Sub StandardDruckbereicheEinrichten2()
Dim i As Integer
Dim strNameWorkbook As String
strNameWorkbook = ActiveWorkbook.Name
For i = 1 To Workbooks(strNameWorkbook).Sheets.Count
Workbooks(strNameWorkbook).Sheets(i).Select
ActiveSheet.UsedRange.Select
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange
Next
End Sub

------------------------------------------------------------------------
Es gibt aber Arbeitsblätter, wo dies nicht funktioniert.
Wer hat hier eine Idee ?
Gruß
Dieter Steffen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UsedRange als Druckbereich.. Doppelt oT
31.05.2005 09:45:28
Hajo_Zi
AW: UsedRange als Druckbereich festlegen
31.05.2005 11:17:36
Lars
Workbooks(strNameWorkbook).Sheets(i).UsedRange.Address
mfg Lars
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige