mit welchem VBA-Befehl kann ich das Erstellungsdatum und das Datum der letzten Änderung einer Arbeitsmappe in einer MSG-Box anzeigen lassen.
Gruß Karli
mit welchem VBA-Befehl kann ich das Erstellungsdatum und das Datum der letzten Änderung einer Arbeitsmappe in einer MSG-Box anzeigen lassen.
Gruß Karli
schau mal hier: https://www.herber.de/forum/archiv/240to244/t240264.htm
Gruß
Peter
Msgbox "Erstellt am: " & ActiveWorkbook.BuiltInDocumentProperties(11) & Chr$(13) & "Zuletzt verändert am: " & ActiveWorkbook.BuiltInDocumentProperties(12)
Hier noch einen kleinen code mit dem du alle verfügbaren Eigenschaften im aktiven Tabellenblatt darstellen kannst
Code eingefügt mit Syntaxhighlighter 1.16
Sub document_Propierties_Show()
'(C) Hajo
Dim Rw As Integer
Dim P
Rw = 1
On Error Resume Next
For Each P In ActiveWorkbook.BuiltinDocumentProperties
Cells(Rw, 1).Value = P.Name
Cells(Rw, 3) = P.Value
Rw = Rw + 1
Next
End Sub
Das ganze funktioniert natürlich nur, ... wenn die Datei tatsächlich mal gespeichert wurde :-)
Gruss Rainer
MsgBox ActiveWorkbook.BuiltinDocumentProperties.Item(7)
Gruß
Björn
läuft gerade ein Wettbewerb, von dem ich noch nichts weiß? ;))
Gruß
Peter
danke für die schnelle Antwort.
Werde sie morgen verwerten.
Gruß Karli
msgbox (FileDateTime("datei"))
Kenne mich nur mit Excel 97 ein wenig aus. Dort ergibt die Funktion(?) das Datum und die Uhrzeit der letzten Änderung.
Dieter
7 ist doch der letzte Benutzer ("Last Author") der die Datei bearbeitet hat?
Gruss Rainer
Du hast Recht. Ich dachte, Karli war auf der Suche nach dem letzten User (freudscher Irrtum *g*). @Karli: Über das Standardbsp von ms:
Rw = 1
Worksheets(1).Activate
For Each P In ActiveWorkbook.BuiltinDocumentProperties
Cells(Rw, 1).Value = P.Name
Rw = Rw + 1
Next
kannst Du alle verfügbaren Dokumenteigenschaften in einem wks darstellen lassen. Zeile = Item(Nr.). Die gesuchten sind 11 und 12.
Viele Grüße
Björn