MFg DAVID
MFG DAVID
MFG DAVID
Sub Drucke_aus()
With ActiveSheet.PageSetup
.LeftFooter = ActiveSheet.Parent.BuiltinDocumentProperties(12)
End With
End Sub
MFg DAVID
schaue mal in VBA unter DieseArbeitsmappe.
Gruß Georg
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sub Drucke_aus()
With ActiveSheet.PageSetup
.LeftFooter = ActiveSheet.Parent.BuiltinDocumentProperties(12)
End With
End Sub
MFG DAVID
innerhalb einer Sub kannst Du keine zweire anordnen. Die Zeile
Sub Drucke_aus() ist zu viel. und wenn Du das Deutsche Datum haben willst würde ich es wie folgt ändern.
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Format(ActiveSheet.Parent.BuiltinDocumentProperties(12), "dd.mm.yy hh:mm:ss")
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Georg
Es ist so das ich eine anzeige bei drucken möchte wo mir das letzte abspeicher datum angezeigt wird.
MFG DAVID
P.S Danke für die Mühe
bei mir kam das richtige datum. Versuchs mal so
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Format(FileDateTime(ThisWorkbook.FullName), "dd.mm.yy hh:mm:ss")
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Georg
Weil ich benötige aus der Fußzeile auch die daten, ist es möglich den inhalt aus der Fußzeile mit ins Macro zu Integrieren. Weil so kommt nur noch das was im Macro steht.
ActiveSheet.PageSetup.LeftFooter =
Format(FileDateTime(ThisWorkbook.FullName), "dd.mm.yy")
Ist es möglich das Macro so abzuändern das ich mit der Kopf und Fuss zeile interagieren kann.
MFG DAVID
du mußt die entsprechenden Teile der Kof und Fußzeile ansprechen.
' Left=Links; Center=Mitte; Right=Rechts
' Header=Kopfzeile; Footer=Fußzeile
Warum integrierst Du den Teil nicht in dem Makro übernahme des vorhandenen Teils)
Gruß Georg
MFG DAVID