Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Druckbereich festlegen mit VBA

Forumthread: Druckbereich festlegen mit VBA

Druckbereich festlegen mit VBA
09.10.2003 10:28:10
Fab
Hallo

Siehe Frage in Sub:


Sub Printarea()
Dim Adresse
Cells(1, 256).End(xlToLeft).Select
'Wie kann man dieser Zelle einen Namen geben, damit man
'ihn danach für die Printarea einsetzen kann?
'Mein Vorschlag funtioniert nicht.
ActiveCell.Address = Adresse
Cells(65536, 1).End(xlUp).Select
ActiveSheet.PageSetup.Printarea = Adresse & ActiveCell.Address
End Sub


Gruss Fab
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich festlegen mit VBA
09.10.2003 11:42:56
Fab
Ich habe die Lösung! Merci fürs Nachdenken, trotzdem.

Fab
AW: Druckbereich festlegen mit VBA
09.10.2003 11:48:09
ANdreas
Hallo Fab,

Hier mein Vorschlag:

Sub FestlegenDruckBereich()
Dim rRow As Range, rCol As Range
Set rRow = Cells(Rows.Count, 1).End(xlUp)
Set rCol = Cells(1, 256).End(xlToLeft)
ActiveSheet.PageSetup.PrintArea = Range(rRow, rCol).Address
'vielleicht auch kürzer so - ist aber nicht identisch:
'ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
End Sub


Hinweis: Du solltest unbedingt darauf achten, dass Du Deine Makros (und auch Variablen) NICHT mit Namen von VBA-Objekten/Eigenschaften benennst. In dem Fall hieß Dein Makro Printarea, das ist allerdings eine Eigenschaft.

Gruß
Andreas
Anzeige
AW: Druckbereich festlegen mit VBA
09.10.2003 12:44:11
Fab
Vielen Dank für dein Vorschlag!

Gruss

Fab

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige