Änderungsdatum externer Datei in Zelle anzeigen

[dev5fr]

Hi,

bisher hat die Datei, deren Änderungsdatum ich anzeigen lies, auf einem Netzlaufwerk gelegen und das nachfolgende VBA auch super funktioniert.

Code:

=AenderungsDatum("U:\Report\data.xlsx")+JETZT()*0

Jetzt liegt die Datei im Onedrive und der Pfad ist nun eine URL.
Mit welcher Syntax übergebe ich nun die URL an meine Function? Ich bekomme es einfach nicht hin.
Ich habe es u.a. so versucht.

Code:

=AenderungsDatum("[https://m-my.sharepoint.com/Report/data.xlsx]")+JETZT()*0

Danke dev5fr


Das verwendete VBA sieht so aus.

Code:

Function AenderungsDatum(strDatei As String) As Date
Dim FS As Object
Set FS = CreateObject("Scripting.FileSystemObject")
AenderungsDatum = FS.GetFile(strDatei).dateLastModified
Set FS = Nothing
End Function

[steve1da]

…
https://www.ms-office-forum.net/forum/sh...ost2085465