Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhaltsverzeichnis

Inhaltsverzeichnis
06.02.2006 17: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

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

Betreff
Datum
Anwender
Anzeige
AW: Inhaltsverzeichnis
06.02.2006 17:13:11
Ulli
Gibt es schon, Rechtsklick auf die Pfeile unten links.
Userbild
AW: Inhaltsverzeichnis
06.02.2006 17:21:04
Erich
hi,
oder den hyperlink verwenden!
gruß
erich
AW: Inhaltsverzeichnis
06.02.2006 17: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
AW: Inhaltsverzeichnis
06.02.2006 17: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 17:49:05
Sven
Hi,
mach doch, Menü Einfügen, Hyperlink
mfg Sven
Anzeige
AW: Inhaltsverzeichnis
06.02.2006 17: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
AW: Inhaltsverzeichnis
06.02.2006 18: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 18:41:43
petra
nee, sind keine Diagrammsheets enthalten
lg
petra
AW: Inhaltsverzeichnis
06.02.2006 18: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 18: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 18: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
AW: Inhaltsverzeichnis
06.02.2006 19:08:59
petra
Aber die Abfrage kommt dann trotzdem.
kann ich die auch noch irgendwie umgehen?
lg
petra
AW: Inhaltsverzeichnis
06.02.2006 19: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 09:25:54
petra

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige