Gruppe
Datei
Bereich
Öffnen
Thema
Datei öffnen, wenn sie am aktuellen Tag geändert wurde
Problem
Die Datei aus Zelle B1 soll auf ihr Änderungsdatum geprüft werden. Wurde sie am aktuellen Tag geändert, ist sie zu öffnen.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub IfNew()
Dim dat As Date
If Dir(Range("B1").Value) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
dat = FileDateTime(Range("B1").Value)
If Fix(CDbl(dat)) = Date Then
Workbooks.Open Range("B1").Value
End If
End Sub