hyperlink per vba

Forumthread: hyperlink per vba
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: hyperlink per vba

hyperlink per vba

12.05.2014 23:08:48

rinkadink

Hallo,
ich habe ein Tabellenblatt (Uebersicht) in der in Spalte A
Ca. 100 Namen stehen A1-A100. Für jeden Namen existiert ein eigenes Tabellenblatt.
Der Tabellenblattname ist jeweils mit dem Zelleninhalt identisch.
Kennt jemand einen vba um alle Einträge in Spalte A in Hyperlink umzuwandeln mit Verlinkung auf das richtige, dazugehörige Tabellenblatt ?
Danke und beste Grüße

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: hyperlink per vba

13.05.2014 09:30:28

Hajo_Zi
AW: hyperlink per vba

13.05.2014 09:45:35

rinkadink
AW: hyperlink per vba

13.05.2014 09:47:34

Hajo_Zi

AW: hyperlink per vba

13.05.2014 09:30:28

Hajo_Zi


Option Explicit
Sub HyperlinErstellen()
Dim Razelle As Range
For Each Razelle In Range("A1:A100")
If Razelle  "" Then
Razelle.Hyperlinks.Add Anchor:=Razelle, Address:="", SubAddress:= _
Razelle & "!A3", TextToDisplay:=Razelle.Value
End If
Next Razelle
End Sub

AW: hyperlink per vba

13.05.2014 09:45:35

rinkadink

Guten Morgen Hajo,
Danke!!!
Die Zeile musste noch um zwei Anführungszeichen ergänzt werden dann ging es.
"'" & Razelle & "'" & "!A3", TextToDisplay:=Razelle.Value
Beste Grüße

AW: hyperlink per vba

13.05.2014 09:47:34

Hajo_Zi

Das Stand nicht im ersten Beitrag das Tabellenname Leerstelle enthält.