Inhaltsverzeichnis / Code anpassen
12.07.2022 21:40:40
Kisska
ich habe in diesem Forum diesen Code gefunden:
Option Explicit
Sub CreateOverview()
Dim ws As Worksheet
Dim myCol As Long, myRow As Long
myCol = 1
myRow = 2
For Each ws In Worksheets
If (Mid(ws.Name, 1, 4) "Over") Then
With Worksheets("OverView")
.Cells(myRow, myCol).Value = ws.Name
.Hyperlinks.Add Anchor:=.Range(Cells(myRow, myCol), Cells(myRow, myCol)), _
Address:="", SubAddress:="'" & ws.Name & "'!A1"
End With
myRow = myRow + 1
End If
Next ws
Worksheets("OverView").Activate
End Sub
Wie müsste der Code angepasst werden, damit ein Inhaltsverzeichnis ohne das erste Tabellenblatt generiert wird?
Meine Tabellenblätter: OverView, Blatt2, Blatt3, Blatt4
Ich möchte, dass ein Verzeichnis mit Verlinkungen ab Blatt3 erstellt wird.
Viele Grüße
Kisska