George fügt häufig Hyperlinks in seine Arbeitsblätter ein. Diese Hyperlinks beziehen sich auf Dateien verschiedener Typen, die sich auf seinem Computersystem befinden. Wenn er die Hyperlinks einfügt, ist der Standard-Hyperlink-Text, den Excel einfügt, der vollständige Pfad und Dateiname für die Datei. George möchte, dass dieser Hyperlink-Text standardmäßig nur aus dem Dateinamen ohne den vollständigen Pfad besteht.

Es gibt eine sehr einfache Möglichkeit, das gewünschte Ergebnis zu erzielen: Verschieben Sie die Arbeitsmappe einfach in denselben Ordner mit den Dateien, zu denen Sie Hyperlinks wünschen. Wenn Sie das Dialogfeld Hyperlink einfügen verwenden, wird der Dateiname – ohne Pfad – für den Link verwendet.

Wenn dies nicht möglich ist, führt die Verwendung des Dialogfelds Hyperlink einfügen zu einem vollständigen Pfad, der sowohl im Feld Adresse als auch im Feld Text zur Anzeige des Dialogfelds Hyperlink einfügen endet. Es gibt keine Möglichkeit, dieses Standardverhalten zu ändern. Sie können nur die von Excel vorgeschlagene Standardeinstellung bearbeiten. Dies bedeutet, dass Sie das Feld Text to Display im Dialogfeld Hyperlink einfügen auf individueller Hyperlinkbasis so bearbeiten können, dass nur der Dateiname wie gewünscht angezeigt wird.

Dies erfordert natürlich viel Bearbeitung – daher der Anstoß für Georges Abfrage. Es gibt verschiedene Möglichkeiten, dies zu umgehen. Das erste ist, sich nicht auf das Dialogfeld Hyperlink einfügen zu verlassen. Erstellen Sie stattdessen eine Formel, die den Hyperlink mithilfe der HYPERLINK-Funktion einfügt. Angenommen, Sie haben in Zelle C2 einen Pfadnamen zu dem Ordner, der Ihre Dateien enthält:

C:\Users\allen\Desktop\

Außerdem könnten Sie eine Liste von Dateinamen im Bereich D2: D75 haben, wie zum Beispiel:

MyWorkbook.xlsx MyDocument.docx MyPDF.pdf

Sie können eine solche Formel in Zelle E2 einfügen:

=HYPERLINK($C$2 & D2,D2)

Kopieren Sie die Formel in den Bereich E3: E75, und Sie erhalten Ihre Hyperlinks nach Ihren Wünschen.

Wenn Sie bereits eine Reihe von eingefügten Links in der Tabelle haben (z. B. in Spalte A), können Sie eine etwas größere Formel verwenden, um nur den Dateinamen zu extrahieren und anzuzeigen:

=HYPERLINK(A1,SUBSTITUTE(A1,LEFT(A1,FIND(CHAR(1),SUBSTITUTE(A1, "\",CHAR(1),LEN(A1)-LEN(SUBSTITUTE(A1,"\",""))))),""))

Sie können dann die Spalte mit den Hyperlinks für den vollständigen Pfad ausblenden, sodass nur die gewünschten verkürzten Versionen angezeigt werden.

Wenn Sie viele Hyperlinks haben, die Sie beeinflussen möchten, können Sie den Pfad mit einem Makro aus allen vorhandenen Hyperlinks entfernen.

Sub FixHyperlinkDesc()

Dim h As Hyperlink     Dim sRaw As String     Dim iPos As Integer

For Each h In ActiveSheet.Hyperlinks         sRaw = h.TextToDisplay         iPos = Instr(1, sRaw, "\")

While (iPos > 0)

sRaw = Mid(sRaw, iPos + 1, Len(sRaw))

iPos  = Instr(1, sRaw, "\")

Wend         If sRaw <> h.TextToDisplay Then             h.TextToDisplay = sRaw         End If     Next h End Sub

Das Makro berührt nur den Anzeigetext für jeden Hyperlink und löscht alles vor dem endgültigen Backslash. Das Makro hat keine Auswirkungen auf Elemente, die als Ergebnis einer HYPERLINK-Funktion angezeigt werden.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (13279) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365.