Hyperlinks per VBA aktualisieren
25.10.2022 11:42:24
Magda
ich bin neu hier und habe natürlich gleich eine Frage die mir vielleicht jemand von euch beantworten kann. :)
ich hab eine Excel-Liste erstellt, bei der Datenblätter mittels eines Hyperlinks auf die dazugehörige Bezeichnung in "Spalte C" gelegt werden sollen.
Mit meinem VBA-Makro funktioniert die Aktualisierung bei dem USB-Stick (auf dem die Liste und die Datenblätter abgespeichert sind).
Wenn ich jetzt alle Daten in der gleichen Ordner-Struktur zum Beispiel auf den Desktop kopiere, funktioniert die Aktualisierung nicht mehr und ich bekomme eine Fehlermeldung, dass die mittels Hyperlink hinterlegte PDF-Datei nicht existiert. Dieses Problem ist in erster Linie ja logisch, da sich natürlich mein Laufwerk und somit mein Pfad für den Hyperlink geändert hat. Warum aber, kann ich den USB-Stick bei jedem beliebigen Laufwerk einstecken und es funktioniert immer und sobald ich die Dateien auf Laufwerk C (beispielsweise) kopiere, findet der Hyperlink die dazugehörige Datei nicht mehr? :)
Da ich die Excel-Datei für die Arbeit erstellt habe enthält diese natürlich sehr viele sensible Daten. Ich hab jetzt einfach auf die schnelle eine Beispiel-Datei erstellt und hoffe dass hier mein Wunsch/Problem trotzdem ersichtlich ist :) https://www.herber.de/bbs/user/155843.xlsm
Der von mir programmierte VBA-Code:
Sub HyperlinksAktualisieren()
Dim strPfad As String
Dim Dateiname As String
Dim x As Variant
Z = Sheets(1).UsedRange.Rows.Count
For i = 4 To Z
strPfad = "\Armaturenauswahl_Datenblätter"
x = Cells(i, 3)
Dateiname = (strPfad & "\" & x & ".pdf")
If Bauart "" Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 3), Address:= _
Dateiname, TextToDisplay:=x
End If
Next i
End Sub
Danke vorab und liebe Grüße
Magda