Thema: Hyperlink richtig anlegen

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....

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

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....

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