Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Feststellen, welche Datei die ältere ist

Gruppe

DatumUndZeit

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