HERBERS Excel-Forum - die Beispiele

Thema: Absolute Adresse eines Hyperlinks feststellen

Home

Gruppe

Extern

Problem

Aus dem Hyperlink in Zelle A1 soll die absolute Adresse ermittelt werden. WindowsScriptingHost muss installiert sein.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub GetFileName()
   Dim fs As Object
   Dim f As Object
   Dim iChar As Integer
   Dim sFolder As String, sOrdner As String, sFile As String
   Dim sPathR As String, sPathA As String
   sPathR = ThisWorkbook.Path
   sFolder = Range("A1").Hyperlinks(1).Address
   If InStr(sFolder, "..\") Then
      For iChar = Len(sFolder) To 1 Step -1
         If Mid(sFolder, iChar, 1) = "\" Then Exit For
      Next iChar
      sFile = Right(sFolder, Len(sFolder) - iChar)
      sOrdner = WorksheetFunction.Substitute(sFolder, "..\", "")
      sOrdner = Left(sOrdner, InStr(sOrdner, "\"))
      Set fs = CreateObject("Scripting.FileSystemObject")
      Do While InStr(sFolder, "..\")
         Set f = fs.GetFolder(sPathR)
         sPathR = WorksheetFunction.Substitute(sPathR, "\" & f.Name, "", 1)
         sFolder = WorksheetFunction.Substitute(sFolder, "..\", "", 1)
      Loop
      Set fs = Nothing
      Set f = Nothing
      sFile = sPathR & "\" & sOrdner & sFile
   Else
      sFile = ThisWorkbook.Path & "\" & sFile
   End If
   MsgBox sFile
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und Wsh

'Run' & 'IWshShell3' Fehlermeldung VBA Dateiname externer Datei ändern
Tabellenblatt aus externer Exceldatei kopieren ConboBox mit externe Daten füllen
Wert in externer Datei suchen Aufruf externer Programme
Externe Bezüge auslesen mit VBA Externe Verküpfung anpassen
Pivot mit Externer DB am Limit? Externe Verknüpfungen
Blätter in Externer Arbeitsmappe einblenden externes Verzeichnis ansprechen
Externe Datenquelle via VBA Pivot mit Externer DB UNION funzt nich
Nur externe Bezüge rausnehmen *xlt-Dateien als externe Datenquelle nutzen
Externes Programm öffnen Makro: Bezug auf externes xls-File?
Wert an externes Programm übergeben Externe Excel-Verknüpfungen automatisiert ändern
Verlinkung externer Arbeitsmappen Tabelle in externer Datei löschen
externe Bezüge suchen/ersetzen neue Zeile und externe Bezüge....
Externe Verknüpfung finden externe Bezüge
Summenprodukt + Externe Bezüge Datenbank in externer Datei
Fehler beim Kopieren von externer Tabelle anzahl Blätter externer Excel-Datei
Externe Daten aus Access Externe Daten importieren aus Access
Zellwert als Parameter f. externes Script/Programm Worksheetzugriff auf externe Datei
Dropdown - externe Daten Externe Bezüge
Die Methode 'Run' für das Objekt 'IWshShell3' ist Zeitanzeige auf USF wenn ein externes Progr. läut
Externe Daten (QueryTable) ab 1 nummerieren Schnittstelle extern mit Lampen
Zelleninhalt für externes Programm kopieren Archivieren externer Dateien in Arbeitsblatt
Externer Vergleich externe Verknüpfung per Makro einfügen
Externe Verknüpfungen Externen Text mit Makro einfügen
Abfragekriterium externe Daten verändern Daten aus externer Mappe einfügen
externes Programm ausführen externe Verknüpfungen