Office: Hyperlink zu verschiedenen Arbeitsblättern mit Name als Variable

Newbie_vba · 5. Juni 2016

Hallo Forum,

leider stehe ich voll auf dem Schlauch und benötige eure Hilfe.

Wie kann ich per vba für jede Zelle eine Hyperlink zum gleichnamigen Arbeitsblatt erzeugen.

Hier mein Versuch!
Code:

Sub Hyperlink()

Dim Zelle, Bereich As Range

Set Bereich = Range("B:B")

Range("Zelle").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'115876'!A1", ScreenTip:="xyxy"
With Selection.Font
.Name = "Calibri"
.FontStyle = "Standard"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With

Next Zelle

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Also in Spalte B steht untereinander z.B. 124, 458,468,131,78956
Und der Zellinhalt ist auch gleichzeitig der Name eins Arbeitsblattes.
Es handelt sich hierbei um über 1200 verschiedene Zellinhalte, also händisch wirklich mühsam.

Im Code müsste statt 115876 eine Variable stehen.

Danke im Voraus für eure Hilfe!

Beste Grüße Jean

:)

Beverly · 6. Juni 2016

Hi Jean,

variabel kannst du den Code nach diesem Prinzip gestalten:

Code:

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & Selection.Value & "'!A1", ScreenTip:="xyxy"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Newbie_vba · 7. Juni 2016

Hi Karin,

Danke für deine schnelle Antwort.
Könnte dort auch eben die variable 'Zelle' stehen?

Gruß Jean

Newbie_vba · 7. Juni 2016

Code:

Sub Hyperlink_zu_Mappen()

Dim Zelle, Bereich As Range
Dim i As Integer

Set i = 3 To End(xlUp).Row

Set Bereich = Cells(i, 2)

i.Select

For Each Zelle In Bereich

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & Selection.Value & "'!A1", ScreenTip:="xyxy"

With Selection.Font
.Name = "Calibri"
.FontStyle = "Standard"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With

Next Zelle

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt ist das mein Versuch, es tut sich aber garnichts.
Was mach ich falsch.
Ich glaube, dass die i falsch deklariert ist und mit der Reihenfolge stimmt, glaube ich, auch was nicht.

Gruß Jean*mad.gif*

Beverly · 7. Juni 2016

Hi Jean,

so sollte es funktionieren:

Code:

Sub HyperlinksErstellen()
Dim lngZeile As Long
For lngZeile = 3 To IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
ActiveSheet.Hyperlinks.Add anchor:=Cells(lngZeile, 2), Address:="", SubAddress:="'" & _
Cells(lngZeile, 2).Value & "'!A1", ScreenTip:="xyxy"
With Cells(lngZeile, 2).Font
.Name = "Calibri"
.Size = 11
.ThemeFont = xlThemeFontMinor
End With
Next lngZeile
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Newbie_vba · 8. Juni 2016

Hallo Karin!

Ja, funktioniert. vielen Dank für Deine Hilfe.
Da war ich ja total auf dem Holzweg.

Gruß Jean

Office: Hyperlink zu verschiedenen Arbeitsblättern mit Name als Variable

Hyperlink zu verschiedenen Arbeitsblättern mit Name als Variable

Hyperlink zu verschiedenen Arbeitsblättern mit Name als Variable

Hyperlink zu verschiedenen Arbeitsblättern mit Name als Variable

Hyperlink zu verschiedenen Arbeitsblättern mit Name als Variable - Similar Threads - Hyperlink verschiedenen Arbeitsblättern

Per Hyperlink ausgeblendetes Blatt einblenden

Bilder in einer HTML Mail werden mit Unterstrich angezeigt

Hyperlink zu Dateien

Mail senden maximale Textlänge erreicht ?

Inhalt eines Hyperlink Feldes in ein Textfeld kopieren

Word Hyperlinks (nicht unterstrichen) in der Fusszeile

Die Hyperlinks in Word leiten nicht zur korrekten Freigabe im Browser weiter.