Gruppe
Datei
Problem
Die Datei aus Zelle B1 soll auf ihr Änderungsdatum geprüft werden. Wurde sie am aktuellen Tag geändert, ist sie zu öffnen.
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