Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateiname aus Hyperlink auslesen

Forumthread: Dateiname aus Hyperlink auslesen

Dateiname aus Hyperlink auslesen
31.10.2014 18:04:55
Claudia
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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiname aus Hyperlink auslesen
31.10.2014 18:23:10
Tino
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

Anzeige
AW: Dateiname aus Hyperlink auslesen
31.10.2014 18:50:28
Claudia
Hallo Tino,
super Idee funktioniert prima.
Danke Gruß Claudia
;
Anzeige
Anzeige

Infobox / Tutorial

Dateiname aus Hyperlink auslesen in Excel

Schritt-für-Schritt-Anleitung

Um den Dokumentennamen aus einem Hyperlink zu extrahieren, kannst Du die folgende VBA-Routine verwenden. Stelle sicher, dass Du die Schritte in Excel 2016 oder höher ausführst.

  1. Öffne die Excel-Datei, in der Du den Dokumentennamen aus dem Hyperlink auslesen möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden Code in das Modul ein:

    Option Explicit

Function LeseDateiName(rng As Range) As String
   Dim strPath As String, 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

  5. Schließe den VBA-Editor und kehre zu Deiner Excel-Datei zurück.

  6. Um den Dokumentennamen aus der Spalte G in Spalte J zu extrahieren, gib in Zelle J6 die Formel ein:

    =LeseDateiName(G6)

  7. Ziehe die Formel nach unten für die anderen Zellen in Spalte J.

Wiederhole den gleichen Vorgang für die Spalte H und benutze Spalte K, um den Dokumentennamen aus den Hyperlinks in Spalte H anzuzeigen.

Häufige Fehler und Lösungen

  • Fehler: LeseDateiName gibt #WERT! zurück.

    • Lösung: Stelle sicher, dass die Zelle in der Hyperlink vorhanden ist. Die Funktion funktioniert nur, wenn die Zelle tatsächlich einen Hyperlink enthält.

  • Fehler: Die Ausgabe ist nicht der erwartete Dokumentenname.

    • Lösung: Überprüfe, ob der Hyperlink korrekt ist und ob er tatsächlich zu einer Datei führt.

Alternative Methoden

Falls Du kein VBA verwenden möchtest, kannst Du auch die TEXT- und RECHTS-Funktionen in Excel verwenden, um den Dokumentennamen zu extrahieren, wenn der Hyperlink als Text angezeigt wird:

  1. Angenommen, der Hyperlink steht in G6, dann kannst Du folgende Formel verwenden:

    =RECHTS(G6;LÄNGE(G6)-FINDEN("/";G6;LÄNGE(G6)-LÄNGE(WECHSELN(G6;"/";"")))+1)

Diese Methode ist jedoch weniger robust als die VBA-Lösung.

Praktische Beispiele

Nehmen wir an, Du hast in Spalte G folgende Hyperlinks:

  • C:\Dokumente\Beispiel.pdf
  • D:\Projekte\Bericht.docx

Nach Anwendung der obigen VBA-Funktion in Spalte J, erhältst Du in den entsprechenden Zellen:

  • Beispiel.pdf
  • Bericht.docx

Tipps für Profis

  • Du kannst die VBA-Funktion erweitern, um auch Dateiendungen zu filtern oder andere Dateiinformationen zu extrahieren, indem Du die Logik innerhalb der Funktion anpasst.
  • Wenn Du häufig mit Hyperlinks arbeitest, erwäge, eine benutzerdefinierte Ribbon-Schaltfläche zu erstellen, um den Zugriff auf Deine VBA-Funktion zu erleichtern.

FAQ: Häufige Fragen

1. Wie kann ich den Hyperlink aus einer Zelle löschen, aber den Dokumentennamen behalten?
Du kannst den Hyperlink entfernen, indem Du mit der rechten Maustaste auf die Zelle klickst, Hyperlink entfernen wählst. Der Text bleibt erhalten.

2. Funktioniert diese Methode auch in Excel Online?
Leider unterstützt Excel Online keine VBA-Funktionen. Du müsstest die Funktionen in einer Desktop-Version von Excel ausführen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige