Makro was die hyperlink Adresse in Zellen mit dem anzeigenden Text überschreibt

[Daniel Albert]

Hallo,

ich musste zu einer bestehenden Datenbank und zu Dokumenten die per Hyperlink in der Datenbank hinterlegt sind die Pfade ändern. Ich konnte zwar den "anzuzeigenden Text" der Hyperlinks über ERsetzen recht schnell ändern, aber den Hyperlink selbst nicht.

Ich konnte die Access Tabelle nach Excel exportieren.

Folgendes Makro von Uwe löscht die Hyperlinks. Ich brauche es aber so, dass der Hyperlink mit dem "Anzuzeigenden Text" überschrieben wird. Ist das möglich ?

Code:

Sub LinksZuHyperlinks()
 Dim rngZ As Range
 'On Error Resume Next
 For Each rngZ In Selection
   If rngZ.Hyperlinks.Count Then
     rngZ.Hyperlinks(1).Address = rngZ.Value
   End If
 Next rngZ
End Sub

Gruß Daniel

[Kuwer]

Hallo Daniel,

Folgendes Makro von Uwe löscht die Hyperlinks. Ich brauche es aber so, dass der Hyperlink mit dem "Anzuzeigenden Text" überschrieben wird. Ist das möglich ?

nö, da werden keine Hyperlinks gelöscht. Das macht genau das, was Du möchtest.

Gruß Uwe