Hallo,
ich möchte das Änderungsdatum aus den auf einer Exceldatei in eine andere Datei übertragen.
Ziel soll es sein in einer Exceltabelle, die als Index für mehrere andere Exceldateien dient sofort zu sehen, wann die verlinkte Exceldateien zuletzt geändert wurde.
Diese Information steht in den Dateieigenschaften, nur wie kann ich diese auslesen und in eine andere Exceldatei eintragen lasse?
Geht das mit einem Makro?
Gruß
Ingo
ich möchte das Änderungsdatum aus den auf einer Exceldatei in
eine andere Datei übertragen.Ziel soll es sein in einer Exceltabelle, die als Index für
mehrere andere Exceldateien dient sofort zu sehen, wann die
verlinkte Exceldateien zuletzt geändert wurde.
Diese Information steht in den Dateieigenschaften, nur wie
kann ich diese auslesen und in eine andere Exceldatei
eintragen lasse?
Hi Ingo,
wenn in A1 der Name der Datei steht ggfs incl. Pfad, bekommst du in A2 das Änderungsdatum/Zeit wenn dort
Aenderung(A1)
steht und in einem Modul der nachfolgende Code.
Gruß
Reinhard
Function Aenderung(x)
Aenderung = FileDateTime(x)
End Function
Hallo Reinhard,
so ganz habe ich das noch nicht verstanden:
Wie muß ich „Aenderung(A1)“ in die Zelle A2 schreiben?
Als Formel: „=Aenderung(A1)“ oder soll ich die Zelle so benennen?
Mit noch einmal Idiotensicher beschreiben!
Das Makro habe ich so von Dir kopiert und in Visual Basic eingefügt.
Gruß
Ingo
Hi Ingo,
wenn in A1 der Name der Datei steht ggfs incl. Pfad, bekommst
du in A2 das Änderungsdatum/Zeit wenn dort
Aenderung(A1)
steht und in einem Modul der nachfolgende Code.
Gruß
ReinhardFunction Aenderung(x)
Aenderung = FileDateTime(x)
End Function
Hallo Ingo,
sorry, war mein Fehler.
Die selbstgebackene Funktion „Aenderung“ behandelst du wie alle anderen eingebauten Funktionen von Excel, also in der Zelle steht dann:
=Aenderung(A1)
Der Makrocode müsste im VB-Editor in ein Modul geschrieben werden.
Wenn du im VB-Editor (erreichbar mit Alt+F11) links kein Modul siehst, sondern nur DieseArbeitsmappe,Tabelle1,Tabelle2 usw.
dann oben bei „Einfügen“ auf „Modul“ klicken, dann dort den Code reinkopieren.
Gruß
Reinhard
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Reinhard,
perfekt. Du hast es so erklärt, das jemand wie ich es auch verstanden hat.
Vielen Dank.
Gruß
Ingo
P.S. Du bist besser als unsere EDV-Abteilung (da wusste es keiner)
Hallo Ingo,
sorry, war mein Fehler.
Die selbstgebackene Funktion „Aenderung“ behandelst du wie
alle anderen eingebauten Funktionen von Excel, also in der
Zelle steht dann:
=Aenderung(A1)Der Makrocode müsste im VB-Editor in ein Modul geschrieben
werden.
Wenn du im VB-Editor (erreichbar mit Alt+F11) links kein Modul
siehst, sondern nur DieseArbeitsmappe,Tabelle1,Tabelle2 usw.
dann oben bei „Einfügen“ auf „Modul“ klicken, dann dort den
Code reinkopieren.
Gruß
Reinhard
Hallo Reinhard,
es klappt schon ganz gut, aber ich habe dabei noch ein kleines Problem:
So wie Du es beschrieben hast, klappt es nur, wenn ich in der Zelle A1 sofort über „Einfügen Hyperlink“ den Dateinamen bzw. den Pfad eingetragen habe.
Ich habe aber in der Zelle A1 bestimmte Schlagwörter eingetragen und hinter diesen Wörtern den Hyperlink gelegt. Man klickt auf das Wort und die Excel-Datei wird geöffnet.
Ich bin mir auch noch nicht ganz sicher, ob wirklich das Datum der letzten Änderung (gespeichert) oder der letzte Zugriff angezeigt wird.
Muß ich nochmal überprüfen.
Aber vielleicht kannst Du mir noch erklären, warum das Datum mit dem direktem Hyperlink funktioniert und bei dem indirektem bloß „Wert“ angezeigt wird.
DANKE!
Gruß
Ingo
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Reinhard,
es hat mir keine Ruhe gelassen.
Also bei diesen indirekten Hyperlinks, wird mir immer nur „Wert“ angezeigt.
Bei den anderen klappt das mit dem Änderungsdatum, aber nur, wenn ich =Aenderung(A1) neu eintippen, sonst passiert garnichts.
Ich das irgendwo noch eine falsche Einstellung bei mir im Programm.
Als Hinweis noch für Dich: ich arbeite hier mit Excel 2000.
Gruß
Ingo
Bei den anderen klappt das mit dem Änderungsdatum, aber nur,
wenn ich =Aenderung(A1) neu eintippen, sonst passiert
garnichts.
Hi Ingo,
mit den Hyperlinks schau ich noch mal.
Schreib in die Funktion noch am Anfang:
Application.Volatile
rein, dann reagiert die Funktion auf jede Blattänderung.
Gruß
Reinhard