Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1") = Date
End Sub
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Tabelle1" Then
Worksheets("Tabelle1").Range("A1") = Date
End If
End Sub
Um das Druckdatum in Excel einzufügen, kannst du die folgenden Schritte befolgen:
Öffne die Excel-Datei, in der du das Druckdatum einfügen möchtest.
Drücke Alt + F11, um den VBA-Editor zu öffnen.
Wähle im Projektfenster deine Arbeitsmappe aus und doppelklicke auf „DieseArbeitsmappe“.
Füge den folgenden Code ein, um das aktuelle Datum beim Drucken in die Zelle A1 einzufügen:
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1") = Date
End SubSchließe den VBA-Editor und speichere die Arbeitsmappe.
Drucke das Dokument. Das Datum sollte nun in der Zelle A1 erscheinen.
Fehler: Das Datum erscheint nicht in der Zelle.
Lösung: Stelle sicher, dass der VBA-Code korrekt in „DieseArbeitsmappe“ eingefügt wurde und dass du die Datei als makrofähige Arbeitsmappe (.xlsm) speicherst.
Fehler: Datum wird nicht aktualisiert.
Lösung: Wenn du das Datum nur einmal speichern möchtest, kannst du den Code so anpassen, dass er das Datum nur beim ersten Drucken einfügt. Nutze dafür eine zusätzliche Variable zur Überprüfung.
Falls du das Druckdatum nicht per VBA einfügen möchtest, kannst du auch die Heute()-Funktion verwenden:
=HEUTE() in die Zelle, in der das Datum angezeigt werden soll.Eine weitere Möglichkeit ist die Verwendung der Kopf- und Fußzeile:
Beispiel 1: Um das Druckdatum in die Fußzeile einzufügen, gehe zu „Seitenlayout“ > „Kopf- und Fußzeile“ > „Fußzeile“ und wähle „Datum“.
Beispiel 2: Wenn du das Datum in einer bestimmten Zelle, wie A41, haben möchtest, passe den VBA-Code entsprechend an:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("Zusammenfassung").Range("A41") = Date
End Sub=TEXT(HEUTE(),"TT.MM.JJJJ").="Druckdatum: "&TEXT(HEUTE(),"TT.MM.JJJJ").1. Kann ich das Druckdatum auch in eine Fußzeile einfügen?
Ja, du kannst das Druckdatum in die Fußzeile einfügen, indem du die Kopf- und Fußzeilenoptionen in Excel nutzt.
2. Ist es möglich, das Druckdatum automatisch in eine bestimmte Zelle einzufügen?
Ja, das kannst du mit VBA tun, indem du den entsprechenden Code in „DieseArbeitsmappe“ einfügst und die gewünschte Zelle angibst.
3. Wie kann ich das letzte Druckdatum speichern?
Um das letzte Druckdatum zu speichern, musst du VBA verwenden, um das Datum in einer Zelle zu speichern, bevor der Druckauftrag gesendet wird.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen