Per function Änderungsatum einer varablen Datei auslesen

[barthi]

Ich habe eine Exceldatei. In einer Spalte sollen die jeweiligen Änderungsdaten (Tag und Uhrzeit) einer Datei angezeigt werden.
Diese Datei steht im Verzeichnis "Wurstbrote" und setzt sich aus dem Dateinamen der Spalte "F" zusammen.
Ich habe daher folgende Function:

Code:

Public Function Date_Last_Modified(Pfad As Range) As Variant
    If Pfad <> "" Then
        If Dir$(ThisWorkbook.Path & "\Wurstbrote\" & Pfad & ".docx") <> "" Then
            Date_Last_Modified = CreateObject("Scripting.FileSystemObject"). _
                GetFile(Pfad).DateLastModified
        Else
            Date_Last_Modified = "Wurst wurde gegessen
         End If
    Else
        Date_Last_Modified = ""
    End If
End Function

In meiner Ausgabezelle habe ich dann "=Date_Last_Modified(F3)"
Leider kommt dann immer #WERT!
Wenn keine Datei da ist kommt, wie gewünscht, "Wurst gegessen".
Kann mir da jemand helfen?

[Kuwer]

Hallo,

vielleicht so:

Public Function Date_Last_Modified(Pfad As Range) As Variant

    If Pfad <> "" Then

        If Dir$(ThisWorkbook.Path & "\Wurstbrote\" & Pfad & ".docx") <> "" Then

            Date_Last_Modified = CreateObject("Scripting.FileSystemObject"). _

                GetFile(ThisWorkbook.Path & "\Wurstbrote\" & Pfad & ".docx").DateLastModified

        Else

            Date_Last_Modified = "Wurst wurde gegessen"

         End If

    Else

        Date_Last_Modified = ""

    End If

End Function

Gruß Uwe

[JereMaia]

Ich vermute der Typ für den Pfad in der Funktionssignatur ist falsch. Probier mal folgenden Code (Ich habe diesen nicht getestet):

Code:

Public Function Date_Last_Modified(Pfad As String) As string
   If Pfad <> "" Then
       If Dir$(ThisWorkbook.Path & "\Wurstbrote\" & Pfad & ".docx") <> "" Then
           Date_Last_Modified = cstr(CreateObject("Scripting.FileSystemObject"). GetFile(Pfad).DateLastModified)
       Else
           Date_Last_Modified = "Wurst wurde gegessen"
        End If
   Else
       Date_Last_Modified = ""
   End If
End Function

[Fennek]

Hallo,

VBA bietet doch direkt (ohne shell) eine passende Funktion an:

Code:

FileDateTime(sPath & sFile)

mfg

[barthi]

Danke für die Müphe. Es funktioniert aber leider nicht.

@Kuwer
Jetzt kommt immer "Wurst wurde gegessen"

@JereMaia
Alles unverändert.

@Fennek
Ja das geht schon direkt aber da ich ja immer veränderte Dateinamen habe (Spalte F), benötige ich eine individuelle Funktion.

[Kuwer]

@Kuwer
Jetzt kommt immer "Wurst wurde gegessen"

Meine Änderung ist dafür nicht verantwortlich!

Gruß Uwe

[barthi]

Meine Änderung ist dafür nicht verantwortlich!

Gruß Uwe

Die Wege des Excel sind unergründlich...:D
ISt aber leider so, wenn ich deinen Code einfüge und die Ausgabezelle aktualisiere, kommt immer "Wurst wurde gegessen". Egal ob die Datei vorhanden ist oder nicht.

[Kuwer]

Hallo,

dann nimm Deinen geposteten Code zum Vergleich.

Gruß Uwe

[schauan]

Hallöchen,

Code:

Ich vermute der Typ für den Pfad in der Funktionssignatur ist falsch.

zuweilen geht probieren über studieren :17: Wenn man eine programmierte Funktion auf einem Arbeitsblatt verwendet übergibt man gelegentlich auch "Zellen" :100:

Barthi, nimm einfach mal ThisWorkbook.Path & "\Wurstbrote\" & Pfad & ".docx" in die Überwachung, lege einen Haltepunkt in den Code und vergleiche es mit Pfad und Name der Datei im Explorer.

[barthi]

@kuwer
Du hast recht, hat funktioniert. Danke!