PDF-Dateien mit Excel logisch verknüpfen

Computer: Software & Programmierung Office Software
1

Hallo zusammen,
ich habe folgendes Problem.

Habe eine Exel - Datei mit verschiedenen Inhalten auf mehreren „Reitern / Mappen“. Nun möchte ich auf verschiedene Textpassagen oder Wörter > PDF-Dateien verlinken.

Solange dies nun alles auf einem Rechner bleibt funktioniert das ganze auch wunderbar.

Die Datei soll allerdings auch auf USB-Stick gezogen werden, und ggf. per Email verschickt werden. Sobald ich dies mache, sind die „Verlinkungen“ natürlich nicht mehr richtig, selbst wenn ich den Ordner, worin die PDF-Dateien liegen, „mitnehme“. Der Pfad ändert sich halt…

Gibt es hierfür eine Lösung? Würde mich freuen, wenn mir da jemand weiterhelfen kann.

Grüße

2

Hallo,

du kannst mal versuchen, den folgenden Code im VBA-Editor (Alt+F11) auf Arbeitsmappen-Ebene zu speichern und die Datei dann aus einem anderen Pfad heraus zu öffnen. Aber bitte nur mit einer Sicherungskopie testen! Voraussetzung ist auch, dass die PDFs im selben geänderten Ordner liegen wie die XLS.

Private Sub Workbook\_Open()
 Dim ws As Worksheet
 Dim hl As Hyperlink
 Dim pfad As String
 Dim pos As Integer
 With ThisWorkbook
 pfad = .Path
 For Each ws In .Worksheets
 For Each hl In ws.Hyperlinks
 pos = InStrRev(hl.Address, "\") - 1
 hl.Address = pfad & Right(hl.Address, Len(hl.Address) - pos)
 Next hl
 Next ws
 End With
End Sub

Gruß
smalbop