Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Druckbereich per vba auslesen oder markieren

394 views
Skip to first unread message

Stephan Nawrot

unread,
Oct 14, 2003, 3:10:47 AM10/14/03
to
Hallo NG,

ich möchte gerne per vba den Druckbereich markieren.

Ich habe eine Tabelle, wo der User seinen Druckbereich markiert. Nun
möchte ich per vba den Druckbereich zur "scrollArea" machen. Zum
Festlegen der ScrollArea muß ich den Breich markieren oder den Bereich
festlegen. Ich kann keine Zellbezüge verwenden, da es immer
unterschiedliche sind.

Wie kann ich den Druckbereich auslesen oder Ihn markieren?


Danke

Stephan

Barbara Karli

unread,
Oct 14, 2003, 3:48:17 AM10/14/03
to
Hallo Stephan

Das koennte so funktionieren:

'Definiert die Markierung als Druckbereich
ActiveSheet.PageSetup.PrintArea = _
ActiveCell.CurrentRegion.Address

'Übergibt den Druckbereich der Variablen Rngdruckbereich
Rngdruckbereich = ActiveSheet.PageSetup.PrintArea

'Definiert die ScrollArea entsprechend dem Druckbereich
ActiveSheet.ScrollArea = Rngdruckbereich

--
Liebe Gruesse
Barbara | MS MVP Word

stefan onken

unread,
Oct 14, 2003, 3:42:47 AM10/14/03
to
hallo Stephan,
wenn ich es recht verstanden habe, meinst du
ActiveSheet.PageSetup.PrintArea = Selection.Address

Gruß
stefan

>-----Originalnachricht-----

>.
>

Martin Fischer

unread,
Oct 14, 2003, 3:52:08 AM10/14/03
to
Hier zwei Prozeduren eine um den Bereich festzulegen und eine um diese zu
selektieren.

Sub DruckbereichSelektieren()
Dim rng As Range
Set rng = ActiveSheet.Range(ActiveSheet.PageSetup.PrintArea)
rng.Select
End Sub
Sub DruckbereichFestlegen()
ActiveSheet.PageSetup.PrintArea = Selection.Address
End Sub

Gruss
Martin Fischer

"Stephan Nawrot" <stepha...@gmx.de> wrote in message
news:ej7nov0klk53m9l9s...@4ax.com...

Stephan Nawrot

unread,
Oct 14, 2003, 4:18:47 AM10/14/03
to
Barbara Karli <barbar...@bluewin.ch> schrieb:

>
>Das koennte so funktionieren:
>
>'Definiert die Markierung als Druckbereich
>ActiveSheet.PageSetup.PrintArea = _
>ActiveCell.CurrentRegion.Address
>
>'Übergibt den Druckbereich der Variablen Rngdruckbereich
>Rngdruckbereich = ActiveSheet.PageSetup.PrintArea
>
>'Definiert die ScrollArea entsprechend dem Druckbereich
>ActiveSheet.ScrollArea = Rngdruckbereich


Supi!

Das hat so funktioniert.

Danke!

0 new messages