Gruppe
UDF
Problem
Die benutzerdefinierte Funktion in Zelle C2 soll den Namen der zuletzt gespeicherten Datei aus dem Bereich B1:B2 liefern.
StandardModule: Modul1
Function LastFile(sFileA As String, sFileB As String) As String
Dim datLast As Date
datLast = FileDateTime(sFileA)
If datLast < FileDateTime(sFileB) Then
LastFile = sFileB
ElseIf datLast = FileDateTime(sFileB) Then
LastFile = "Beide Dateien gespeichert am " & FileDateTime(sFileB)
Else
LastFile = sFileA
End If
End Function