Hyperlinks zu gleichnamigen Tabellenblättern
07.06.2019 16:08:40
Alex
Ich habe folgendes Problem.
Ich habe eine Excelmappe mit ca. 80-90 Blättern, zwischen denen ich hin und herspringen muss.
Über folgendes Makro habe ich mir schonmal eine Art Inhaltsverzeichnis erstellt:
Sub Verzeichnis_Blaetter()
'Erstellen einer Liste aller Excel-blaetter
Dim Zeile As Integer
Dim Liste As Worksheet
Set Liste = ActiveWorkbook.Worksheets.Add 'Neues Blatt hinzufügen
For Zeile = 1 To ActiveWorkbook.Worksheets.Count 'Zeile für jedes Blatt wechseln
Liste.Cells(Zeile, 1).Value = Worksheets(Zeile).Name 'Name des Blatts in die Zeile schreiben
Next Zeile
Worksheets(1).Name = "Übersicht" 'Huebsch machen
Range("A1").Select
ActiveCell.FormulaR1C1 = "Übersicht"
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Selection.Font.Underline = xlUnderlineStyleSingle
End Sub
Nun steht in den Zellen A2-Axx jeweils der Name des Blatts.
Als nächstes würde ich gerne aus dem Namen einen Link zu dem Blatt machen. Leider komme ich mit _ der Syntax des Hyperlinks nicht ganz klar. Der Name des Blatts zu dem ich linken will steht ja schon in der Zelle drin, daher dachte ich, dass ich mit:
For Zeile = 2 To ActiveWorkbook.Worksheets.Count
Rangeee = A & Zeile
LinkName = Range(Rangeee).Value
Range(Rangeee).Select
'MsgBox (Rangeee & " " & LinkName)
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'LinkName'!Rangee", TextToDisplay:= _
"LinkName"
Next Zeile
Jedoch wird dann aus jeder Zelle LinkName mit verknüpfung ins nichts..
Leider komme ich mit meinen begrenzten Kenntnissen nicht weiter.
Ist das was ich möchte möglich?
Vielen Dank im voraus.
Liebe Grüße
Alex