Forumbeitrag
Excel-Version des Fragestellers:
2019
Erfahrungslevel des Fragestellers:
Kaum Excel/VBA-Kenntnisse
Moin Hans-Georg, :-)
... ums
speichern bzw.
drucken geht könntest du die entsprechenden
Ereignisse nutzen? ;-)
https://learn.microsoft.com/de-de/office/vba/api/excel.workbook.beforeprint
https://learn.microsoft.com/de-de/office/vba/api/Excel.Workbook.BeforeSave
Also
sowas unter "
DieseArbeitsmappe": ;-)
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Rechnung" Then Worksheets("Rechnung").Range("CT49").Value = Format(Time, "hh:mm:ss")
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveSheet.Name = "Rechnung" Then Worksheets("Rechnung").Range("CT49").Value = Format(Time, "hh:mm:ss")
End Sub
Eventuell muss man noch
anpassen - also statt
ActiveSheet.Name mit
ActiveSheet.CodeName arbeiten (
falls Rechnung mal umbenannt wird). ;-)
Alles nur
Ansätze und
Hinweise. ;-)
Servus
Case