Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige