Speicherdatum einer geschlossenen Datei in Zelle

[teemutainio]

Hallo zusammen,

ich bin neu hier und mit Excel eher semi erfahren. Nun habe ich ein Excel-Problem auf der Arbeit, bei dem ich eure Hilfe gebrauchen könnte.

Ich habe 2 Excel Dateien, A.xls & B.xls. Ich brauche eine Funktion, welche mir in einer bestimmten Zelle von A.xls das Speicherdatum von B.xls auswirft. Ist dies über den VBA möglich?

Ich benutze Excel 2010.

Vielen Dank & Grüße,
Fabian

[WillWissen]

Hi Fabian,

direkte Hilfe zu VBA kann ich dir leider nicht bieten. Stelle aber einmal Tante Gugl diese Frage:  Speicherdateum einer Datei in Excel auslesen
Bei mir kamen in 0:48 Sekunden rund 407.000 Antworten. Vllt. ist da auch eine für dich dabei.  :32:

[teemutainio]

Hallo Günther,

leider bin ich via Google nicht fündig geworden, weil es dort entweder um das Speicherdatum der A.xls geht oder ich die Erläuterungen nicht verstehe. WIe gesagt, Excel und speziell der VBA ist nicht mein Spezialgebiet.

BG,
Fabian

[Fennek]

Hallo Fabian,

in VBA gibt es die Funktion

Code:

FileDateTime(Pfad\DateiName)

mfg

(mit FSO geht es auch)

[teemutainio]

Hallo Fennek,

schon einmal vielen Dank.

Könntest du vielleicht den kompletten Code für VBA posten? Ich bin wirklich ein Amateur was VBA angeht.

BG,
Fabian

[Werner.M]

Hallo Fabian,

wo ist denn da jetzt das Problem? Du muß doch nur den Pfad und Dateinamen der Datei B angeben.
Hier wird das Datum und die Uhrzeit in Zelle A1 deiner gerade aktiven Tabelle geschrieben.
Den Pfad mußt du halt an deine Bedürfnisse anpassen.

Code:

Public Sub aaa()
Range("A1") = FileDateTime("C:\Users\Fabian\Desktop\DateiB.xlsm")
End Sub

Gruß Werner

[teemutainio]

Hallo Werner,

vielen Dank. Ich stand vorhin ein wenig auf dem Schlauch, jetzt passt aber alles.

Gibt es eine Funktion, die die Makros automatisch beim offenen der Datei ausführen lässt?

BG,
Fabian

[Käpt'n Blaubär]

Hallo,

Gibt es eine Funktion, die die Makros automatisch beim offenen der Datei ausführen lässt?

... wenn Du Deinen Code dazwischenquetscht und ihn auch noch richtig platzierst, dann schon.

Das ist ein Workbook_Open-Ereignis und gehort in das Klassenmodul, "Diese Arbeitsmappe"

Private Sub Workbook_Open()

End Sub

[teemutainio]

Hallo Blaubär,

vielen Dank!

WIe plaziere ich denn richtig? Erst der Open_Workbook Befehl, und dann FileTimeDate?

BG
Fabian

[Werner.M]

Hallo Fabian,

nicht erst Workbook_open und dann FileDateTime. Workbook_Open ist kein Befehl sondern ein Ereignismakro, das ausgeführt wird wenn du die Datei öffnest.

Folgender Code gehört ins Codemodul von "DieseArbeitsmappe".
Dazu im Makroeditor Doppelklick auf "DieseArbeitsmappe" und den Code rechts ins Codefenster kopieren.

Code:

Private Sub Workbook_Open()
'Blattname anpassen
Worksheets("DeinTabellenblattname").Range("A1") = FileDateTime("C:\Users\Fabian\Desktop\DateiB.xlsm")
End Sub

Den Namen des Tabellenblattes mußt du an deine Verhältnisse anpassen.

Gruß Werner