VBA Druckzeitstempel erweitern auf neue Sheets
01.03.2016 17:40:51
Fred
ich habe folgendes Problem:
Wenn ich einen Druck eines Tabellenblatts (insgesamt 4 Sheets) auslöse, wird in definierten Zellen der aktuelle Zeitstempel des Druckauftrags eingetragen. Dazu benutze ich folgenden Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.ScreenUpdating = False
Range("U1").Value = "1"
Range("U8").Value = Date
Range("U67").Value = Date
Range("U5").Value = Time
Range("U64").Value = Time
Application.ScreenUpdating = True
End Sub
Jetzt muss ich allerdings weitere 9 Tabellenblätter (mit neuem Format aber diese dann alle gleich) in die Arbeitsmappe einfügen. Hier sollen auch die Zellen U1, U8 & U5 wie aus dem Code oben beschrieben werden, allerdings nicht U67 & U64.
Wichtig ist noch, das die Zellen über die ganze Arbeitsmappe nur in dem Tabellenblatt ausgefüllt/aktualisiert werden, welches ich gerade drucke.
Weis jemand wie der Code angepasst werden muss?
Vielen Dank schon mal und Grüße :-)
Fred
Anzeige