Hyperlink: Text bearbeiten
06.05.2004 15:17:40
mattes
ich möchte in einen existierenden hyperlink per VBA-Programm ändern.
Habe das schon mit folgendem Programm versucht:
Sub HyperLinkChange()
Dim oldtext As String
Dim newtext As String
Dim h As Hyperlink
' Beliebiger Textbestandteil eines Hyperlink, z.B. ".com" oder ".org".
oldtext = "lllll"
newtext = "qqqqqqqqqqq"
' Alle Hyperlinks im aktiven Arbeitsblatt prüfen.
For Each h In ActiveSheet.Hyperlinks
x = InStr(1, h.Address, oldtext)
If x > 0 Then
h.Address = newtext
h.Address = Application.WorksheetFunction. _
Substitute(h.Address, oldtext, newtext)
End If
Next
End Sub
Leider lässt sich damit nur der "hintere" Teil der URL ändern. Der Pfad "c:\eigene Dateien\daten" bleibt jedoch immer gleich; aber genau das möchte ich ändern.
Hat jemand eine Idee ?
Vielen Dank vorab für Eure Hilfe.
Mattes
Anzeige