|
Hallo! Da gibt es mehrere Möglichkeiten. Die unten genannten werden im Activen Blatt eingetragen.
Hier einmal als Hyperlink.
Sub hyperlink()
Dim ws As Worksheet
Dim neu
Dim i
i = 1
For Each ws In ActiveWorkbook.Worksheets
ActiveSheet.Hyperlinks.Add Address:="", Anchor:=ActiveSheet.Cells(i, 1), SubAddress:=Worksheets(ws.Name).Range("C5").Address(True, True, , True)
i = i + 2
Next
End Sub
Und jetzt noch als BUtton. Dafür den Code in einem Modul einbetten (zumindest den Code von aktiviern). Die Buttons werden im activen Blatt angelegt. Bei dem Button wird durch i als INdex die Einfügemarke verschoben. Das müsstest du noch anpassen.
Sub button()
Dim ws As Worksheet
Dim neu
Dim i
i = 0
For Each ws In ActiveWorkbook.Worksheets
Set neu = ActiveSheet.Buttons.Add(187.25, i * 100 + 28.5, 268, 46.5)
neu.Name = ws.Name
neu.Caption = ws.Name
neu.OnAction = "aktivieren"
i = i + 1
Next
Set neu = Nothing
End Sub
Public Sub aktivieren()
Dim blatt As String
blatt = ActiveSheet.Shapes(Application.Caller).Name
Worksheets(blatt).Activate
End Sub
|