Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink ersetzen

Forumthread: Hyperlink ersetzen

Hyperlink ersetzen
24.12.2003 09:03:35
Hans
Frohe Weihnachten liebe Exelfreunde,

wie kann ich automatisch den Pfad eines Hyperlinks durch einen anderen Pfad
ersetzten lassen.

Gruß
Hans
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink ersetzen
25.12.2003 08:07:39
Monika Weber
Hallo Hans,

Du könntest dazu eine VBA-Prozedur verwenden.


Sub test()
Dim hyp As Hyperlink
For Each hyp In ActiveSheet.Hyperlinks
If hyp.Address = "http://www.jumper.ch/" Then
hyp.Address = "https://www.herber.de/"
End If
Next hyp
End Sub


Es liebs Grüessli
Monika




http://www.jumper.ch

Anzeige
AW: Hyperlink ersetzen
25.12.2003 08:19:30
andre
hallo hans,
mit wenig vba-kenntnissen ist das schwer zu machen.
eigentlich brauchst du nur die entsprechende zelle zu aktivieren und dort den hyperlink neu zu setzen

Sub test()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Tabelle1!C2", TextToDisplay:="Tabelle1!c2"
End Sub

in der aktiven zelle wird der hyperlink gesetzt. wenn schon einer drin ist, wird er damit überschrieben/ersetzt.
gruss andre
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige