Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verknüpfung mit neuem Server

Forumthread: Verknüpfung mit neuem Server

Verknüpfung mit neuem Server
12.12.2005 15:51:43
Ilja
Hallo ,
gibt es ein Tool oder Script, welches alle Verknüpfungen in einem Excelsheet zu anderen Sheets der Form \\server1\excel\test.xls in \\server2\excel\test.xls umwandelt. Ich habe ca. 200 Excel-Dateien, die sich nach einem Serverumzug nicht mehr Starten lassen bzw. die die Verknüpfungen nicht mehr finden. Pro Datei sind das 3-5 Verknpüfungen.
Danke für einen Tip.
Ilja
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfung mit neuem Server
12.12.2005 16:06:17
Hajo_Zi
Hallo Ilja,
eine Möglichkeit von Hand. Bearbeiten, Verknüpfungen, Quelle wechseln.


AW: Verknüpfung mit neuem Server
12.12.2005 16:26:27
UweD
Hallo
angenommen die Dateien liegen alle in einem Verzeichnis..
Hier ein Ansatz.. Kann nicht weiter testen, da mir die Testdateien fehlen.

Sub alle_Dateien_Verzeichnis() '
Dim strPath$, strExt$, strFile$, Alt$, Neu$, Z
strPath = "C:\Temp\" 'Pfad des Verzeichnisses ggf. anpassen
strExt = "*.xls"       'Dateiextension ggf. anpassen
Alt = "\\server1\"
Neu = "\\server2\"
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
On Error GoTo Fehler
Do While Len(strFile) > 0
Workbooks.Open Filename:=strPath & strFile 'öffnet die Datei
For Each Z In Cells.SpecialCells(xlCellTypeFormulas, 23) 'Alle Zellen mit Formeln
Z.Formula = Application.Substitute(Z.Formula, Alt, Neu) 'tauscht aus
Next
Workbooks(strFile).Close savechanges:=True   'Datei schließen
strFile = Dir() ' nächste Datei
Loop
End If
Exit Sub
Fehler:
If Err.Number = "1004" Then 'keine Formeln enthalten
'nichts
Else
MsgBox " Fehler" & Err.Number & " " & Err.Description & " in Datei " & strPath & strFile
End If
Err.Clear
Resume Next
End Sub

Der errorhandler springt bei mir beim Testen noch zu oft an. da mußt du noch nachbessern.
Gruß UweD
(Rückmeldung wäre schön)
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige