Prüfen, ob Datei bestimmtes Datum enthält
30.05.2016 14:47:47
Vic
Ich möchte prüfen, ob das aktuelle Verzeichnis eine Datei enthält, deren Dateinamen mit dem Datum aus A2 beginnt. Mein bisheriger Versuch mit:
Sub Vorhanden_Datei()
Dim p, n As String
p = ActiveWorkbook.Path
n = ActiveWorkbook.Name
nd = Left(n, 8)
If Dir(p & "\" & nd) = Range("A2").Value Then
MsgBox "vorhanden"
Else
MsgBox "nicht vorhanden"
End If
End Sub
p & "\" & nd
Danke vorab!
Vic