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

Druckbereich festlegen!

Druckbereich festlegen!
20.07.2004 13:06:32
brit
Hallo!
Ich möchte im nachfolgendem Makro den Druckbereich in Abhängigkeit vom Zellinhalt(bis zur ersten leeren Zelle) A bis E festlegen.
Ich habe mir hier in der Recherhe die Befehle zusammengesucht.
Er bringt mir dann aber folgende Fehlermeldung:
printarea-Eigenschaft des pagesetup-Objektes kann nicht festgelegt werden!
Wo liegt denn mein Fehler?
Vielen Dank schonmal!
Brit
If Sheets("Arbeitsdatei").ComboBox1.ListIndex = 2 Then
Dim iRow As Integer
iRow = 1
Do Until Cells(iRow + 1, 1).Value = ""
iRow = iRow + 1
Loop

Worksheets("Arbeitsdatei").PageSetup.PrintArea = Range(Cells(1, 1), cells(iRow, 5)) .Address

Application.Dialogs(xlDialogPrint).Show
Sheets("Arbeitsdatei").ComboBox1.ListIndex = 0
Worksheets("Arbeitsdatei").PageSetup.PrintArea = ""
Application.ScreenUpdating = True
End If

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckbereich festlegen!
20.07.2004 13:11:36
Harald
Hallo Brit,
bei mir funktioniert der Code. Vielleicht ein wenig eleganter:

Sub test()
Dim iRow As Integer
iRow = Worksheets("Tabelle1").Range("a65536").End(xlUp).Row
Worksheets("Tabelle1").PageSetup.PrintArea = Range(Cells(1, 1), Cells(iRow, 5)).Address
Application.Dialogs(xlDialogPrint).Show
Sheets("Arbeitsdatei").ComboBox1.ListIndex = 0
Worksheets("Arbeitsdatei").PageSetup.PrintArea = ""
Application.ScreenUpdating = True
End Sub

Grüße Harald
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige