Wendy hat ein einziges Excel-Arbeitsblatt, das über 1.200 Hyperlinks zu TIFF-Dateien enthält. (Dies sind Hyperlinks, keine regulären Links.) Excel hatte Probleme und musste heruntergefahren werden. Emily verwendete die automatisch gespeicherten Dateien, um die zuvor gespeicherte Datei wiederherzustellen. Jetzt funktionieren alle zuvor funktionierenden Hyperlinks nicht mehr. Sie hatte die Hyperlinks zu den Bildern auf einem freigegebenen Netzlaufwerk, aber AutoSave änderte die Hyperlinks, um auf das Laufwerk C: zu verweisen. Sie fragt sich, ob es eine einfache Möglichkeit gibt, sie wieder auf dem freigegebenen Netzlaufwerk zu reparieren.

Auf den ersten Blick scheint es so, als könnten Sie die reguläre Funktion zum Suchen und Ersetzen von Excel verwenden, um die Festplattenbezeichnung zu finden (wie in Datei: // c 🙂 und durch ein Netzwerklaufwerk zu ersetzen (wie in Datei: // shareddrive). Das Problem ist, dass dieser Ansatz nur einen Teil des Problems behebt – er ändert nur den angezeigten Teil des Hyperlinks, nicht den zugrunde liegenden Hyperlink selbst. Der einzige Weg, um zum Hyperlink selbst zu gelangen, ist die Verwendung eines Makros.

Angenommen, alle zu ändernden Hyperlinks befinden sich im selben Arbeitsblatt, können Sie das folgende Makro verwenden:

Sub FixHyperlinks()

Dim h As Hyperlink     Dim sOld As String     Dim sNew As String

sOld = "c:\"      sNew = "S:\Network\"

For Each h In ActiveSheet.Hyperlinks         h.Address = Replace(h.Address, sOld, sNew)

Next h End Sub

Sie müssen lediglich die Werte ändern, die den Variablen sOld und sNew zugewiesen sind.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (8624) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Ändern der großen Anzahl von Hyperlinks.