|
Hi Siegfried, wohin verweist denn der Hyperlink "Wort" aus Blatt 2? Wenn es sich um einen Link handelt, der z.B. auf ein anderes Tabellenblatt verweist funktioniert bei mir folgender Code:
Sub Links_Uebernehmen()
Dim c As Range, d As Range
For Each c In Sheets("Blatt 1").Cells.SpecialCells(xlCellTypeFormulas)
c.ShowPrecedents
Set d = c.NavigateArrow(True, 1)
If d.Hyperlinks.Count > 0 Then c.Hyperlinks.Add c, "", d.Hyperlinks(1).SubAddress, , d.Hyperlinks(1).TextToDisplay
c.ShowPrecedents Remove:=True
Next c
End Sub
Der Code geht alle Zellen mit Formeln in Blatt 1 durch und prüft ob diese auf eine Zelle verweisen, die einen Hyperlink enthält. Wenn ja wird dieser Link der Zelle mit der Formel hinzugefügt.
Falls du nicht auf andere Tabellenblätter sondern z.B. auf Websites verweist, musst du diesen Code verwenden:
Sub Links_Uebernehmen()
Dim c As Range, d As Range
For Each c In Sheets("Blatt 1").Cells.SpecialCells(xlCellTypeFormulas)
c.ShowPrecedents
Set d = c.NavigateArrow(True, 1)
If d.Hyperlinks.Count > 0 Then c.Hyperlinks.Add c, d.Hyperlinks(1).Address, "", , d.Hyperlinks(1).TextToDisplay
c.ShowPrecedents Remove:=True
Next c
End Sub
Gruß Mr. K.
|