Anzeige
Archiv - Navigation
320to324
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige