Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige