Lave indholdsfortegnelse

Denne makro indsætter en liste over ark i a kolonnen i det aktive ark.
Sub ListArk()
    Dim i As Long, sh As Object
    i = 0
    For Each sh In Sheets
        i = i + 1
        Cells(i, 1).Value = sh.Name
    Next
End Sub

Skal den være mere specifik, må du lige sige til.

Her er en lidt udvidet variant, som dels altid indsætter listen i det første ark i mmppen (sørg for at det der tomt). Dels indsættes der hyperlinks til alle ark. Hyperlinks til diagrammer vil dog ikke virke, da der ikke kan oprettes hyperlinks til diagramark i Excel.

Sub ListArk()

    Dim i As Long, sh As Object
    Sheets(1).Range("A:A").ClearContents
    i = 0
    For Each sh In Sheets
        i = i + 1
        Sheets(1).Cells(i, 1).Value = sh.Name
    Next
    For Each c In Sheets(1).Range("a:a").Cells
        If Not IsEmpty(c.Value) Then
            c.Select
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
            c.Value & "!A1", TextToDisplay:=c.Value
        End If
    Next

End Sub

En anden mulighed er at nøjes med dette:

Sub ListArk()
    Dim i As Long, sh As Object
    Sheets(1).Range("A:A").ClearContents
    i = 0
    For Each sh In Sheets
        i = i + 1
        Sheets(1).Cells(i, 1).Value = sh.Name
    Next
End Sub

Du kan så lægge denne kode i ark1's kodemodul:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Not Intersect(Target, Range("a:a")) Is Nothing Then
          On Error Resume Next
          Charts(Target.Value).Activate
          If err.Number <> 0 Then
                Sheets(Target.Value).Activate
          End If
          On Error GoTo 0
      End If
End Sub

Så vil du hoppe til det relevante ark, hvis du klikker på en celle, der indeholder et arknavn, hvad enten dette er et regneark eller et diagram.

Super Jkrons et svar så er points

Her er et svar :-)