Office: Datum formatieren mit VBA

Quick_Mick · 3. Februar 2004

Hallo

Ich habe folgenden Code um das Speicherdatum und das aktuelle Datum in die Fusszeile zu schreiben.

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim wks As Worksheet
Dim updateDatum As String

updateDatum = Format(ActiveWorkbook.BuiltinDocumentProperties(12).Value, "dd.mm.yy hh.mm")
DruckDatum = Format(Date, "dd.mm.yy")

For Each wks In Worksheets

wks.PageSetup.RightFooter = "&10 &B" & "gespeichert am " & updateDatum
wks.PageSetup.CenterFooter = "&10 &B" & "gedruckt am " & DruckDatum & " &T"

Next wks

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt dauert dies sehr lange lange bis der Code verarbeitet ist. An was könnte das liegen. Bei den ersten Versuchen hat es einwandfrei funktioniert und nach längerem probieren am Code dauerte es immer länger.

Und wie bringe ich das aktuelle Datum in folgendes Format "dd.mm.yy hh.mm"

Besten Dank für die Hilfe

:)

jinx · 5. Februar 2004

Moin, Quick_Mick,

tja, ich würde da eher auf FileDateTime(ActiveWorkbook.FullName) ausweichen - bei mir brachte Deine Anweisung LZF ohne Ende. Wenn es zu lange dauert, kannst Du die Blätter der Mappe gruppieren und dann die Änderung nur für eines (quasi als Durchschlag) durchführen lassen.

Für die weitere Frage:
Format(Now(), "dd.mm.yy hh.mm")

Quick_Mick · 5. Februar 2004

So funktionierts einigermassen:

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim wks As Worksheet
Dim updateDatum As String
Dim DruckDatum As String

updateDatum = FileDateTime(ActiveWorkbook.FullName)
'updateDatum = Format(ActiveWorkbook.BuiltinDocumentProperties(12).Value, "dd.mm.yy hh.mm")
DruckDatum = Format(Now(), "dd.mm.yy hh.mm")
updateDatum = Format(updateDatum, "dd.mm.yy hh.mm")

ActiveSheet.PageSetup.RightFooter = "&10 &B" & "gespeichert am " & updateDatum
ActiveSheet.PageSetup.CenterFooter = "&10 &B" & "gedruckt am " & DruckDatum

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke für den Tip mit der Aktuellen Zeit.
Jetzt funktioniert es. Von der Verarbeitungszeit ist es auch erträglich.
Nur schade das man das Dokument zuerst speichern muss.

Danke!

Office: Datum formatieren mit VBA

Datum formatieren mit VBA

Datum formatieren mit VBA

Datum formatieren mit VBA - Similar Threads - Datum formatieren VBA

Datum in Userform formatieren

Zellen formatieren wenn älter als jetzt

Warnliste Bedingtes Formatieren nach Datum - Office365

Formatieren von Zahlen als Datums- oder Uhrzeitwerte

Formatieren eines Datums

Diagramm in Excel

Formatieren eines Datums-und Uhrzeit Felds