Office: (Office 2010) Mehrere Hyperlinks erstellen?

Schönen guten Tag,

ich brauche mal Hilfe ich habe ein kleine Tabelle dort steht z.B
in A1 bis A99 Links drinnen.
Nun brauch ich ein Makro welches von A1 bis A99 durch geht und aus den Links Hyperlinks macht mit dem TextToDisplay:="Anschauen".

So viel habe ich aber funktionert nicht richtig.
Einmal weil die aktion nur bei der ersten Zelle ausgeführt wird und zum einen weil
Address: nicht stimmt.


Code:

:)

 

Hallo ?,

das geht so.

Sub DoIndex()
Dim rng As Range

For Each rng In Range("A1:A99")
ActiveSheet.Hyperlinks.Add Anchor:=rng, _
Address:=rng.Text, SubAddress:="", _
TextToDisplay:="Anschauen"
Next

End Sub





Gruß Sepp

 

WoW das war schnell vielen dank.
Schau mir gleich Code an will gern verstehen^^.

 

ok eine neue Frage.
Wieder selbe Situation: Hab A1 bis A99 Links
Schleife soll durch gehen und alle zwischen A1 und A99 Zellen auslesen und durch das hier ersetzten.

HTML:

Link

 

Hallo ?,

du weißt aber schon, das HTML-Tags in einer Exceltabelle nicht funktionieren.


Sub DoLink()
Dim rng As Range

For Each rng In Range("A1:A99")
rng = "<a *****""" & rng.Text & """>Link</a>"
Next

End Sub



Gruß Sepp