Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

dyn. Printarea

Forumthread: dyn. Printarea

dyn. Printarea
03.05.2005 13:16:33
Chris
Hi Leute,
ich will in meiner Tabelle, ein dynamisches Printarea anlegen. Hierbei ist die erste Zelle, die Zelle mit dem aktuellen Datum und die letzte Zalle liegt in Spalte "AV" und 60 Zeilen tiefer als die erste Zelle.
Habt ihr ne Idee wie man das in VBA lösen kann?
Gruß
Christoph
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
dyn. Druckbereich ab aktuellem Datum
03.05.2005 21:51:51
Beate
Hallo Christoph,
lege fogendes Makro ins Codefenster "dieseArbeitsmappe". So springt es bei jedem Druckauftrag oder auch bei Seitenansicht an und legt den Druckbereich dynamisch fest:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim myRange As Range
For Each myRange In ActiveSheet.UsedRange
If myRange.Value = Date Then myRange.Select
Next
ActiveSheet.PageSetup.PrintArea = Range(ActiveCell, Cells(ActiveCell.Row + 60, ActiveCell.Column + 48 - ActiveCell.Column)).Address
End Sub

Gruß,
Beate
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige