Dies kann nur mit einem Makro erreicht werden:
Public Sub ReplaceHyperlinkURL(FindString As String, ReplaceString As String) Dim LinkURL, PreStr, PostStr, NewURL As String Dim FindPos, ReplaceLen, URLLen As Integer Dim MyDoc As Worksheet Dim MyCell As Range On Error GoTo ErrHandler Set MyDoc = ActiveSheet For Each MyCell In MyDoc.UsedRange If MyCell.Hyperlinks.Count > 0 Then LinkURL = MyCell(1).Hyperlinks(1).Address FindPos = InStr(1, LinkURL, FindString) If FindPos > 0 Then 'If FindString is found ReplaceLen = Len(FindString) URLLen = Len(LinkURL) PreStr = Mid(LinkURL, 1, FindPos - 1) PostStr = Mid(LinkURL, FindPos + ReplaceLen, URLLen) NewURL = PreStr & ReplaceString & PostStr MyCell(1).Hyperlinks(1).Address = NewURL 'Change the URL End If End If Next MyCell Exit Sub ErrHandler: MsgBox ("ReplaceHyperlinkURL error") End Sub
Der ReplaceHyperlinkURL-Code muss in einem VBA-Code-Modul platziert werden. Drücken Sie in einer Kalkulationstabelle Alt + F11, um den VBA-Editor zu öffnen. Wählen Sie dann Insert - Module aus dem Menü. Kopieren Sie den Code und fügen Sie ihn in das Modul ein. Dann speichern Sie das Modul.
Erstellen Sie ein Makro, das die folgende Zeile enthält, und führen Sie das Makro in Excel aus, um die Prozedur auszuführen. Stellen Sie sicher, dass Sie den FindText durch den Teil der Adresse, den Sie suchen möchten, und ReplaceText durch den Text ersetzen, durch den Sie die Adresse ersetzen möchten.
Rufen Sie ReplaceHyperlinkURL auf ("FindText", "ReplaceText")