Datei kann nicht gefunden werden
05.06.2020 10:46:58
KathrinBo
ich habe ein Makro, das eine Datei von einem Netzwerkpfad aufruft. Dateiname und Netzwerkname stehen in Zellen B1 und B2. Bis heute morgen hat das auch wunderbar funktioniert. Jetzt wird durch ein weiteres Makro eine andere Datei aufgerufen (Netzwerkpfad und Dateiname stehen in Zellen C1 und C2 - haben also eigentlich nichts damit zu tun).
Jetzt wird im die Fehlermeldung gegeben, dass auf die Datei nicht zugegeriffen werden kann und dass der Pfad gelöscht, umbenannt oder geändert sein könnte, was er nicht ist.
Hat jemand eine Idee?
VG Kathrin
Hier auch nochmal das Makro:
Public Sub Test()
Dim variable As String, wb As Workbook, pfad As String, datei As String
tabellenblatt = ThisWorkbook.Worksheets("Hilfstabelle").Range("B3").Text
pfad = ThisWorkbook.Worksheets("Hilfstabelle").Range("B1").Text
datei = ThisWorkbook.Worksheets("Hilfstabelle").Range("B2").Text
Application.ScreenUpdating = False
Workbooks.Open Filename:=pfad & datei
ActiveWorkbook.Worksheets(tabellenblatt).Range("A10:A200").SpecialCells(xlCellTypeConstants) _
_
.Copy
Windows(ThisWorkbook.Name).Activate
ThisWorkbook.Worksheets("Hilfstabelle").Range("Y6:Y53").Clear
ThisWorkbook.Worksheets("Hilfstabelle").Range("Y6").PasteSpecial _
Paste:=xlPasteValues, SkipBlanks:=True
Application.CutCopyMode = False
wb.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub