nachfolgender Code funktioniert super. Mir fehlt nur noch die Einstellung, dass ausgeblendete Blätter im Inhaltsverzeichnis nicht aufgeführt werden. Mit diesem Code wird alles eingeblendet, egal ob sichtbar, oder auch nicht.
Vielen Dank vorab für die Hilfe.
VG Eisi :-)
Sub TabellenVerzeichnisErstellenPlusHyperlinks()
tbl_Start.Unprotect ("") 'Blattschutz öffnen, damit der Code _
durchlaufen kann
Dim intTab As Integer
Dim tbl As Worksheet
Dim intZeile As Integer
On Error GoTo TabellenVerzeichnisErstellenPlusHyperlinks_Error
Set tbl = tbl_Start
tbl.UsedRange.Clear
intZeile = 3 ' Fängt in Zeile 3 an
With tbl_Start.Range("B1") ' Schreibt in die Zelle B1 eine Überschrift _
rein
.Value = "Test"
.Font.Bold = True
.Font.Size = 24
End With
With ActiveSheet
.Cells.Interior.ColorIndex = xlNone
.Cells.Interior.ColorIndex = 2 'Hintergrundfarbe weiß
End With
With ActiveWindow ' Hiermit wird die Ansicht eingefroren,
.SplitColumn = 30 ' damit der Bildschirm nicht mehr gescrollt _
werden kann
.SplitRow = 33
.FreezePanes = True
End With
For intTab = 1 To ActiveWorkbook.Worksheets.Count ' 1 Zählt ab dem ersten Sheet
tbl.Cells(intZeile, 2).Value = Worksheets(intTab).Name
tbl.Cells(intZeile, 2).Hyperlinks.Add _
Anchor:=tbl.Cells(intZeile, 2), Address:="", SubAddress:= _
"'" & Worksheets(intTab).Name & "'!A1", _
ScreenTip:="Klicken Sie auf den Hyperlink", _
TextToDisplay:=Worksheets(intTab).Name
intZeile = intZeile + 1
Next intTab
On Error GoTo 0
Range("B3").Select 'In dieser Zelle steht der Cusor
Range("B3:B30").Locked = False 'Diese Zellen sind nicht geschützt und somit _
funktionieren die Hyperlinks
tbl_Start.Protect ("") 'Die Tabelle wieder sperren, damit der User _
hier nicht verstellen kann
Exit Sub
TabellenVerzeichnisErstellenPlusHyperlinks_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & _
") in procedure TabellenVerzeichnisErstellenPlusHyperlinks of Modul mdl_Verarbeitung in _
Zeile " & Erl
End Sub