Direkt zum Inhalt

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.

Hinweis:Um dies anzuwenden Suchen und Ersetzen Dienstprogramm, zuerst sollten Sie das herunterladen Kutools for Excelund wenden Sie die Funktion dann schnell und einfach an.

Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:

1. Klicken Sie Kutoolen > Navigation, siehe Screenshot:

2. In der geöffneten Navigation 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:

  • Extrahieren Sie tatsächliche Adressen aus Hyperlinks
  • Angenommen, Sie haben eine Reihe von Zellen, die Hyperlinks enthalten, und jetzt müssen Sie das tatsächliche Ziel der Hyperlinks sehen und diese aus den Hyperlinks extrahieren, wie im folgenden Screenshot gezeigt. Gibt es einfache Möglichkeiten, dieses Problem schnell zu lösen?
  • Konvertieren Sie Bild-URLs in tatsächliche Bilder in Excel
  • Wenn Sie eine Liste mit Bild-URL-Adressen in Spalte A haben und jetzt die entsprechenden Bilder von den URLs herunterladen und in der angrenzenden Spalte B anzeigen möchten, wie im linken Screenshot gezeigt. Wie können Sie in Excel die tatsächlichen Bilder schnell und einfach aus den Bild-URLs extrahieren?
  • Konvertieren von URL-Text in anklickbaren Hyperlink in Excel
  • Angenommen, Ihr Arbeitsblatt enthält mehrere URLs, die jedoch nicht verknüpft sind. Jetzt müssen Sie alle nicht verknüpften URLs in anklickbare Hyperlinks konvertieren (siehe folgende Screenshots). Natürlich können Sie sie einzeln doppelklicken, um sie anklickbar zu machen. Dies ist jedoch zeitaufwändig, wenn viele URLs vorhanden sind. Wie können Sie mehrere nicht verknüpfte URLs in Excel automatisch in anklickbare Hyperlinks konvertieren?

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

kte tab 201905


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (47)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
This might be an older article, but was exactly what I needed. Thank you!
This comment was minimized by the moderator on the site
hi
thanks man you helped me a lot
This comment was minimized by the moderator on the site
I downloaded this and gave it a try and it did nothing. My hyperlinks look like this: file///\\server\shared\PO\CY2021\25079.pdf. I'm trying to change "server" to "server1" after a migration. I do the find/replace and choose Hyperlink, execute it, and... nothing happens. 
Any ideas?
This comment was minimized by the moderator on the site
Hello John,Sorry to hear that. The reason why the find/replace function didn't work is that your hyperlink file///\\server\shared\PO\CY2021\25079.pdf is not valid. According to the Excel dialog box, it shows the address of this site is not valid. Check the address and try again.
Then when I change your hyperlink to http://file///\\server\shared\PO\CY2021\25079.pdf, the find/replace function works perfectly. Please have a try. Have a nice day.
Sincerely,Mandy
This comment was minimized by the moderator on the site
Muchas gracias, me ahorraste mucho tiempo actualizando hipervinculos!
This comment was minimized by the moderator on the site
Muito obrigado! Você me salvou dezenas de horas de sono que seriam perdidas atualizando links.
This comment was minimized by the moderator on the site
Would it be possible to have a version to set a macro in power point for update links to excel, happens that monthly we need to link the power point presentation to a new excel in a new location. I have to do it one by one and it takes hours! MANY THANKS!!!!

This comment was minimized by the moderator on the site
Thankyou so much for the vba fix. I knew there had to be an easy way to fix my hyperlink problem and you provided it :) I am extremely grateful.
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Hello, Schweppy,
The below code can help you to replace the hyperlinks in all sheets, please try.

Sub ReplaceHyperlinks()
Dim xWs As Worksheet
Dim xWss As Sheets
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
Set xWss = Application.ActiveWorkbook.Worksheets
For Each xWs In xWss
For Each xHyperlink In xWs.Hyperlinks
xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Next xWs
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
This is amazing!!! Thank you for posting the code that works for all of the worksheets. I had the hardest time finding this and couldn't figure out how to create it myself. Thank you so much for sharing your code with the world!!!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Your code helped me update hundreds of hyperlinks in a blink of an eye. Thank you soo much for you help.
This comment was minimized by the moderator on the site
Thanks a lot, works perfectly fine. Highly appreciated.
This comment was minimized by the moderator on the site
Glad it helps. Any questions, please feel free to contact us. Have a nice day!
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Had a spreadsheet with over 200 items that had hyperlinks that needed to be edited. This just saved me SO MUCH TIME. THANK YOU!!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations