---

Hallo liebes WBF,
ich habe folgende Sache: Ich hab in einer Exceldatei per Hyperlink auf verschiedene Dateien Verknüpfungen.
Gibt es eine einfache Möglichkeit, das Erstelldatum, der verknüpften Datei in Excel ausgeben zu lassen?
Excelversion derzeit noch 2010, in naher Zukunft dann 2016.

Besten Dank vorab.

------------------
Gruß Benewet

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Sub Test()

Dim Pfad As String

Pfad = "C:\V5_PDF\PIT 6881586_2_STUECK_Y980010039320200_2_WELLE_MIT_M10_UND_M6.pdf"

MsgBox "Geändert: " & FileDateTime(Pfad)

End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hat an sich prima funktioniert, aber... 

Das krieg ich natürlich nur mit "viel" Aufwand für alle bzw. jede einzelne Verknüpfung hin, und die Anzeige ist ja dann auch nur in der Messagebox.

Gibt es eine Möglichkeit, das Datum in der Zelle neben der Verknüpfung anzeigen zu lassen?

Was ich vergessen hatte zu erwähnen, die Anzahl der Verknüpfungen steigt stetig an, d.h. hier müsste ich dann immer im Makro die jeweilige "Erweiterung" schreiben.

------------------
Gruß Benewet

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Na viel Aufwand ist es nicht wirklich, wenn man man weiss für was das Werkzeug ist :-)

der vorhandene Code hat einen input und einen output.

das Ganze lässt sich als einfach Function erstellen.

=Fdate(deineZelle(Hyperlink)) aka = =Fdate(A2) und die passende Formatierung Datum/uhrzeit einstellen (kann natürlich auch schon in der Funktion passieren)

Code:

---

Public Function Fdate(Pfad As String)
    Fdate = FileDateTime(Pfad)
End Function

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hat auf jeden Fall geklappt. Danke nochmal

------------------
Gruß Benewet

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP