ich habe zwei UDFs geschrieben, die Dateien überprüfen.
Die eine gibt zurück, ob die Datei existiert.
Die andere, wann das letzte Speicherdatum war.
Leider gibt es bei der zweiten Funktion ein Problem.
Ich habe beide Funktionen in meine Excel-Datei eingebaut.
Beim Öffnen der Datei aktualisiert sich die erste Funktion automatisch. Sie wird also neu berechnet.
Die zweite Funktion allerdings nicht.
Damit die zweite Funktion berechnet wird muss ich immer in die Formel gehen und Enter drücken.
Dann werden aber alle Zellen mit dieser Funktion berechnet.
Application.volatile brachte auch nichts. F9 zeigt auch keine Wirkung.
Irgendwelche Ideen?
Hier die beiden Funktionen:
Function FileExistiert(Dateiname As String) As Boolean
FileExistiert = False
If Dir(Dateiname) "" Then
FileExistiert = True
End If
End Function
Function FileDatum(Dateiname As String) As Date
Dim kurzDat As Date
FileDatum = CDate("1.1.1950")
If Dir(Dateiname) "" Then
kurzDat = FileDateTime(Dateiname)
FileDatum = DateSerial(Year(kurzDat), Month(kurzDat), Day(kurzDat))
End If
End Function
Danke
Stefan