Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Inhaltsverzeichnis

Forumthread: Inhaltsverzeichnis

Inhaltsverzeichnis
06.02.2006 18:04:32
petra
Hallo,
kann man eigentlich in Excel ein verlinktes Inhaltsverzeichnis anlegen, um schneller in die jeweiligen Tabellenblätter zu gelangen?
Die Links sollten die Namen der Tabellenblätter haben.
lg
petra
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhaltsverzeichnis
06.02.2006 18:13:11
Ulli
Gibt es schon, Rechtsklick auf die Pfeile unten links.
Userbild
AW: Inhaltsverzeichnis
06.02.2006 18:21:04
Erich
hi,
oder den hyperlink verwenden!
gruß
erich
AW: Inhaltsverzeichnis
06.02.2006 18:46:13
petra
naja, das mit den pfeilen ist ganz ok
aber ich hätte doch lieber ne hyperlink Liste.
geht das nicht?
lg
petra
Anzeige
AW: Inhaltsverzeichnis
06.02.2006 18:48:34
Erich
hi petra,
unter ENFÜGEN findest du den HYPERLINK, automatisch über ein makro geht
das bestimmt auch, dabei kann ich dir leider nicht helfen! sollte aber
für die profis hier kein thema sein!
gruß
erich
AW: Inhaltsverzeichnis
06.02.2006 18:49:05
Sven
Hi,
mach doch, Menü Einfügen, Hyperlink
mfg Sven
AW: Inhaltsverzeichnis
06.02.2006 18:54:38
petra
vielen dank.
hab aber leider ein dynamisches dokument, dass sich jenach information ändert, so dass sich das inhaltsverzeichnis automatisch erzeugen sollte.
kann mir da jemand weiterhelfen?
lg
petra
Anzeige
AW: Inhaltsverzeichnis
06.02.2006 19:26:10
Sven
Hi,
sind in der Mappe auch Diagrammsheets? Falls ja, geht das nicht so einfach mit Hyperlink.
mfg Sven
AW: Inhaltsverzeichnis
06.02.2006 19:41:43
petra
nee, sind keine Diagrammsheets enthalten
lg
petra
AW: Inhaltsverzeichnis
06.02.2006 19:13:22
Peter W
Servus,
hab da mal für jemanden aus einem anderen Forum einen Code erstellt, müsste passen.


Option Explicit
'**************************************************
'*              Peter W / Sept. 05                *
'**************************************************
Sub Inhaltsverzeichnis()
Dim lngAnf As Long, lngSpalte As Long
Dim intZ As Integer
Dim wks As Worksheet
Dim bolVis As Boolean, bolHyp As Boolean, bolWks As Boolean
Dim rng As Range
Dim strWks As String, strTarget As String
'**********Ablaufkriterien festlegen***************
bolWks = False
On Error Resume Next
Set rng = Application.InputBox("Startzelle des Inhaltsverzeichnises ?", "Startrange", "A1", Type:=8)
If Not rng Is Nothing Then
    lngAnf = rng.Row - 1 'Start ab Zeile x (z.B. A1 = 1-1 = 0 , Start Zeile 1)
    lngSpalte = rng.Column  'In Spalte x (z.B. 1 = A)
Else: Exit Sub
End If
bolVis = Application.InputBox("Nur sichtbare Blätter aufführen ?", "WAHR oder Abbrechen", Type:=4) 'Nur eingeblendete Sheets = True
bolHyp = Application.InputBox("Hyperlinks erstellen ?", "WAHR oder Abbrechen", Type:=4) 'Hyperlink erzeugen = True , sonst False
strWks = Application.InputBox("In welchem Tabellenblatt soll das Inhaltsverzeichnis geschrieben werden ?" _
        , "Tabellenblatt", ActiveSheet.name, Type:=2)
If strWks = "" Then Exit Sub
    For Each wks In ThisWorkbook.Worksheets
        If wks.name = strWks Then bolWks = True
    Next
    If bolWks = False Then Exit Sub
If bolHyp Then
    Set rng = Nothing
    Set rng = Application.InputBox("An welchen Punkt soll der Hyperlink springen ?", "Hyperlink 2", "A1", Type:=8)
    If Not rng Is Nothing Then
        strTarget = "!" & rng.Address(0, 0)
    Else: Exit Sub
    End If
End If
'**************************************************
With Sheets(strWks)
    For Each wks In ThisWorkbook.Worksheets
        intZ = intZ + 1
        If bolVis Then
            If wks.Visible = xlSheetVisible Then
                If bolHyp Then
                    If Not .Cells(lngAnf + intZ, lngSpalte).Hyperlinks Is Nothing Then
                        .Hyperlinks.Add anchor:=.Cells(lngAnf + intZ, lngSpalte) _
                        , Address:="", SubAddress:=wks.name & strTarget, TextToDisplay:=wks.name & " Pos.: " & intZ
                    Else
                        .Cells(lngAnf + intZ, lngSpalte).Hyperlinks(1) _
                        .SubAddress = wks.name & strTarget
                        .Cells(lngAnf + intZ, lngSpalte).Hyperlinks(1) _
                        .TextToDisplay = wks.name & " Pos.: " & intZ
                    End If
                Else
                ActiveSheet.Cells(lngAnf + intZ, lngSpalte) = wks.name & " Pos.: " & intZ
                End If
            End If
        Else
            If bolHyp Then
                If Not .Cells(lngAnf + intZ, lngSpalte).Hyperlinks Is Nothing Then
                    .Hyperlinks.Add anchor:=.Cells(lngAnf + intZ, lngSpalte) _
                    , Address:="", SubAddress:=wks.name & strTarget, TextToDisplay:=wks.name & " Pos.: " & intZ
                Else
                    .Cells(lngAnf + intZ, lngSpalte).Hyperlinks(1) _
                    .SubAddress = wks.name & strTarget
                    .Cells(lngAnf + intZ, lngSpalte).Hyperlinks(1) _
                    .TextToDisplay = wks.name & " Pos.: " & intZ
                End If
            Else
                ActiveSheet.Cells(lngAnf + intZ, lngSpalte) = wks.name & " Pos.: " & intZ
            End If
        End If
    Next
End With
End Sub


MfG Peter
Anzeige
AW: Inhaltsverzeichnis
06.02.2006 19:49:41
petra
wow,
bin beeindruckt.
kann man denn diese abfrage umgehen und beim ausführen des makros das inhaltsverzeichnis in Zeile A3 starten und den nächsten link dann in A4 weiterführen?
Vielen Dank.
lg
petra
AW: Inhaltsverzeichnis
06.02.2006 19:56:09
Peter W
Servus,
Ändere diese Zeile: Set rng = Application.InputBox("Startzelle des Inhaltsverzeichnises ?", "Startrange", "A1", Type:=8)
in: Set rng = Range("A3")

MfG Peter
Anzeige
AW: Inhaltsverzeichnis
06.02.2006 20:08:59
petra
Aber die Abfrage kommt dann trotzdem.
kann ich die auch noch irgendwie umgehen?
lg
petra
AW: Inhaltsverzeichnis
06.02.2006 20:57:15
Peter W
Servus,
dann so.


Option Explicit
'**************************************************
'*              Peter W / Sept. 05                *
'**************************************************
Sub Inhaltsverzeichnis()
Dim lngAnf As Long, lngSpalte As Long
Dim intZ As Integer
Dim wks As Worksheet
Dim bolVis As Boolean, bolHyp As Boolean, bolWks As Boolean
Dim rng As Range
Dim strWks As String, strTarget As String
'**********Ablaufkriterien festlegen***************
bolWks = False
On Error Resume Next
Set rng = Range("A3")
If Not rng Is Nothing Then
    lngAnf = rng.Row - 1 'Start ab Zeile x (z.B. A1 = 1-1 = 0 , Start Zeile 1)
    lngSpalte = rng.Column  'In Spalte x (z.B. 1 = A)
Else: Exit Sub
End If
bolVis = False
bolHyp = True
strWks = ActiveSheet.name
If strWks = "" Then Exit Sub
    For Each wks In ThisWorkbook.Worksheets
        If wks.name = strWks Then bolWks = True
    Next
    If bolWks = False Then Exit Sub
If bolHyp Then
    Set rng = Nothing
    Set rng = Range("A1")
    If Not rng Is Nothing Then
        strTarget = "!" & rng.Address(0, 0)
    Else: Exit Sub
    End If
End If
'**************************************************
With Sheets(strWks)
    For Each wks In ThisWorkbook.Worksheets
        intZ = intZ + 1
        If bolVis Then
            If wks.Visible = xlSheetVisible Then
                If bolHyp Then
                    If Not .Cells(lngAnf + intZ, lngSpalte).Hyperlinks Is Nothing Then
                        .Hyperlinks.Add anchor:=.Cells(lngAnf + intZ, lngSpalte) _
                        , Address:="", SubAddress:=wks.name & strTarget, TextToDisplay:=wks.name & " Pos.: " & intZ
                    Else
                        .Cells(lngAnf + intZ, lngSpalte).Hyperlinks(1) _
                        .SubAddress = wks.name & strTarget
                        .Cells(lngAnf + intZ, lngSpalte).Hyperlinks(1) _
                        .TextToDisplay = wks.name & " Pos.: " & intZ
                    End If
                Else
                ActiveSheet.Cells(lngAnf + intZ, lngSpalte) = wks.name & " Pos.: " & intZ
                End If
            End If
        Else
            If bolHyp Then
                If Not .Cells(lngAnf + intZ, lngSpalte).Hyperlinks Is Nothing Then
                    .Hyperlinks.Add anchor:=.Cells(lngAnf + intZ, lngSpalte) _
                    , Address:="", SubAddress:=wks.name & strTarget, TextToDisplay:=wks.name & " Pos.: " & intZ
                Else
                    .Cells(lngAnf + intZ, lngSpalte).Hyperlinks(1) _
                    .SubAddress = wks.name & strTarget
                    .Cells(lngAnf + intZ, lngSpalte).Hyperlinks(1) _
                    .TextToDisplay = wks.name & " Pos.: " & intZ
                End If
            Else
                ActiveSheet.Cells(lngAnf + intZ, lngSpalte) = wks.name & " Pos.: " & intZ
            End If
        End If
    Next
End With
End Sub


MfG Peter
Anzeige
danke. echt super. o.T.
07.02.2006 10:25:54
petra
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum