Workbooks.open auf dem Netzwerk
Martini
folgender Excel-Code läuft auf den Fehler 1004 beim Befehl: Application.Workbooks.open..
Dies passiert aber nur bei einem Aufruf aus dem Netzwerk, am lokalen Rechner funktioniert das Ganze wunderbar.
Weiß jemand einen Rat
Sub Für_Herber()
Application.DisplayAlerts = False
ActiveSheet.Unprotect ("herber")
ChDir Range("Pfad")
ChDir Range("Pronr")
Application.ScreenUpdating = False
E_SAP = ActiveWorkbook.Name
frage = MsgBox("Haben Sie den Cursor auf die gewünschte Datei gesetzt:", vbYesNo)
If frage = 6 And ActiveCell.Offset(0, 4) "Kontierung abgeschlossen" Then
Application.Workbooks.Open Filename:=Range("BVRech").Formula, UpdateLinks:=False
For Each i In ActiveWorkbook.Sheets
i.Unprotect ("herber")
Next i
Else
MsgBox "Der Cursor steht nicht auf einem Dateinamen, bzw. die Datei ist bereits vollständig kontiert."
Exit Sub
End If
Danke Elisabeth Martini