Hyperlink richtig anlegen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Hyperlink richtig anlegen
von: junior
Geschrieben am: 27.10.2015 10:58:49

Hallo,
wie erstelle ich ein Hyperlink in einem Tabellenblatt auf einen Ordner,
der sich nicht im Gleichen Pfad wie die Excel Datei befindet und bei einem Umzug auf einen anderen Rechner noch funktioniert?
Besser beschrieben:
Pfad Excel Datei:
h:\Daten\Excel\myExcel.xls
Pfad auf dem der Hyperlink aus der Excel Datei zugreifen soll:
h:\Daten\Hyperlink_Ordner\Ordner_1
Im Moment muss ich den kompletten Pfad angeben, bei einem Umzug auf einen anderen PC oder Partition würde der Hyperlink nicht mehr funktionieren,
wenn die Excel Datei sich nicht im gleichen Ordner befindet wie der zu verknüpfende Hyperlink.
Im Moment mache ich es so:
Worksheets("myExcel").Hyperlinks.Add Worksheets("myExcel").Cells(NoOfRows + 1, 13), "h:\Daten\Hyperlink_Ordner\Ordner_1", TextToDisplay:="Link"
Das Problem ist, dass ich einmal aus meiner Excel Datei Ordner raus muss....

Bild

Betrifft: AW: Hyperlink richtig anlegen
von: matthias
Geschrieben am: 27.10.2015 17:03:39
Hallo Junior,
den Pfad deiner Mappe erhältst du mit "ThisWorkbook.Path".
Um den Überordner zu erhalten musst du einfach nur den Pfad bei jedem "\" splitten und ohne den letzten Teil wieder zusammenfügen:

Sub Test()
Dim Pfad As Variant, Ueberordner As String
Dim x As Long
Pfad = ThisWorkbook.Path
Pfad = Split(Pfad, "\")
For x = LBound(Pfad) To UBound(Pfad) - 1
    If x = 0 Then
        Ueberordner = Pfad(x)
    Else
        Ueberordner = Ueberordner & "\" & Pfad(x)
    End If
Next x
MsgBox Ueberordner
End Sub
lg Matthias

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Hyperlink richtig anlegen"