Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Erstellungsdatum in MSG-Box anzeigen

Betrifft: Erstellungsdatum in MSG-Box anzeigen
von: KarliH
Geschrieben am: 16.04.2003 - 22:54:40

Hallo Forum,

mit welchem VBA-Befehl kann ich das Erstellungsdatum und das Datum der letzten Änderung einer Arbeitsmappe in einer MSG-Box anzeigen lassen.

Gruß Karli

  

Re: Erstellungsdatum in MSG-Box anzeigen
von: PeterW
Geschrieben am: 16.04.2003 - 22:59:20

Hallo Karli,

schau mal hier: https://www.herber.de/forum/archiv/240to244/t240264.htm

Gruß
Peter

  

Re: Erstellungsdatum in MSG-Box anzeigen
von: Ramses
Geschrieben am: 16.04.2003 - 23:00:17

Hallo,

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


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 
     Code eingefügt mit Syntaxhighlighter 1.16

Das ganze funktioniert natürlich nur, ... wenn die Datei tatsächlich mal gespeichert wurde :-)

Gruss Rainer

  

Langsamer, aber ich hab mehr geschrieben :-)) o.T.
von: Ramses
Geschrieben am: 16.04.2003 - 23:02:17

...

  

Re: Erstellungsdatum in MSG-Box anzeigen
von: Björn
Geschrieben am: 16.04.2003 - 23:05:26

Huhu Karli,

MsgBox ActiveWorkbook.BuiltinDocumentProperties.Item(7)

Gruß

Björn

  

Formel 1? ;)
von: PeterW
Geschrieben am: 16.04.2003 - 23:06:24

Hallo Rainer,

läuft gerade ein Wettbewerb, von dem ich noch nichts weiß? ;))

Gruß
Peter


  

Re: Erstellungsdatum in MSG-Box anzeigen
von: KarliH
Geschrieben am: 16.04.2003 - 23:06:59

Hallo Peter und Rainer,

danke für die schnelle Antwort.
Werde sie morgen verwerten.

Gruß Karli

  

Re: Erstellungsdatum in MSG-Box anzeigen
von: dkli
Geschrieben am: 16.04.2003 - 23:12:26

Hallo Karli,
probiere es mal mit:

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

  

Könnte man fast glauben bei den Antworten :-)) o.T
von: Ramses
Geschrieben am: 16.04.2003 - 23:15:03

...

  

Re: Erstellungsdatum in MSG-Box anzeigen
von: Ramses
Geschrieben am: 16.04.2003 - 23:17:29

Hallo Björn,

7 ist doch der letzte Benutzer ("Last Author") der die Datei bearbeitet hat?

Gruss Rainer

  

Re: Erstellungsdatum in MSG-Box anzeigen
von: Björn
Geschrieben am: 16.04.2003 - 23:29:21

Huhu 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

 

Beiträge aus den Excel-Beispielen zum Thema "Erstellungsdatum in MSG-Box anzeigen"