VBA: Bei Fehler Exit Sub
07.04.2017 10:55:41
Markus
ich verwende folgenden Code in Workbook_Open, um eine bestimmte Datei bzw. deren letztes Speicherdatum zu prüfen.
Der Code funktioniert soweit aber ich möchte gerne den Fall berücksichtigen, dass ein User keinen Zugriff auf das SourceFile bzw. dessen Pfad hat und in diesem Fall einen Fehler vermeiden.
Kann mir jemand sagen, was ich dafür hier ergänzen muss ?
Mein Code:
Private Sub Workbook_Open()
Dim UserReply As String
varSourceFolder = Worksheets(1).Range("SourceFolder").Value
varSourcePath = varSourceFolder & Worksheets(1).Range("SourceFile").Value
varSourceDate = FileDateTime(varSourcePath)
If Worksheets(1).Range("SourceDate").Value varSourceDate Then
UserReply = MsgBox("Text ?", vbYesNo + vbExclamation, "Text")
If UserReply = vbNo Then
Exit Sub
Else
Call RefreshReport
End If
End If
End Sub
Markus