ein Makro soll nur starten, wenn die Datei noch am gewünschten Ort liegt, d.h. wird sie per Email verschickt, an einen anderen Ort kopiert oder verschoben, erscheint nur eine Fehlermeldung.
Habe bisher folgenden Code
Originalpfad = ws3.Cells(31, 2).Value
Set Dateiobj = CreateObject("Scripting.FileSystemObject")
With Istpfad = Dateiobj.GetFile(ActiveWorkbook.Path)
If Originalpfad Istpfad Then
Set wb1 = Nothing
Set ws1 = Nothing
Set ws2 = Nothing
Exit Sub
End If
End With
Funktioniert aber nicht. Bei Beginn der With-Schleife erhalte ich die Fehlermeldung "Datei nicht gefunden". Hätte jemand einen Tipp, was ich korrigieren muss?
Vielen Dank und schöne Grüße,
Jochen