Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellenblatt mehrfach ausdrucken mit Datum | Herbers Excel-Forum


Betrifft: Tabellenblatt mehrfach ausdrucken mit Datum von: Mat
Geschrieben am: 05.12.2009 20:10:59

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

  

Betrifft: AW: Tabellenblatt mehrfach ausdrucken mit Datum von: Ramses
Geschrieben am: 05.12.2009 20:17:09

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


  

Betrifft: AW: Tabellenblatt mehrfach ausdrucken mit Datum von: Daniel
Geschrieben am: 05.12.2009 20:17:14

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


  

Betrifft: AW: Tabellenblatt mehrfach ausdrucken mit Datum von: Josef Ehrensberger
Geschrieben am: 05.12.2009 20:19:03

Hallo Mat,

vom Prinzip her, geht das so.

Sub printSheet()
  Dim dDate As Date, lngCount As Long
  
  With Sheets("Tabelle1")
    dDate = IIf(IsDate(.Range("A1")), .Range("A1"), Date)
    For lngCount = 0 To 6
      .Range("A1") = dDate + lngCount
      .PrintPreview 'zum testen, sonst .PrintOut
    Next
    .Range("A1") = dDate
  End With
  
End Sub




Gruß Sepp



  

Betrifft: Jetzt war ich zu spät ;-))) o.T. von: Josef Ehrensberger
Geschrieben am: 05.12.2009 20:20:05

Gruß Sepp



  

Betrifft: AW: Jetzt war ich zu spät ;-))) o.T. von: Mat
Geschrieben am: 05.12.2009 20:33:58

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

Bis bald, Mat


Beiträge aus den Excel-Beispielen zum Thema "Tabellenblatt mehrfach ausdrucken mit Datum"