13.10.2019, 12:52
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.
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
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 SubDa 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