Clever-Excel-Forum

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 :)

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

Hallo Uwe,

funktioniert einwandfrei :)

Danke Dir!

Westhofen

Kuwer

Westhofen