HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal

Thema: Druckdatum | Herbers Excel-Forum

Druckdatum
Ralf

Hallo Forum,
gibt es im Excel 2007, ähnlich wie im Word eine Funktion, mit der ich in einer Zelle das Druckdatum ausgeben kann? Dies natürlich bevor der Druckauftrag an den Drucker gesendet wird.
Viele Grüße
Ralf

AW: Druckdatum
Hajo_Zi

Hallo Ralf,
benutze dazu doch die Kopf- und Fußzeile.

AW: Druckdatum
Ralf

Hallo Hajo,
nee, geht leider nicht, da das Datum an einer bestimmten Position im Tabellenblatt erscheinen soll. Trotzdem Danke für den Tipp.
Gruß
Ralf
AW: Druckdatum
Hajo_Zi

Hallo Ralf,
schreibe in die Zelle =Heute(). Dann steht immer das aktuelle Datum drin. Falls es fest bleiben soll geht es nur per VBA.
Gruß Hajo
AW: Druckdatum
Ralf

Hallo Hajo,
die Heute Funktion kenne ich. Es soll möglichst das letzte Druckdatum stehen bleiben.
Ist dies eine aufwändige Lösung per VBA?
Gruß
Ralf
AW: Druckdatum
Hajo_Zi

Hallo Ralf,
du hast jetzt leider nicht geschrieben ob in allen. Ich gehe mal davon aus.
Unter DieseArbeitsmappe 
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1") = Date
End Sub

falls nur eine Tabelle 
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Tabelle1" Then
Worksheets("Tabelle1").Range("A1") = Date
End If
End Sub

Ich bin davon ausgegangen das immer die aktuelle Tabelle gedruckt wird, nicht mehrere mit einmal.
Gruß Hajo
AW: Druckdatum
Ralf

Hallo Hajo,
hm, wo muss ich den Code hinkopieren, in ein Modul oder eine Tabelle?
Das Datum soll in der Tabelle Zusammenfassung Zelle A41 erscheinen.
Vielleicht kannst Du mir noch einmal helfen.
Danke.
Gruß
Ralf
AW: Druckdatum
Hajo_Zi

Hallo Ralf,
ich hate geschrieben DieseArbeitsmappe, also nicht Modul, nicht Tabelle.
Den Tabellennamen brauchst Du nur anpassen.
Gruß Hajo
AW: Druckdatum
Ralf

Hallo Hajo,
passt. Danke für Deine Geduld.
Gruß
Ralf