Pfad des SVerweis ändert sich
30.03.2020 18:37:10
Andreas
Beim Öffnen meiner Excel Datei wird eine weitere freigegebene Datei mit Hilfe dieses Makros geöffnet.
bExists = False
With Application
For Each oWorkbook In .Workbooks
If VBA.UCase$(oWorkbook.Name) = "Lager.xlsm" Then
' Jetzt aktivieren
Windows(oWorkbook.Name).Activate
bExists = True
Exit For
End If
Next
End With
' Mappe neu laden!
If Not bExists Then
On Error Resume Next
If version = 1 Then
Workbooks.Open Filename:="D:/Auftrag/Lager.xlsm", ReadOnly:=False, UpdateLinks:=0
Else
Workbooks.Open Filename:="\\192.168.178.11\Auftrag\Lager.xlsm", ReadOnly:=False, _
UpdateLinks:=0
End If
On Error GoTo 0
End If
Die Datei wird von einem Rechner lokal und von mehreren Rechnern übers Netzwerk geöffnet.
Alle Rechner ändern Werte in der Datei und speichern sie ab.
Das funktionierte bis vor ein paar Tagen fehlerfrei,
Jetzt ist es so dass je nachdem ob der der lokale Rechner oder die über das Netzwerk zugreifen was ändern, werden die SVerweise geändert.
Normal steht lautet die Formel in einer Zelle z.B
=SVERWEIS(X2;Auftrag.xlsm!Aufstragsbereich;8;FALSCH)
Wenn der lokzugreifende Rechner die Datei ändert .. ändert sich der Link zu
=SVERWEIS(X2;D:/Auftrag/Auftrag.xlsm!Aufstragsbereich;8;FALSCH)
Beim Netzwerkrechner dann analog
=SVERWEIS(X2;\\192.168.178.11\Auftrag\Auftrag.xlsm!Aufstragsbereich;8;FALSCH)
Hat jemand eine Idee woran es liegen kann?
MFG
Andreas