Hallo,
Ik heb de volgende code gevonden in dit forum voor het maken van een inhoudsopgave. Maar ik wil er wat extra's aan toevoegen. Ik weet alleen niet hoe.
Sub Workbook_Open()
Dim i As Integer
For i = 1 To Sheets.Count
With Sheets(1)
'.Value = Sheets(i).Name
.Cells(i, 1).Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
End With
Next i
End Sub
De code geeft een index van alle werkbladen op sheet 1, nu wil ik eigenlijk eigenlijk op de eerste sheet een inhoudsopgave die begint bij sheet 3. Tevens wil ik dat de inhoudsopgave begint in cel A2. Omdat die kolom een naam heeft in cel A1.
Hoe pas ik mijn code eenvoudig aan?
Ik heb de volgende code gevonden in dit forum voor het maken van een inhoudsopgave. Maar ik wil er wat extra's aan toevoegen. Ik weet alleen niet hoe.
Sub Workbook_Open()
Dim i As Integer
For i = 1 To Sheets.Count
With Sheets(1)
'.Value = Sheets(i).Name
.Cells(i, 1).Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
End With
Next i
End Sub
De code geeft een index van alle werkbladen op sheet 1, nu wil ik eigenlijk eigenlijk op de eerste sheet een inhoudsopgave die begint bij sheet 3. Tevens wil ik dat de inhoudsopgave begint in cel A2. Omdat die kolom een naam heeft in cel A1.
Hoe pas ik mijn code eenvoudig aan?
