VBA Verbindung ändern

Sub Ändern() Dim PfadALT As String, PfadNEU As String PfadALT = Sheets("Tabelle1").Range("F2").Text PfadNEU = Sheets("Tabelle1").Range("F1").Text ActiveWorkbook.ChangeLink PfadALT, PfadNEU, Type:=xlExcelLinks End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub hyperlinkmod() ' hyperlinkmod Makro ' verändert links in zellen Dim x As Hyperlink Dim isect As Object For Each x In ActiveSheet.Hyperlinks Set isect = Intersect(Range("F1:G2"), x.Range) If Not isect Is Nothing Then x.Address = ActiveSheet.Range("B7") 'neuer Pfad ' x.SubAddress = 'verweis auf tabelle und zelle End If Next End Sub

Guten Morgen Ralf,
sorry für die späte Antwort aber brauchte einmal ein wenig Auszeit nachdem ich mich zu lange damit beschäftige aber keine Lösung finden konnte.
Ich habe auf mehreren Arbeitsmappen in einer Datei Pfade die auf z.B eine andere Datei Datei1.xlsm verweisen. Per manuelles Klicken könnte ich jetzt unter "Daten" "Verknüpfungen ändern" diese Pfade zu Datei2.xlsm ändern. Das würde ich gerne automatisieren, dass die Verweise in den Zellen dynamisch sind.
Ich dachte erst, dass man dies mit dem ChangeLink befehl machen könnte aber dabei gibt es die Fehlermeldung 1004, wenn ich es mit der Indirekt funktion mache habe ich nichts gewonnen da ich hierfür ja die Datei öffnen muss aus denen ich die Daten ziehe.
Um deine Frage mit den F1 - G2 zu beantworten. Hier wäre zum beispiel der AlterPfad und der NeuerPfad und ich dachte man kann VBA sagen: Changelink AlterPfad mit NeuerPfad.

Sub hyperlinkmod() ' hyperlinkmod Makro ' verändert links in zellen Dim x As Hyperlink Dim isect As Object For Each x In ActiveSheet.Hyperlinks If x.Address = Alterpfad Then x.Address = NeuerPfad 'neuer Pfad ' x.SubAddress = 'verweis auf tabelle und zelle End If Next End Sub

Hallo Toni,
danke für den Tipp. Leider bekomme ich hierbei auch einen Fehler.
Habe das ganze jetzt mit nem Workaround gemacht welcher folgenden Code hat:

Sub Open_ExistingWorkbook()
'öffnet Workbook
Pfad = Sheets("Tabelle1").Range("D1").Text
Workbooks.Open Pfad
'Kopiert Daten heraus
Windows("Text.xlsx").Activate
Selection.Copy
Windows("Makrotest.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("Text.xlsx").Activate
Range("B1:B12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Makrotest.xlsm").Activate
Range("B1").Select
ActiveSheet.Paste
'schließt Workbook
Workbooks Pfad.Close SaveChanges:=False
End Sub

Hierbei verstehe ich nicht ganz wie die Syntax genau funktioniert.
Workbooks.Open Pfad funktioniert einwandfrei aber für
Workbooks Pfad.Close SaveChanges:=False funktioniert dies nicht. Hatte statt ("dateiname.xlsx") dies mit Pfad ersetzt aber alle Syntaxvariationen sind gescheitert.

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

294 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Verbindung ändern

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

294 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread