Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
284to288
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
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Page Setup

Page Setup
28.07.2003 15:01:15
Jan
Hallo,

eine kurze, wahrscheinlich einfache Frage:

Weiß jemand, wie man eine variable Region als Print Area festlegen kann? Habs mit untenstehendem Code versucht, was aber nicht funktioniert.

Bin für jede Hilfe dankbar.

Gruß,
Jan




Range("A7").Select

Dim Punkt1 As Range
Set Punkt1 = Activecell

Selection.End(xlDown).Select
Activecell.Offset(0, 10).Select

Dim Punkt2 As Range
Set Punkt2 = Activecell

Range(Punkt1, Punkt2).Select

Dim Zielregion As Range
Set Zielregion = Activecell

ActiveSheet.PageSetup.PrintArea = Zielregion
With ActiveSheet.PageSetup
.PrintTitleRows = "$7:$7"
End With

End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Page Setup
28.07.2003 15:27:22
sergiesam
Hi,

du musst die adresse der zielregion angeben. Eigentlich kannst du das in einem Einzeiler erreichen:

ActiveSheet.PageSetup.PrintArea = Range(Range("A7"), Range("A7").End(xlDown).Offset(0, 7)).Address

Viel Spaß,
Sam


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige