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

Hyperlink: Anzuzeigender Text als Adresse

Forumthread: Hyperlink: Anzuzeigender Text als Adresse

Hyperlink: Anzuzeigender Text als Adresse
04.04.2025 13:59:01
Mono73
Hallo zusammen,

habe in Excel ein Verzeichnis, wo die zugehörigen Dokumente als Hyperlink hinterlegt sind.
Das Verzeichnis sowie die zugehörigen Dokumente bekommen einen neuen Speicherort.
Leider aktualisieren sich die Links nicht automatisch, es wurden (vor meiner Zeit) keine "variablen" angelegt.
Gibt es eine Möglichkeit den kompletten Link anzeigen zu lassen?

Folgend ein Beispiel:

Aktuell wird z.B. angezeigt: Testseite
Möchte aber den kompletten Link sehen: c://eurotone.de/pages/testseiten-fur-drucker-und-toner-tinte

Somit könnte ich dann durch die Funktion ersetzen "c://" durch "d://" und somit wären alle Links aktuell.

Vorab schon vielen Dank.
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink: Anzuzeigender Text als Adresse
04.04.2025 14:05:53
{Boris}
Hi,

zeig mal bitte eine kleines Beispieldatei mit 2-3 Links, um zu sehen, wie die Links genau angelegt wurden.

VG, Boris
AW: Hyperlink: Anzuzeigender Text als Adresse
04.04.2025 15:11:52
Mono73
Hallo Boris,

habe eben die Musterdatei hochgeladen.
Wie bereits erwähnt ist das C: nicht variabel, somit benötige ich die Ansicht des kompletten Links um das C durch D zu ersetzen.

VG
Anzeige
AW: Hyperlink: Anzuzeigender Text als Adresse
04.04.2025 15:23:41
{Boris}
Hi,

selektiere C6:C8 und lass folgenden Code laufen (vorher Einträge in Spalte D löschen - die Links werden dann dort hin geschrieben) 

Sub LinkAddress_auslesen()

Dim C As Range

For Each C In Selection

    Tabelle1.Hyperlinks.Add anchor:=C.Offset(0, 1), Address:="file:///" & C.Hyperlinks(1).Address

Next C

End Sub


VG, Boris
Anzeige
AW: Hyperlink: Anzuzeigender Text als Adresse
04.04.2025 16:12:44
Mono73
Hallo Boris,

vielen lieben Dank!
Habe es eben bei der Musterdatei versucht, funktioniert.
Werde mir am kommenden Montag mal die große Datei vornehmen, sollte es nicht funktionieren dann schreibe ich wieder.

Schönes WE und VG.
AW: Hyperlink: Anzuzeigender Text als Adresse
04.04.2025 15:35:21
UweD
Hallo

beides zusammen... 

Sub ErsetzeHyperlinks()

    Dim ws As Worksheet, hl As Hyperlink, aURL As String, nURL As String

    Dim aText As String, nText As String, Prä As String

    

    ' Aktives Arbeitsblatt festlegen

    Set ws = Sheets("Tabelle1")

    aText = "C:\"

    nText = "D:\"

    Prä = "file:///"

    

    ' Alle Hyperlinks im Blatt durchgehen

    For Each hl In ws.Hyperlinks

        aURL = hl.Address

        

        ' Prüfen, ob die Adresse aText enthält

        If InStr(1, aURL, aText, vbTextCompare) > 0 Then

            'ersetzen

            nURL = Replace(aURL, aText, nText)

            

            ' Neue Adresse setzen

            hl.Address = nURL

            hl.TextToDisplay = Prä & nURL

            

        End If

    Next hl



    MsgBox "Alle Hyperlinks wurden aktualisiert!", vbInformation

End Sub


LG UweD
Anzeige
AW: Hyperlink: Anzuzeigender Text als Adresse
04.04.2025 16:14:05
Mono73
Hallo Uwe,

vielen lieben Dank!
Werde mir am kommenden Montag mal die große Datei vornehmen, sollte es nicht funktionieren dann schreibe ich wieder.

Schönes WE und VG.
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum