Thema: Tabellenblatt mehrfach ausdrucken mit Datum | Herbers Excel-Forum

Hallo Leute,
ich habe eine Arbeitsmappe mit mehreren Tabellenblättern. In Tabelle 1 steht in Zelle A1 ein Datum. Ich muss das Tabellenblatt häufig jeweils siebenmal ausgedrucken. Das Problem ist dass sich das Datum pro Ausdruck um ein Tag erhöhen müsste.
Wer kann mir mit einem Makro weiterhelfen.
Viele Grüße
Mat

Hallo
probier mal

Sub print7()
Dim i As Long
Dim oldDate As Date
oldDate = Range("A1").Value
For i = 1 To 7
Range("A1") = Range("A1") + 1
ActiveSheet.PrintOut
Next i
'Allenfalls deaktivieren oder löschen wenn das Datum nicht zurückgesetzt werden soll
Range("A1").Value = oldDate
End Sub

Gruss Rainer

Hi

Sub Test()
dim i as long
with Sheets("Tabelle1")
for i = 0 to 6
.Printout
.Cells(1,1).Value = .Cells(1,1).Value + 1
next
.Cells(1,1).Value = .Cells(1,1).Value - 6 'altes Datum wieder herstellen
End With
End Sub

Gruß, Daniel

Hallo Mat,
vom Prinzip her, geht das so.

Vielen Dank für die schnellen Antworten an alle. Werd ich am Montag gleich ausprobieren.
Bis bald, Mat