Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Datei öffnen, wenn sie am aktuellen Tag geändert wurde
Gruppe
Öffnen
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