hyperlink ändern

14/11/2010 - 12:15 von Berthold Erfkämper | Report spam
Hallo NG-Gemeinde,

anknügfend an mein vorheriges Problem "dynamische Tabellennamen", kommt
hier nun die nàchste Herausforderung.
Durch das umbenennen der Tabellenblàtte stimmen natürlich die Hyperlinks
nun auch nicht mehr.
Habe den Code von Claus nun einfach mal umgestellt auf
replace(h.subadresse, ,).

Sub Hyperlink_aendern()
Dim h As Hyperlink
Dim Neu As String
Dim Jetzt As String

Neu = Worksheets(1).Cells(2, 2).Text
Jetzt = Right(Worksheets(1).Name, 4)

For Each h In ActiveSheet.Hyperlinks
h.SubAddress = Replace(h.SubAddress, Jetzt, Neu)
Next

End Sub


Leider ohne Erfolg.

Wo ist der Fehler?

Danke.

Berthold
 

Lesen sie die antworten

#1 Claus Busch
14/11/2010 - 12:51 | Warnen spam
Hallo Berthold,

Am Sun, 14 Nov 2010 12:15:17 +0100 schrieb Berthold Erfkàmper:

Durch das umbenennen der Tabellenblàtte stimmen natürlich die Hyperlinks
nun auch nicht mehr.



[Code ausgeschnitten]

Leider ohne Erfolg.



bist du sicher, dass es ohne Erfolg war? Funktionieren die HYperlinks
nicht? Oder stimmt nur die Anzeige nicht? Mit deinem Code àndert sich
die Hyperlinkadresse schon, aber nicht die Anzeige in der Zelle. Setzt
mal noch eine Zeile dazu:

h.SubAddress = Replace(h.SubAddress, Jetzt, Neu)
h.TextToDisplay = h.SubAddress


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen