Hyperlink zu Reiter automatisch

[Westhofen]

Hallo Zusammen,

ich habe eine Datei in der auf meinem Dashboard alle erstellten Reiter aufgelistet wird. 

Dies habe ich dynamisch gehalten:

Private Sub Worksheet_Activate()

Dim IngSheets As Long

    IngSheets = ThisWorkbook.Sheets.Count
   
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
       
    'Alle Reiter werden aufgelistet
   
    Debug.Print "Alle Register"
    For i = 1 To IngSheets
        ThisWorkbook.Sheets("Dashboard").Cells(1 + i, 1).Value = ThisWorkbook.Sheets(i).Name
    Next i


    Range("A1").Select


End Sub


jetzt möchte ich gerne dass zu jedem Namen der Hyperlink zu dem jeweiligen Reiter gesetzt wird. Es kommt halt jeden Tag immer ein Reiter hinzu.

Ich komme leider nicht drauf.

Danke euch im voraus :)

[Kuwer]

Hallo,

ersetze

Code:

ThisWorkbook.Sheets("Dashboard").Cells(1 + i, 1).Value = ThisWorkbook.Sheets(i).Name

mit

Code:

        ThisWorkbook.Sheets("Dashboard").Hyperlinks.Add _
            Anchor:=ThisWorkbook.Sheets("Dashboard").Cells(1 + i, 1), _
            Address:="", _
            SubAddress:=ThisWorkbook.Sheets(i).Cells(1).Address(External:=True), _
            TextToDisplay:=ThisWorkbook.Sheets(i).Name

Gruß Uwe

[Westhofen]

Hallo Uwe,

funktioniert einwandfrei :)

Danke Dir!