geachte lezers,
in een simpele excelfile gebruik ik een macro welke op het "start-scherm" een lijst maakt met hyperlinks in Kolom B (2) maakt van de in dat file aanwezige tabbladen. Op deze manier kan ik snel naar die tabbladen toespringen. Nu werken de hyperlinks alleen indien ik geen spaties gebruik in de namen van de andere tabbladen zoals "Blad1". Zodra ik de naam van het tabblad wijzig in bv "opgaaf data januari" wordt er wel via de macro een hyperlink aangemaakt, maar deze werkt niet met de foutcode "De verwijziging is ongeldig".
Kan iemand mij vertellen wat er in onderstaande macro moet wijzigen?
Sub inhoudsopgave()
On Error Resume Next
ActiveWorkbook.Sheets("Startscherm").Activate
If Err.Number > 0 Then
End If
With ActiveWorkbook.Sheets("Startscherm")
.Columns(2).Clear
For Each sh In ActiveWorkbook.Sheets
If sh.Name <> "Startscherm" Then .Hyperlinks.Add .Cells(Rows.Count, 2).End(xlUp).Offset(1), "#" & sh.Name & "!$A$1", , , sh.Name
Next
End With
End Sub
Dank voor jullie moeite!
met vriendelijke groet,
Gesus
in een simpele excelfile gebruik ik een macro welke op het "start-scherm" een lijst maakt met hyperlinks in Kolom B (2) maakt van de in dat file aanwezige tabbladen. Op deze manier kan ik snel naar die tabbladen toespringen. Nu werken de hyperlinks alleen indien ik geen spaties gebruik in de namen van de andere tabbladen zoals "Blad1". Zodra ik de naam van het tabblad wijzig in bv "opgaaf data januari" wordt er wel via de macro een hyperlink aangemaakt, maar deze werkt niet met de foutcode "De verwijziging is ongeldig".
Kan iemand mij vertellen wat er in onderstaande macro moet wijzigen?
Sub inhoudsopgave()
On Error Resume Next
ActiveWorkbook.Sheets("Startscherm").Activate
If Err.Number > 0 Then
End If
With ActiveWorkbook.Sheets("Startscherm")
.Columns(2).Clear
For Each sh In ActiveWorkbook.Sheets
If sh.Name <> "Startscherm" Then .Hyperlinks.Add .Cells(Rows.Count, 2).End(xlUp).Offset(1), "#" & sh.Name & "!$A$1", , , sh.Name
Next
End With
End Sub
Dank voor jullie moeite!
met vriendelijke groet,
Gesus
