Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
604to608
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
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige