VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Feststellen, welche Datei die ältere ist

Gruppe

UDF

Bereich

DatumUndZeit

Thema

Feststellen, welche Datei die ältere ist

Problem

Die benutzerdefinierte Funktion in Zelle C2 soll den Namen der zuletzt gespeicherten Datei aus dem Bereich B1:B2 liefern.

Lösung

Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.




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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und DatumUndZeit