Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.10.2025 18:39:44
Hilfe beim VBA-Code
08.10.2025 12:36:22
Hinweis für Word auf dem MAC
08.10.2025 12:35:32
Datumsabhängige Einträge in Zellen. Bedingter Formatierung.
08.10.2025 11:44:01
Faktor Uhrzeit hinzu fügen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlinks / Ersetzen

Forumthread: Hyperlinks / Ersetzen

Hyperlinks / Ersetzen
29.09.2008 17:34:04
Bernd
Hallo,
ich habe in einer Datei ziemlich viele Hyperlinks gesetzt. Nun hat sich das Quellverzeichnis der Links geändert und ich würde gerne die Links anpassen. Leider reicht Suchen/Ersetzen nicht, da die hyperlinkspezifische Adresse (sichtbar, wenn man den Hyperlink bearbeitet) von dem Ersetzvorgang leider nicht erfasst wird. Gibt es eine andere Möglichkeit, ohne jeden einzelnen Link manuell anzupassen?
Gruß
Bernd
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlinks / Ersetzen
29.09.2008 18:42:00
Tino
Hallo,
hier mal eine Möglichkeit die mir dazu einfällt.
Altern Pfad und neuen Pfad musst du anpassen, diese werden dann auf der aktiven Tabelle ausgetauscht.
Modul Modul1 
Option Explicit 
 
Sub Hyperlink_NeuerPfad() 
Dim hyLink As Hyperlink 
Dim strTempPfad As String 
 
Const strAlterPfad As String = "C:\AlterOrdner\" 'alter Pfad 
Const NeuerPfad As String = "C:\NeuerOrdner\" 'neuer Pfad 
     
    For Each hyLink In ActiveSheet.Hyperlinks 
     strTempPfad = Left$(hyLink.Address, InStrRev(hyLink.Address, "\")) 
        If strTempPfad = strAlterPfad Then 
          hyLink.Address = _
          NeuerPfad & Right$(hyLink.Address, Len(hyLink.Address) - InStrRev(hyLink.Address, "\")) 
        End If 
    Next hyLink 
 
End Sub


Gruß Tino

Anzeige
AW: Hyperlinks / Ersetzen
30.09.2008 07:33:00
Beverly
Hi Bernd,
andere Möglichkeit

Sub hyperlink_inhalte_ersetzen()
Dim hyAdresse As Hyperlink
With Worksheets("Tabelle1").UsedRange
For Each hyAdresse In .Hyperlinks
hyAdresse.Address = Replace(hyAdresse.Parent.Formula, "D:\Eigene Dateien\Excel\", " _
C:\Test\")
Next hyAdresse
End With
End Sub



Anzeige
AW: Hyperlinks / Ersetzen
30.09.2008 10:42:00
Bernd
Hallo zusammen,
irgendwie scheint das mit dem Ersetzen bei mir nicht hinzuhauen. Vielleicht liegt es an der komplexen Ordnerstruktur?
Hier nochmals Details: Die besagten Dateien, also die Datei mit den Hyperlinks und die Quelldatei befinden sich in einem Monatsordner (z. B. 07/2008), wobei die Quelldatei dann eine Verzeichnisebene darunter liegt, also z.B.
07_2008 mit der Hyperlinkdatei und dann der Unterordner 310708 mit der Quelldatei
Dann lege ich einen neuen Monatsordne : 08_2008 an und den zugehörigen Tagesordner 310808 und kopiere die beiden Dateien aus dem "alten" Monatsverzeichnis herüber.
Wenn ich nun die Funktion in Excel "Hyperlinks" bearbeiten aufrufen, dann reicht es aus, wenn ich in der Adressleiste 310708 durch 310808 ersetze, der Pfad, denn ich dort sehe ich nicht vollständig, d.h. 07_08 fehlt z. B.. Mir ist zwar nicht klar, warum nur der Tagesordner angezeigt wird, aber es reicht aus, diesen Tagesordner manuell von 310708 auf 310808 zu ändern.
Könntet Ihr das bitte nochmal überrpüfen? Im Grunde genommen würde es wohl ausreichen die 310708 in der Adressleiste der Hyperlinks durch 310808 zu ersetzen.
Gruß
Bernd
Anzeige
AW: Hyperlinks / Ersetzen
30.09.2008 14:10:00
Tino
Hallo,
teste mal diese Version.
Option Explicit
 
Sub Hyperlink_NeuerPfad()
Dim hyLink As Hyperlink
Dim strTempPfad As String
 
Const strAlterPfad As String = "07_2008" 'alter Ordner 
Const NeuerPfad As String = "08_2008" 'neuer Ordner 
     
    For Each hyLink In ActiveSheet.Hyperlinks
     If InStr(hyLink.Address, strAlterPfad) > 0 Then
      strTempPfad = Replace(hyLink.Address, alterpfad, NeuerPfad)
      hyLink.Address = strTempPfad
     Next hyLink
 
End Sub


Gruß Tino

Anzeige
AW: Hyperlinks / Ersetzen
30.09.2008 14:56:00
Bernd
Hallo Tino,
leider bekomme ich für "alterpfad" die Fehlermeldung:
Fehler beim Kompilieren: Variable nicht definiert
Was ist falsch?
Gruß
Bernd
Fehler von mir!
30.09.2008 15:07:56
mir!
Hallo,
war ein Fehler von mir, sorry.
Option Explicit

Sub Hyperlink_NeuerPfad()
Dim hyLink As Hyperlink
Dim strTempPfad As String
 
Const strAlterPfad As String = "07_2008" 'alter Ordner 
Const strNeuerPfad As String = "08_2008" 'neuer Ordner 
     
    For Each hyLink In ActiveSheet.Hyperlinks
     If InStr(hyLink.Address, strAlterPfad) > 0 Then
      strTempPfad = Replace(hyLink.Address, strAlterPfad, strNeuerPfad)
      hyLink.Address = strTempPfad
     End If
    Next hyLink
 
End Sub


Gruß Tino

Anzeige
Danke / Jetzt gehts!!!!
30.09.2008 15:37:05
Bernd
Hallo,
jetzt klappt es! Super, danke vielmals!
Gruß
bernd
;

Forumthreads zu verwandten Themen

Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
3 Beiträge
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
Anzeige
Suchen und ersetzen
zink

Hallo,
in einer Spalte stehen untereinander mehrere Hundert Namenseinträge nach dem Muster:
>
Name und Vorname also in einer Zelle, getrennt durch ein Komma.
Ich möchte jetzt, dass nur der 1. Buchstabe des Vornamens mit einem Abkürzungspunkt in der Zelle steht, also
><...
26.01.2009 08:32:40
Thread-ID: 1043740
6 Beiträge
Suchen und Ersetzen durch
pitt_111@gmx.de

Hallo Excel Gemeinde,
brauche wieder Eure EErfahrung und Hilfe.
In angehängter Tabelle soll nach Werten gesucht werden und diese
sollen entsprechend durch 1 ersetzt werden.
https://www.herber.de/bbs/user/59198.xls
Das suchen und ersetzen soll sich aber nur auf das betreffen...
07.02.2009 09:50:37
Thread-ID: 1047999
2 Beiträge
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Suchen und ersetzen per Makro...?
Horst

Hey !
Ich möchte Tabellenblätter kopieren und während oder nach dem kopieren des Tabellenblattes im kopierten Tabellenblatt eine Volltextsuche mit Textersetzung durchführen.
Kann mir jemand dazu einen Tipp geben?
Und gibt es zur Suche/Ersetzen eine bessere Variant als die aus der Ma...
02.04.2009 11:43:43
Thread-ID: 1066267
3 Beiträge
Anzeige
suchen und ersetzen
Detlef

Hallo alle zusammen,
ich habe mehrere Arbeitsblätter in denen ich immer den Inhalt einer Spalte überprüfe. Dabei wird der jeweilige Inhalt der Zelle mit dem Inhalt eines KorrekturArbeitsblattes verglichen. Wird der Zellinhalt gefunden, wird er ersetzt.
Im Moment mache ich das mit folgen...
04.06.2009 14:35:31
Thread-ID: 1079155
5 Beiträge
Marko zum Suchen und Ersetzen von Listenbegriffen
Listenbegriffen

Hallo Forum!
Ich verzweifele gerade (seit 2 Tagen) an einem Makro, das irgendwie nicht laufen will. Dabei klang es eigentlich relativ einfach.
Also, ich habe diverse Tabellenblätter, von denen das eine z.B. „BA2“ und ein anderes „Datenbank“ heißt. In „BA2“ stehen in Spalte A ab Zeile 5...
08.09.2009 11:56:07
Thread-ID: 1101193
7 Beiträge
Anzeige
Werte teilweise suchen und ersetzen
Ahmadian

Hallo zusammen,
ich möchte mit einem VBA-Code im z.B. Tabelle 1, Range("A1:B100") alle darin befindlichen "TO" durch ein "D" ersetzen.
Z.B.
In Zellen stehen: 18:00 - 06:00 TO (durch ein "D" die kompletten Zelleninhalte ersetzen).
Leere Zellen sollen leer bleiben.
Für eine...
08.09.2009 14:45:06
Thread-ID: 1101262
5 Beiträge
Anzeige
Wert suchen und ersetzen
VBAmateur

Hallo an alle,
bin noch Neuling in VBA und hier im Forum, und hoffe ich mache nicht zuviel falsch.
Ich habe ein Problem das ich auch nach vielen Stunden probieren mit meinen mageren Kenntnissen nicht lösen konnte. Hoffentlich kann mir jemand helfen.
Ich habe 10 Spalten von denen 3 i...
13.09.2009 15:45:57
Thread-ID: 1102420
6 Beiträge
Suchen und Ersetzen mit Ergebinsliste
Horst

Hey!
Ich möchte gerne Das Suchen und Ersetzen im Excel per VBA nachimplementieren.
Ich habe dann den VBA-Recorder angeschissen und dan kam dieses heraus:
------------------------------------------------------------------------
Cells.Replace What:="ABC", Replacement:="def", LookA...
24.09.2009 09:33:51
Thread-ID: 1105113
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Hyperlinks in Excel effizient ersetzen

Schritt-für-Schritt-Anleitung

Um Hyperlinks in Excel schnell zu ändern, kannst du VBA verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject (DeineDatei.xlsx)" > Einfügen > Modul.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Option Explicit

Sub Hyperlink_NeuerPfad()
    Dim hyLink As Hyperlink
    Dim strTempPfad As String

    Const strAlterPfad As String = "C:\AlterOrdner\" 'alter Pfad
    Const NeuerPfad As String = "C:\NeuerOrdner\" 'neuer Pfad

    For Each hyLink In ActiveSheet.Hyperlinks
        strTempPfad = Left$(hyLink.Address, InStrRev(hyLink.Address, "\")) 
        If strTempPfad = strAlterPfad Then
            hyLink.Address = NeuerPfad & Right$(hyLink.Address, Len(hyLink.Address) - InStrRev(hyLink.Address, "\"))
        End If
    Next hyLink
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus: ALT + F8, wähle Hyperlink_NeuerPfad und klicke auf Ausführen.

Diese Methode erlaubt es dir, alle Hyperlinks in Excel schnell zu ändern, ohne sie manuell zu bearbeiten.

Häufige Fehler und Lösungen

  • Fehler: "Variable nicht definiert": Dieser Fehler tritt auf, wenn du eine nicht definierte Variable verwendest. Stelle sicher, dass du die Namen in deinem Code korrekt schreibst, wie im Beispiel oben (strAlterPfad und strNeuerPfad).
  • Hyperlinks werden nicht aktualisiert: Überprüfe die Pfade und stelle sicher, dass die Hyperlinks tatsächlich den alten Pfad enthalten.

Alternative Methoden

Eine weitere Möglichkeit, Hyperlinks in Excel zu ändern, ist die Verwendung des Suchen und Ersetzen-Befehls, jedoch funktioniert dies nicht für die Adressen der Hyperlinks. Eine VBA-Lösung ist hier effektiver.

Zusätzlich kannst du die Hyperlink-Adresse mit einer Formel ersetzen, indem du die Adresse zuerst in eine Zelle extrahierst, dort änderst und dann zurück in den Hyperlink einfügst.

Praktische Beispiele

Hier sind einige nützliche VBA-Skripte:

  1. **Alle Hyperlinks in einem bestimmten Arbeits

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige