dynamischer druckbereich
17.06.2014 13:59:49
Thomas
zu folgender Datei bräuchte ich eure Hilfe:
https://www.herber.de/bbs/user/90571.xlsm
(ist nur ein Beispiel, normalerweise geht der Kalender über 3-5 Jahre und hat 23 Zeilen.)
Aber für das Prinzip ist das nicht relevant.
Ziel ist es diesen Kalender auszudrucken.
Die Spalten A und B sollten unverändert mitgedruckt werden.
Ab Spalte C bis zum Ende des Kalenders sollte immmer nur die Spalte Montag ausgedruckt werden.
Also Quasi so:
(von links nach rechts)
A B C J Q X usw.
Das wäre die Optimallösung.
Dieses in VBA umzusetzten ist ja nicht das Problem
Sub Druckbereich()
With ActiveSheet.PageSetup
.PrintArea = "XXXXXXXX"
End With
End
Das Problem:
Der Ausdruck sollte dynamisch sein.
Das heißt:
Spalten A und B immer auf dem Ausdruck und der Bereich rechts davon sollte frei wählbar sein.
Wunsch:
Ich klicke eine Schaltfläche und gebe ein Anfangsdatum und ein Enddatum ein (07.01.2013 bis _
21.01.2013).
Excel wählt alle Spalten die zwischen diesem Bereich liegen und gibt mir als Druckversion die _
Spalten A und B + jede Spalte "Montag" (07. / 14. / 21. )zurück.
Dieses dann im Querformat auf eine Seite.
Geht das überhaupt?
Für die Hilfe ganz lieben Dank!