Supportnet / Forum / Tabellenkalkulation

Mhh mal wieder ne Frage ! Lasse Per VBA Code ein Arbeitsblatt kopieren, das klappt ja soweit alles ganz gut, Nun möchte ich aber auf meinem ersten Arbeitsblatt prüfen lassen welche Arbeitsblätter die Mappe enthält und diese dann auch aufgelistet bekommen (möglichst noch mit Hyperlink damit dann nach anklicken direkt auf das Blatt gesprungen werden kann!) Sieht Excel diesbezüglich eine Möglichkeit (Inhaltsverzeichnis der Mappe) vor? Danke im Voraus für eure Hilfe ! Gruß Volker

Hallo Volker,
in etwa so:

Option Explicit

Sub Worksheetliste()
Dim lng As Long
Dim strName As String
For lng = 1 To ThisWorkbook.Worksheets.Count
    strName = ThisWorkbook.Worksheets(lng).name
    ActiveSheet.Range("A" & lng).Value = strName
    ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & lng), Address:="", SubAddress:= _
        strName & "!A1", TextToDisplay:=strName
Next lng
End Sub

Gruss Rolf

Hi Volker,

Sub inhaltsverzeichnis()
    Dim wsTabelle As Worksheet
    Dim inZeile As Integer
    inZeile = 2
    For Each wsTabelle In Worksheets
        With Worksheets("Inhaltsverzeichnis")
            If wsTabelle.Name <> "Inhaltsverzeichnis" Then
                .Cells(inZeile, 1) = wsTabelle.Name
                .Cells(inZeile, 1).Hyperlinks.Add anchor:=.Cells(inZeile, 1), Address:="", SubAddress:="'" & .Cells(inZeile, 1) & "'!A1", TextToDisplay:=wsTabelle.Name
                inZeile = inZeile + 1
            End If
        End With
    Next wsTabelle
End Sub

Bis später,
Karin