Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Dateiname aus Hyperlink auslesen

Betrifft: Dateiname aus Hyperlink auslesen von: Claudia
Geschrieben am: 31.10.2014 18:04:55

Guten Abend liebe Ecxelhelfer/innen,

obwohl ich schon in der Recherche gesucht habe kann ich mein kleines Problem nicht selber lösen.

Ich habe eine sehr große Datei (Ausschnitt anbei) in der in der Spalte G der Name Dokument steht und hierauf ein Hyperlink gelegt ist.

Ich benötige bitte eine kleine VBA-Routine in der nur der Dokumentenname aus diesem Link (ohne Laufwerk etc) steht. Dieser Dokumentenname soll in Spalte J stehen.

Das gleiche dann auch noch für Spalte H, hier steht das Wort Notiz, und auch hier bitte eine kleine Routine das der Dokumentenname aus diesem Link in Spalte K steht.

https://www.herber.de/bbs/user/93480.xlsm

Ich hoffe sehr Ihr könnt mir helfen, vielen Dank im Voraus.
Claudia

  

Betrifft: AW: Dateiname aus Hyperlink auslesen von: Tino
Geschrieben am: 31.10.2014 18:23:10

Hallo,
versuche es mal so

kommt als Code in Modul1

Option Explicit 
 
Function LeseDateiName(rng As Range) As String 
Dim strPath$, ArTmp 
If rng.Hyperlinks.Count > 0 Then 
    strPath = rng.Hyperlinks.Item(1).Address 
    If InStr(strPath, "\") > 0 Then 
        ArTmp = Split(strPath, "\") 
    ElseIf InStr(strPath, "/") > 0 Then 
        ArTmp = Split(strPath, "/") 
    End If 
    LeseDateiName = ArTmp(Ubound(ArTmp)) 
End If 
End Function 
 J
620100706 OpRisk_Erfassung_v 1 2.pdf

Formeln der Tabelle
ZelleFormel
J6=LeseDateiName(G6)


Gruß Tino


  

Betrifft: AW: Dateiname aus Hyperlink auslesen von: Claudia
Geschrieben am: 31.10.2014 18:50:28

Hallo Tino,

super Idee funktioniert prima.
Danke Gruß Claudia


 

Beiträge aus den Excel-Beispielen zum Thema "Dateiname aus Hyperlink auslesen"