Note: The other languages of the website are Google-translated. Back to English

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?

Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
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!
officetab unten
Kommentare (45)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Es hat mir unglaublich viel Mühe gespart.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Liebe es, du ersparst mir eine Menge Arbeit.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, könnten Sie mir den VB-Code geben, wenn ich Links in Powerpoint anstelle von Excel ändern muss? Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, das scheint großartig zu funktionieren, aber einige Zeichen (zum Beispiel "\" und "%"). In meinem Fall habe ich Hyperlink-Adressen wie [../../../../../../Application%20Data/Microsoft/2012/Relacom%20Uki-Kantvik-Tallinna-Pietari-Uki_saate151012.xls] und Ich muss den Start [../../../../../../Application%20Data/Microsoft/] von der Adresse aus Hunderten von Links entfernen. Der Anfang der Links ist gleich, aber die Enden sind unterschiedlich. Hast du einen guten Rat?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke!!!! :lol: das hat sehr geholfen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie würde ich dies ändern, um Hyperlinks zu aktualisieren, die auf Verweise innerhalb einer Arbeitsmappe und nicht auf externe Webadressen verweisen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Benötigte nur dasselbe, versuchen Sie diese Änderungen: Sub ReplaceHyperlinks() 'Updateby20140220 Dim Wb As Workbook Dim Ws As Worksheet Dim xHyperlink As Hyperlink Dim xOld As String, xNew As String xTitleId = "CambiaLink" 'Set Ws = Application.ActiveSheet Set Wb = Application.ActiveWorkbook xOld = Application.InputBox("Alter Text:", xTitleId, "", Type:=2) xNew = Application.InputBox("New text:", xTitleId, "", Type:=2) Für jeden Ws In Wb.Worksheets 'Application.ScreenUpdating = False For Each xHyperlink In Ws.Hyperlinks Debug.Print ("voy" & xHyperlink.SubAddress) xHyperlink.SubAddress = Replace(xHyperlink.SubAddress, xOld, xNew) Next Next Application.ScreenUpdating = True End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Mauricio – Du bist großartig! Vielen Dank! Außerdem muss ich für einen anderen Bericht nur die Links auf bestimmten Registerkarten aktualisieren, ist das möglich?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke danke danke !!!!!!! Sie haben mir hier 2 Tage Arbeit erspart
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, mehrere Hyperlinks "anzuzeigenden Text" gleichzeitig zu ändern?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke für ein brillantes Stück Programm. Funktioniert WIE ein CHARME ... "WLC"
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Brillant! Vielen Dank!!!!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hey Leute, was fehlt mir, ich bekomme 'Compile error - Variable not defined' für die XTitleId in Excel 2013 :cry:
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Keine Sorge, ich habe es herausgefunden und als Zeichenfolge festgelegt
Dieser Kommentar wurde vom Moderator auf der Website minimiert
hat sehr geholfen vielen dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Dies ist der hilfreichste Excel-Artikel, der mir je begegnet ist. Ich hatte viele Probleme, bei denen Hyperlinks in einer Datei beschädigt wurden, oder ich den Speicherort einiger mit Hyperlinks versehener Dateien verschieben möchte, und das Aktualisieren war schon immer ein großes Problem. Mein Excel-Programmierer hatte keine einfache Lösung. Dies funktioniert einwandfrei. Ich bin sehr dankbar – danke!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wow! Das hat mir SO.VIEL.ZEIT gespart. Du bist unglaublich. Danke für das Teilen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist brilliant. Du hast mir SO.VIEL.ZEIT gespart. heute. Danke für das Teilen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für die Entwicklung! Ich hatte einen Benutzer, der auf mehreren Registerkarten (mindestens mehrere hundert) eine Reihe von Hyperlinks erstellte und irgendwie einen Dateipfad zu seinem AppData\Roaming-Ordner auf seinem C-Laufwerk anstelle des Netzwerkordners hatte. Ich konnte diesen Teil des Linkcodes mit Ihrem VBA-Skript entfernen, und jetzt funktioniert alles. Das hat uns wahrscheinlich die Aktualisierung einer Woche gespart, und die Implementierung hat weniger als 2 Minuten gedauert!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Tolle. Funktionierte wie ein Zauber auf Excel 2013, keine Optimierung erforderlich, im Gegensatz zu ähnlichen Fixes, die ich für dieses Problem gesehen habe. VIELEN DANK. Hat massive Kopfschmerzen und Stunden Zeit gespart.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe versucht, es auf Hyperlinks auszuführen, die Verweise auf andere Ordner enthalten, aber es hat nicht funktioniert. Wie würde ich dies ändern, um Hyperlinks zu aktualisieren, die auf Ordner auf einer Festplatte statt auf externe Webadressen verweisen?
Es sind noch keine Kommentare vorhanden
Mehr laden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL