KutoolsforOffice — Eine Lösung, fünf leistungsstarke Tools.Mehr erreichen mit weniger Aufwand.März-Aktion: 20 % Rabatt

Wie kann man mehrere Hyperlink-Pfade in Excel gleichzeitig ändern?

AutorXiaoyang Änderungsdatum

Aus bestimmten Gründen haben Sie möglicherweise mehrere Hyperlinks in Ihrem Arbeitsblatt erstellt, die alle mit demselben Dateipfad oder derselben Adresse verknüpft sind. Nun möchten Sie diesen Pfad gleichzeitig durch eine andere Adresse ersetzen. Da die manuelle Anpassung jedes einzelnen Hyperlinks sehr zeitaufwendig wäre – gibt es eine schnelle Lösung für dieses Problem?

Mehrere Hyperlink-Pfade gleichzeitig in einem Arbeitsblatt mithilfe eines VBA-Codes ändern

Mehrere Hyperlink-Pfade gleichzeitig in einem Arbeitsblatt / einer Arbeitsmappe / mehreren Blättern / einer Auswahl mit einer erstaunlichen Funktion ändern


Mehrere Hyperlink-Pfade gleichzeitig in einem Arbeitsblatt mithilfe eines VBA-Codes ändern

Angenommen, Sie haben eine Liste identischer Hyperlinks wie im folgenden Screenshot gezeigt. Mit einem VBA-Code können Sie den alten Dateipfad oder die alte Adresse in einem Arbeitsblatt schnell durch eine neue ersetzen.

Beispieldaten

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

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

VBA-Code: Mehrere Hyperlink-Pfade gleichzeitig ändern

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 anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Eingabefeld, in das Sie Ihre alte Hyperlink-Adresse in das Alter Text-Feld eingeben können. Siehe Screenshot:

VBA-Code zum Eingeben der alten Hyperlinkadresse

4. Klicken Sie auf OK, und es öffnet sich ein weiteres Eingabefeld, in dem Sie die neue Hyperlink-Adresse eingeben können, die Sie verwenden möchten.

VBA-Code zum Eingeben einer neuen Hyperlinkadresse

5. Klicken Sie anschließend auf OK, damit alle identischen alten Hyperlink-Adressen gleichzeitig durch die neue ersetzt werden. Siehe Screenshots:

UrsprungsdatenPfeil rechtsNeue Hyperlinks zum Ersetzen der alten

Mehrere Hyperlink-Pfade gleichzeitig in einem Arbeitsblatt / einer Arbeitsmappe / mehreren Blättern / einer Auswahl mit einer erstaunlichen Funktion ändern

Möchten Sie Hyperlink-Pfade innerhalb einer Auswahl, mehrerer Arbeitsblätter, der aktuellen Arbeitsmappe oder sogar mehrerer Arbeitsmappen ersetzen? Mit der Suchen und Ersetzen-Funktion von Kutools für Excel erledigen Sie diese Aufgabe im Handumdrehen.

Kutools für Excelbietet über 300 erweiterte Funktionen, um komplexe Aufgaben zu vereinfachen und so Kreativität sowie Effizienz zu steigern.Mit KI-Funktionen integriertautomatisiert Kutools Aufgaben präzise und macht die Datenverwaltung mühelos.Detaillierte Informationen zu Kutools für Excel...         Kostenlose Testversion...
Hinweis:Um dieses Suchen und Ersetzen Hilfsprogramm zu verwenden, laden Sie zunächst das Kutools für Excelherunter und wenden Sie die Funktion anschließend schnell und einfach an.

Nach der Installation von Kutools für Excelgehen Sie wie folgt vor:

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

Klicken Sie auf Kutools > Navigation

2. Klicken Sie im geöffneten Navigations-Bereich auf die Registerkarte Suchen und Ersetzen. Klicken Sie anschließend im Suchen und Ersetzen-Bereich auf die Registerkarte Ersetzen und führen Sie die folgenden Schritte aus:

  • Geben Sie den alten Hyperlink-Text, den Sie suchen möchten, in das Suchen nachTextfeld ein, und geben Sie anschließend den neuen Hyperlink-Text, durch den ersetzt werden soll, in das Ersetzen durchTextfeld ein;
  • Legen Sie im Dropdown-Menü Innerhalb vonden Bereich fest, in dem Sie den Hyperlink-Pfad Suchen und Ersetzen möchten;
  • Wählen Sie anschließend im Dropdown-Menü „Suchen in“ die Option „Hyperlinks“ aus;
  • Klicken Sie abschließend auf die Schaltfläche Alle suchen, damit alle entsprechenden Zellen, die den gesuchten Hyperlink-Text enthalten, unten in der Listenbox angezeigt werden.

Optionen im Bereich festlegen

3. Klicken Sie anschließend auf die Schaltfläche Alle ersetzen, um die alten Hyperlink-Pfade sofort durch die neuen zu ersetzen. Siehe Screenshot:

Die alten Hyperlinkpfade wurden durch die neuen ersetzt

Klicken Sie hier, um Kutools für Excel kostenlos als Testversion herunterzuladen!


Weitere verwandte Artikel:

  • Tatsächliche Adressen aus Hyperlinks extrahieren
  • Angenommen, Sie haben einen Zellbereich mit Hyperlinks und möchten das eigentliche Ziel dieser Hyperlinks anzeigen sowie sie – wie im folgenden Screenshot gezeigt – aus den Hyperlinks extrahieren: Gibt es eine einfache Möglichkeit, dies schnell zu erledigen?
  • Bild-URLs in Excel in tatsächliche Bilder umwandeln
  • Wenn Sie in Spalte A eine Liste mit Bild-URLs haben und die zugehörigen Bilder von diesen URLs herunterladen sowie wie im linken Screenshot gezeigt in der danebenliegenden Spalte B anzeigen möchten – wie extrahieren Sie in Excel schnell und einfach die tatsächlichen Bilder aus den Bild-URLs?
  • URL-Text in Excel in anklickbare Hyperlinks umwandeln
  • Angenommen, Ihr Arbeitsblatt enthält mehrere URLs, die noch nicht verlinkt sind – wie in den folgenden Screenshots gezeigt – und Sie möchten alle diese nicht verlinkten URLs in anklickbare Hyperlinks umwandeln. Zwar können Sie jede URL einzeln durch Doppelklicken aktivieren, doch bei einer großen Anzahl wird das schnell zeitaufwendig. Wie wandeln Sie mehrere nicht verlinkte URLs in Excel automatisch in anklickbare Hyperlinks um?

Beste Office-Produktivitätstools

🤖KUTOOLS AI-Assistent: Revolutionieren Sie Datenanalyse basierend auf:Intelligente Ausführung   |  Code generieren|  benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme erstellen|  Erweiterte Funktionen aufrufen
Beliebte Funktionen:Suchen, hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten kombinieren oder Zellen ohne Datenverlust   |   Runden ohne Formel...
Erweiterte SVERWEIS:VLookup mit mehreren Kriterien  |  VLookup mit mehreren Werten  |   VLookup über mehrere Arbeitsblätter hinweg   |   Fuzzy Match....
Erweiterte Dropdown-Liste:Schnell eine Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl-Dropdown-Liste....
Spalten-Manager:Eine bestimmte Anzahl von Spalten hinzufügen|Spalten verschieben|Sichtbarkeitsstatus ausgeblendeter Spalten umschalten|Bereiche & Spalten vergleichen...
Hervorgehobene Funktionen:Gitterfokus   |  Entwurf   |Erweiterte Formelleiste   | Arbeitsmappen- & Blatt-Manager   |  Ressourcenbibliothek(AutoText)|  Datumsauswahl   |  Arbeitsblätter konsolidieren  |  Verschlüsseln/Zellen entschlüsseln   | E-Mails per Liste versenden   |  Super Filter   |   Spezialfilter(Zellen mit fettgedruckter Schrift filtern/kursiv/durchgestrichen...) ...
Top-15-Toolsets:12-Text-Tools(Text hinzufügen,Bestimmte Zeichen löschen, ...)|   50+-Diagramm-Typen(Gantt-Diagramm, ...)|   40+ Praktische Formeln(Alter basierend auf dem Geburtstag berechnen, ...)|   19-Einfüge-Tools(QR-Code einfügen,Bild aus Pfad einfügen, ...)|   12-Konvertierungs-Tools(In Wörter umwandeln,Wechselkursumrechnung, ...)|   7-Vereinigen/Aufteilen-Tools(Erweiterte Zeilen zusammenführen,Zellen aufteilen, ...)|... und mehr
Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und 40+ weitere Sprachen!

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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...


Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher

  • Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
  • Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!

Alle Kutools-Add-Ins – ein Installationsprogramm

Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.

ExcelWordOutlookTabsPowerPoint
  • Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
  • Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
  • Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
  • 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
  • Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins