Thema: Hyperlink: Anzuzeigender Text

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.

Hallo,

beispielhaft so:

Sub Aulesen()

    Dim link$: link = "https://muster365.sharepoint.com/sites/Datei/See%20Muster/05%99Versuch/55%15NeuerVersuch%55/AA-BB-99-1234.docx"

    MsgBox Right(link, Len(link) - InStrRev(link, "/", , vbTextCompare))

End Sub

Gruß Uwe

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

Versuch mal so...(Formel in Excelzelle eingeben)

=HYPERLINK("https://muster365.sharepoint.com/sites/Datei/See%20Muster/05%99Versuch/55%15NeuerVersuch%55/AA-BB-99-1234.docx";"AA-BB-99-1234")

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

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

Hallo Uwe,

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

Folgend die Musterdatei.

LG Monika

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

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