Anzeige
Archiv - Navigation
1120to1124
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
Inhaltsverzeichnis

Tabellenblatt mehrfach ausdrucken mit Datum

Tabellenblatt mehrfach ausdrucken mit Datum
Mat
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellenblatt mehrfach ausdrucken mit Datum
05.12.2009 20:17:09
Ramses
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
AW: Tabellenblatt mehrfach ausdrucken mit Datum
05.12.2009 20:17:14
Daniel
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
Anzeige
AW: Tabellenblatt mehrfach ausdrucken mit Datum
05.12.2009 20:19:03
Josef
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

Anzeige
Jetzt war ich zu spät ;-))) o.T.
05.12.2009 20:20:05
Josef
Gruß Sepp

AW: Jetzt war ich zu spät ;-))) o.T.
05.12.2009 20:33:58
Mat
Vielen Dank für die schnellen Antworten an alle. Werd ich am Montag gleich ausprobieren.
Bis bald, Mat

126 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige