Zuletzt gespeicherte Datei öffnen

Vielle­icht wollen Sie genau da weit­er machen, wo der Kol­lege oder die Kol­le­gin am Vortag aufge­hört hat oder es gibt andere Gründe, dass Sie genau die Datei öff­nen wollen, die in einem definierten Ord­ner zulet­zt gespe­ichert wor­den ist. Da bietet sich fol­gen­der Code (unbekan­nter Ersteller) an:

Sub DateiLetztesSpeicherdatum()
  Const strPath As String = "C:\Test\"  'Anpassen
  Dim strFile As String, strFile2Open As String, dteFile As Date, dteLast As Date
  strFile = Dir$(strPath & "*.xlsm")   'Extension anpassen
  If strFile > "" Then
    Do
      dteFile = FileDateTime(strPath & strFile)
      If dteFile > dteLast Then
        strFile2Open = strFile
        dteLast = dteFile
      End If
      strFile = Dir$
    Loop Until strFile = ""
    Workbooks.Open strPath & strFile2Open
  Else
    MsgBox "Keine passende Datei gefunden!"
  End If
End Sub