Relative Pfade überprüfen

[Frederik987]

Moin zusammen,

ich habe ein Problem mit der Überprüfung relativer Pfade. Wenn ich den Code erstelle und ihn per Button ausführe, klappt er wunderbar. Er gibt mit richtig an, ob eine Datei im angegebenen Pfad vorhanden ist oder nicht. Wenn ich die Excel-File dann aber speicher, schließe und wieder öffne und den Button erneut betätige, bzw. den Code ausführe, findet er auf einmal keine der Dateien mehr. Hat jemand eine Idee? Hier noch mein Code und anbei eine Beispiel-Excel. Danke euch!

Die dazugehörige Ordnerstruktur ist wie folgt:
Ebene 1: Ordner: Beispiel
Ebene 2: Ordner: ExcelFile; Textdatei: Neu.txt
Ebene 3: Excel: Mappe1.xlsm; Textdatei: Neu3.txt

Die Angabe von absoluten Pfaden ist für meinen Anwendungsfall leider nicht relevant, es muss mit relativen Pfaden funktionieren.

Code:

With ActiveWorkbook.ActiveSheet
For p = 2 To 6

quellpfad = Range("A" & p)

   If Dir(quellpfad) = "" Then
       Range("B" & p).Value = "Nein"
       Else
       Range("B" & p).Value = "Ja"
   End If
Next
End With
End Sub

Da eine Lösung leider sehr zeitnah benötigt wird, muss ich leider Cross-Posting betreiben. Hier der andere Post:
http://www.office-loesung.de/p/viewtopic.php?f=166&t=820087

[Frederik987]

Problem konnte unter obigem Link gelöst werden!