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

Forumthread: Hyperlink: Anzuzeigender Text

Hyperlink: Anzuzeigender Text
08.04.2025 13:00:19
Mono73
Hallo zusammen,

aus einem Hyperlink:

ttps://muster365.sharepoint.com/sites/Datei/See%20Muster/05%99Versuch/55%15NeuerVersuch%55/AA-BB-99-1234.docx

möchte ich nur das anzeigen lassen: AA-BB-99-1234.

Funktioniert das?
Der Link wird schon auf der Grundlage eines VBA-Codes komplett angezeigt.

Vorab schon vielen Dank.
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink: Anzuzeigender Text
08.04.2025 13:18:13
UweD
HAllo


Beziehst du dich auf den alten Beitrag, wo ich dir schon mal geholfen habe??


so in der Art? 

'....

            ' Neue Adresse setzen

            hl.Address = nURL

            

            Pos = InStrRev(nURL, "/")

            TMP = Mid(nURL, Pos + 1)

            Pos = InStrRev(TMP, ".")

            TMP = Left(TMP, Pos - 1)

            

            hl.TextToDisplay = TMP

           '...



LG UweD
Anzeige
AW: Hyperlink: Anzuzeigender Text
08.04.2025 13:37:54
Mono73
Hallo Uwe,

ja, das Ergebnis ist aus dem VBA Code, der hat nach einer kleinen Änderung hervorragen funktioniert, danke nochmals ;-)
Aber es soll hier nur die Nr. angezeigt werden.
Ist der Code vielleicht mit dem vorherigen verbindbar?

LG Mo
AW: Hyperlink: Anzuzeigender Text
08.04.2025 13:45:48
UweD
Den hatte ich in deine alte Datei bei mir so eingebaut.


Zeig mal den gesamten Code, inkl. der Änderungen bei dir.

Oder eine aktuelle Musterdatei.

LG UweD
Anzeige
AW: Hyperlink: Anzuzeigender Text
08.04.2025 14:08:24
Mono73
Hallo Uwe,

habe nur den Pfad etwas geändert, sowie Kleinigkeiten angepasst.

Folgend die Musterdatei.

LG Monika
AW: Hyperlink: Anzuzeigender Text
08.04.2025 14:11:07
Mono73
Hallo Uwe,

habe in der tatsächlichen nur den Pfad eine Endung sowie einen \ geändert, sonst nichts.

Hier die Musterdatei: https://www.herber.de/bbs/user/176651.xlsm

LG Mo

Anzeige
AW: Hyperlink: Anzuzeigender Text
08.04.2025 14:34:15
UweD
So? 
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, Pos As Integer, TMP As String

    

    ' Aktives Arbeitsblatt festlegen

    Set ws = Sheets("Tabelle1")

    aText = "\\global.mgroot.net\files\de-mg-team\21 - Production-Engineering\2117 - Templates ASU projects"

    nText = "//messer365.sharepoint.com/sites/Corp.Engineering/Shared%"

    Prä = "https://"

    

    ' 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

            

            Pos = InStrRev(nURL, "\")

            TMP = Mid(nURL, Pos + 1)

            Pos = InStrRev(TMP, ".")

            TMP = Left(TMP, Pos - 1)

            

            hl.TextToDisplay = TMP



        End If

    Next hl



    MsgBox "Alle Hyperlinks wurden aktualisiert!", vbInformation

End Sub

LG UweD
Anzeige
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