Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1120to1124
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
Inhaltsverzeichnis

Druckbereich per VBA festlegen

Druckbereich per VBA festlegen
reinhardt
Hallo,
ich möchte jeweils per Button den Druckbereich einer Liste oder einer Übersicht im gleichen Tabellenblatt festlegen und dann ausdrucken.
Bei der Liste (A: D )muß die letzte Eintragung in Spalte C gesucht werden, jedoch hat die Liste 4 Spalten.
Bei der Liste (F:M) muß die letzte Eintragung in Spalte F gesucht werden, jedoch hat die Liste 8 Spalten.
Meine kläglichen versuche ergeben nur eine Fehlermeldung.
Wer kann helfen?
Gruß Reinhardt.
Sub Print_Liste()
Sheets("Liste").Select
Range("C" & Cells(Rows.Count, 3).End(xlUp).Row).Activate
x = ActiveCell.Offset(0, 1).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & x
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'Range("A1").Select
End Sub

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

Betreff
Benutzer
Anzeige
AW: Druckbereich per VBA festlegen
11.12.2009 08:41:43
Hajo_Zi
Hallo Reinhard,
ich sehe in Deine Code nicht die Unterscheidung zwischen Liste A bis D und F bis M. Wie erfolgt die?

AW: Druckbereich per VBA festlegen
reinhardt
Hallo Hajo,
Ich habe zwei Buttons, und zwei Sub's.
Mir würde schon ein Tip helfen, damit es bei der o.a Sub PRINT_Liste klappt.
Gruß Reinhardt.
AW: Druckbereich per VBA festlegen
11.12.2009 09:02:11
Hajo_Zi
Hallo Reinhard,
Option Explicit
Sub Print_Liste_A_D()
Dim LoLetzte As Long
' letzter Eintrag in Spalte C
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row, Rows. _
Count)
Sheets("Liste").PageSetup.PrintArea = "$A$1:$D$" & LoLetzte
End Sub
Hinweise zu select usw.
Gruß Hajo
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige