Hallo Zusammen,

bei mehreren hundert Hyperlinks hat sich in der Adresse ein Teil geändert. Ich habe schon ein funktionierendes VBA Skript, allerdings tut das noch nicht ganz was ich möchte:

An sich soll in der Adresse "\\abc\trans\112.115\1609" die 112 auf 113 bei allen Links geändert werden. 

Jedoch haben die Links anschließend noch eine sich ändernde Nummer mit 1609, 1635 etc (\\abc\trans\112.115\1609; \\abc\trans\112.115\1635), welches mir durch das Skript jedoch gelöscht wird. Wie kann ich die hinteren Nummern durch das Skript beibehalten?

Vielen Dank

Sub hyper()
Dim oldtext As String
Dim newtext As String
Dim h As Hyperlink
oldtext = "\\abc\trans\112.115\"
newtext = "\\abc\trans\113.115\"
For Each h In ActiveSheet.Hyperlinks
x = InStr(1, h.Address, oldtext)
If x > 0 Then
'h.TextToDisplay = newtext
h.Address = newtext
End If
Next
End Sub