Wie ändert man mehrere Hyperlink-Pfade gleichzeitig in Excel?

Aus bestimmten Gründen erstellen Sie möglicherweise mehrere Hyperlinks für Ihre Daten im Arbeitsblatt, und alle diese Hyperlinks verweisen auf denselben Dateipfad oder dieselbe Adresse. Nun möchten Sie diesen Hyperlink-Pfad jedoch durch eine andere Adresse ersetzen. Das individuelle Ändern der Pfade der Hyperlinks könnte viel Zeit in Anspruch nehmen. Gibt es eine schnelle Möglichkeit, dieses Problem zu lösen?

Ändern Sie mehrere Hyperlink-Pfade gleichzeitig in einem Arbeitsblatt mit VBA-Code.

Ändern Sie mehrere Hyperlink-Pfade gleichzeitig in einem Arbeitsblatt / einer Arbeitsmappe / mehreren Blättern / einer Auswahl mit einer erstaunlichen Funktion.

Ändern Sie mehrere Hyperlink-Pfade gleichzeitig in einem Arbeitsblatt mit VBA-Code.

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

1. Halten Sie die Tasten ALT + F11 gedrückt, und das Fenster Microsoft Visual Basic for Applications wird geöffnet.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie das folgende Makro in das Modulfenster ein.

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. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und ein Eingabefenster erscheint, in dem Sie die alte Hyperlink-Adresse in das Feld „Alte Adresse“ eingeben sollen. Siehe Screenshot:

4. Klicken Sie auf OK, und ein weiteres Eingabefenster erscheint, das Sie auffordert, die neue Hyperlink-Adresse einzugeben, die Sie verwenden möchten.

5. Klicken Sie dann auf OK, und alle alten Hyperlink-Adressen wurden sofort durch die neue ersetzt. Siehe Screenshots:

Ändern Sie mehrere Hyperlink-Pfade gleichzeitig in einem Arbeitsblatt / einer Arbeitsmappe / mehreren Blättern / einer Auswahl mit einer erstaunlichen Funktion.

Wenn Sie die Hyperlink-Pfade aus einer Auswahl, mehreren Blättern, der aktuellen Arbeitsmappe oder mehreren Arbeitsmappen ersetzen möchten, wie könnten Sie dies tun? Mit der Funktion Suchen und Ersetzen von Kutools for Excel können Sie diese Aufgabe schnell erledigen.

Nach der Installation von Kutools for Excel gehen Sie bitte wie folgt vor:

1. Klicken Sie auf Kutools > Navigation, siehe Screenshot:

2. Im geöffneten Navigationsfenster klicken Sie auf den Reiter Suchen und Ersetzen. Im Bereich Suchen und Ersetzen klicken Sie auf den Reiter Ersetzen und führen dann die folgenden Schritte aus:

• Geben Sie den alten Hyperlink-Text, den Sie finden möchten, in das Feld „Suchen nach“ ein, und geben Sie dann den neuen Hyperlink-Text, mit dem Sie ihn ersetzen möchten, in das Feld „Ersetzen durch“ ein;
• Legen Sie den Bereich fest, in dem Sie den Hyperlink-Pfad suchen und ersetzen möchten, über die Dropdown-Liste „Innerhalb“;
• Wählen Sie dann Hyperlinks aus der Dropdown-Liste „Suchen in“ aus;
• Klicken Sie abschließend auf die Schaltfläche Alle suchen, und alle entsprechenden Zellen, die den spezifischen Hyperlink-Text enthalten, werden in der unteren Listenbox aufgeführt.

3. Klicken Sie dann auf die Schaltfläche Alle ersetzen, und die alten Hyperlink-Pfade werden sofort durch die neuen ersetzt, siehe Screenshot:

Klicken Sie hier, um Kutools for Excel für eine kostenlose Testversion herunterzuladen!

Weitere relevante Artikel: