Probleme Verzeichnisinhalte kopieren
19.01.2021 12:51:53
Mladen
Bin neu Hier, verwende jedoch schon lange das Forum als Unterstützung bei VBA (Excel, Access, Word).
Leider gibt es nun seit vielen Jahren das erste Mal ein Problem, das ich weder alleine, noch Mithilfe des Forums (Suchfunktion) lösen kann.
Dateibeschreibung:
Ich habe eine Übersichtsliste (Wareneingang) mit Eingangsdatum (Zeitstempel), Teilenummer, Bezeichnungen, Ansprechpartner, sowie verschiedene Abwicklungsstadien. Beim Wareneingang werden für jeden Auftrag die Verzeichnisstrukturen für 1. Bearbeiter, 2. Bearbeiter und 3. Bearbeiter angelegt. Diese sind in der Übersichtstabelle als "DATEN", "AUSWERTUNG" und "PROTOKOLL" mit Links auf die entsprechenden Laufwerksordner hinterlegt.
Wenn der 1. Bearbeiter den Auftrag als abgeschlossen kennzeichnet (Formularabfrage), wird eine Info-Email an alles verschickt und die in Seinem Verzeichnis enthaltenen Dateien (verschiedene Dateiarten), sollen in das Verzeichnis des 2. Bearbeiters kopiert werden.
Alles funktioniert tadellos, nur das Kopieren nicht und wird mit Laufzeitfehler "76": Pfad nicht gefunden quittiert.
Im Lokalfenster, werden mir jedoch die Pfade korrekt angezeigt und ich kann Diese auch per VBA im Windows Explorer öffnen.
Jemand eine Idee woran es liegen könnte?
Meine Codes im allgemeinen Modul:
Sub Aufnahmen_Copy()
'Alle enthaltenen Dateien zur Auswertung kopieren
Dim WB As Workbook, WSH As Worksheet, QUELLE as String, ZIEL As String
Dim Lnk1 As Range, Lnk2 As Range, FS As Object
Set WB = ThisWorkbook 'Verweis Datei
Set WSH = ThisWorkbook.Sheets("Uebersicht") 'Verweis Sheet
Set Lnk1 = WSH.Cells(ActiveCell.Row, 16) 'Zelle mit Link Quellverzeichnis
Set Lnk2 = WSH.Cells(ActiveCell.Row, 19) 'Zelle mit Link Zielverzeichnis
Set FS = CreateObject("ScriptingFileSystemObject")
QUELLE = Link(Lnk1) 'Quellverzeichnis
ZIEL = Link(Lnk2) 'Zielverzeichnis
FS.CopyFolder QUELLE, ZIEL, True
End Sub
Function Link(Zelle As Range) As String
'Linkadresse auslesen
Application.Volatile
Link = Zelle.Hyperlinks(1).Address
End Function
Jemand eine Idee, woran es liegen könnte?
Vielen Dank im Voraus!
