Relative Pfade in Verknüpfungen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Florian,
verstehe ich das richtig: alle Dateien befinden sich in einem Verzeichnis? Wo willst Du denn die "absoluten Pfade" angegeben haben? Nur in den Formeln oder auch in VBA?
Falls es "nur" in Formeln sein sollte, müsste diesse Einstellungen unter Extras-> Optionen-> Berechnung ausreichen, nämlich "Remote-Bezüge aktualisieren" sowie "Externe Verknüpfungen" speichern.
Nach dem 1. Starten ím geänderten Verzeichnis sollten die Verküpfungen sich selbst finden. Ansonsten hilft auch unter Berarbeiten -> Verküpfungen die dort angezeigten Dateien mal zu markieren und die Verküpfungen zu aktualisieren.
Im VBA sieht es natürlich anderes aus wenn Dateipfade irgendwelchen Variablen zugewiesen sind, dann müsstest Du schon manuell rangehen und ggf. mit Suchen und Ersetzen arbeiten.
Gruss
LOthar

Hallo Florian,
meine Frage war ja eingangs schon: 'Wo willst Du denn die "absoluten Pfade" angegeben haben' oder meinetwegen auch der Author der Datei. Denn wenn Du dich nur auf die Formeln beschränkst, gibt es nur relative Verknüpfungen!!! Sicher ist es immer ein Problem bei Zugriff auf geschlossene Mappen: Solange Du nichts veränderst ist alles OK.
Der Dateipfad wird auch nur angezeigt, wenn die Zieldatei geschlossen ist. ("Externe Verknüpfungen speichern"-Feature.)
Veränderungen kannst Du eigentlich nur machen, wenn die betroffenen Dateien offen sind. Speicherst Du die dann in ein anderes Verzeichnis, werden die Änderungen automatisch übernommen.
Zu VBA Code gilt meine erste Aussage.
Sicherlich gibt es eine Möglichkeit einen Code zu erstellen, der die Formel-Verknüpfungen ändert, nur wenn es sich um ca. 100 Dateien in verschiedenen Unterverzeichnissen handelt, wird das schon sehr komplex. Ohne Detailangaben denk ich mal nicht, das dir ohne weiteres geholfen werden kann.
Vielleicht hilft Dir ja der folgende Code von HANS als Denkansatz, müsste natürlich angepasst werden:
StandardModule: basMain


Sub LinkUmleitung()
Dim var As Variant
Dim iCounter As Integer
Dim sName As String, sPath As String, sExt As String
sPath = ThisWorkbook.Path & "\"
sExt = ".xls"
sName = InputBox( _
prompt:="Quellarbeitsmappe:", _
Default:="test2")
If sName = "" Then Exit Sub
sName = sPath & sName & sExt
var = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(var) Then
For iCounter = 1 To UBound(var)
ActiveWorkbook.ChangeLink _
Name:=var(iCounter), newname:=sName
Next iCounter
End If
End Sub

--------
Gruss
Lothar

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread