Ich habe probiert eine Datumvariable in meine Fusszeile einzubauen aber irgendwie klappts nicht?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim dtmWiA As Date, dtmLieferungenVoith As Date
dtmWiA = Sheets("Verwaltung").Range("D83")
dtmLieferungenVoith = Sheets("Datenblatt").Range("G1")
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""Arial,Fett""&14" & Chr(10) & "&16&ULiefersituation Voith-Retarder"
.RightHeader = ""
.LeftFooter = _
"WiA per:& dtmWiA &; Voithlieferungen per:7.11.08" & Chr(10) & "Druckdatum:&D /tis"
.CenterFooter = ""
.RightFooter = ""
.PrintComments = xlPrintNoComments
End With
End Sub
Beim Ausdrucken möchte ich gerne die Variable dtmLieferungenVoith anstatt 7.11.08 stehen haben.
Könnt Ihr mir einen Tipp geben wie ich das zum laufen bringe?
Besten Dank und Gruss
TOM