Wie ändere ich mehrere Hyperlinkpfade gleichzeitig in Excel?

Aus irgendeinem Grund können Sie mehrere Hyperlinks für Ihre Daten im Arbeitsblatt erstellen, und alle Hyperlinks sind mit demselben Dateipfad oder derselben Adresse verknüpft. Jetzt müssen Sie diesen Hyperlinkpfad jedoch jeweils durch eine andere Adresse ersetzen. Es kann viel Zeit kosten, den Pfad der Hyperlinks einzeln zu ändern. Gibt es eine schnelle Möglichkeit, dieses Problem zu lösen?

Ändern Sie mehrere Hyperlinkpfade gleichzeitig in einem Arbeitsblatt mit VBA-Code

Ändern Sie mehrere Hyperlinkpfade gleichzeitig in einem Arbeitsblatt / einer Arbeitsmappe / mehreren Arbeitsblättern / einer Auswahl mit einer erstaunlichen Funktion

Ändern Sie mehrere Hyperlinkpfade gleichzeitig in einem Arbeitsblatt mit VBA-Code

Angenommen, Sie haben eine Liste mit Daten mit denselben Hyperlinks wie im folgenden Screenshot und können mit einem VBA-Code den alten Dateipfad oder die alte Adresse in einem Arbeitsblatt schnell durch einen neuen ersetzen.

1. Halten Sie die ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Anwendungsfenster.

2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modulfenster.

VBA-Code: Ändern Sie mehrere Hyperlink-Pfade gleichzeitig

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3. Dann drücken F5 Schlüssel zum Ausführen dieses Codes und ein Eingabeaufforderungsfeld, mit dem Sie Ihre alte Hyperlink-Adresse in das eingeben können Alter Text Box. Siehe Screenshot:

4. Klicken Sie OKund ein weiteres Eingabeaufforderungsfeld wird angezeigt, um Sie daran zu erinnern, die neue Hyperlink-Adresse einzugeben, die Sie verwenden möchten.

5. Und dann klick OKAlle alten Hyperlink-Adressen wurden sofort durch die neuen ersetzt. Siehe Screenshots:

Ändern Sie mehrere Hyperlinkpfade gleichzeitig in einem Arbeitsblatt / einer Arbeitsmappe / mehreren Arbeitsblättern / einer Auswahl mit einer erstaunlichen Funktion

Wie können Sie vorgehen, wenn Sie die Hyperlinkpfade aus einer Auswahl, mehreren Arbeitsblättern, einem aktuellen Arbeitskook oder mehreren Arbeitsmappen ersetzen möchten? Mit Suchen und Ersetzen Merkmal von Kutools for Excelkönnen Sie diese Aufgabe schnell erledigen.

Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:

1. Klicken Sie Kutoolen > Menü, siehe Screenshot:

2. In der geöffneten Menü Bereich, klicken Sie auf Suchen und Ersetzen Registerkarte, in der Suchen und Ersetzen Bereich, klicken Sie auf Ersetzen Klicken Sie auf die Registerkarte, und führen Sie dann die folgenden Vorgänge aus:

• Geben Sie den alten Hyperlink-Text, den Sie finden möchten, in das ein Finden Sie, was Textfeld, und geben Sie dann den neuen Hyperlink-Text, durch den Sie ersetzen möchten, in das ein Ersetzen durch Textfeld;
• Geben Sie den Bereich an, in dem Sie den Hyperlinkpfad suchen und ersetzen möchten Innerhalb Dropdown-Liste;
• Wählen Sie dann Hyperlinks aus der Dropdown-Liste Suchen in aus.
• Endlich, klick Finde alle Mit der Schaltfläche werden alle entsprechenden Zellen, die den spezifischen Hyperlink-Text enthalten, im unteren Listenfeld aufgelistet.

3. Dann klick Alle ersetzen Schaltfläche, die alten Hyperlink-Pfade wurden sofort in die neuen geändert, siehe Screenshot:

Klicken Sie hier, um Kutools for Excel kostenlos zu testen!

Weitere relative Artikel: