Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellenblätter


Betrifft: Tabellenblätter von: Hartmut Faßl
Geschrieben am: 12.09.2019 09:52:59

Hallo an alle Experten.

Ich arbeite mit Excel Dateien die mit sehr vielen Tabellenblätter bestückt sind.
Kann man im ersten Tabellenblatt ein Inhaltsverzeichnis mit Verlinkung zu den Tabellenblätter anlegen?
Ich hatte in 2007 ein Add In aber das funktioniert nicht mehr.

Ich hoffe es kann mir einer helfen.
Schönen Tag noch Hartmut.

  

Betrifft: AW: Tabellenblätter von: 1712625.html
Geschrieben am: 12.09.2019 10:05:42

Hallo Hartmut,

ja.

Gruß Pierre

(okay, ich bin nicht so: http://www.borkpc.de/Excel/xl_inhverz.html ;oder wenn es auch etwas komplizierter sein darf: https://excellytics.de/inhaltsverzeichnis-excel/)

  

Betrifft: AW: Tabellenblätter von: 1712626.html
Geschrieben am: 12.09.2019 10:05:50

Hallo Hartmut,

das hat Excel doch quasi schon standardmäßig eingebaut.

Mach mal unten links in dem Feld mit den Pfeilen einen Rechtsklick.


Gruß Werner

  

Betrifft: AW: Tabellenblätter von: 1712638.html
Geschrieben am: 12.09.2019 10:55:02

Hallo Werner

ein Göttlicher Hinweis man sollte die RMT öfters einsetzen.

Danke

  

Betrifft: AW: Tabellenblätter von: 1712639.html
Geschrieben am: 12.09.2019 10:55:03

Hallo Werner

ein Göttlicher Hinweis man sollte die RMT öfters einsetzen.

Danke

  

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T. von: 1712648.html
Geschrieben am: 12.09.2019 11:01:35


  

Betrifft: AW: Tabellenblätter von: 1712630.html
Geschrieben am: 12.09.2019 10:15:52

Hallo Hartmut,

einfach so:

Option Explicit
  
  Public Sub Inhaltsverzeichnis()
      Dim lngIndex As Long
      With Worksheets(1)
          .Columns(1).ClearContents
          .Cells(1, 1).Value = "Inhaltsverzeichnis"
          For lngIndex = 2 To ThisWorkbook.Sheets.Count
              Call .Hyperlinks.Add(Anchor:=.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0), _
                  Address:=vbNullString, _
                  SubAddress:="'" & ThisWorkbook.Sheets(lngIndex).Name & "'!A1", _
                  TextToDisplay:=ThisWorkbook.Sheets(lngIndex).Name)
          Next
          Call .Columns(1).AutoFit
      End With
  End Sub

Gruß
Nepumuk
  

Betrifft: AW: Tabellenblätter von: 1712637.html
Geschrieben am: 12.09.2019 10:52:47

Halo Nepumuk

ich habe es im VBA im Tabellenblatt Inhaltsverzeichnis kopiert aber es Passiert nix ???
was habe ich falsch gemacht?

Hartmut

  

Betrifft: AW: Tabellenblätter von: 1712659.html
Geschrieben am: 12.09.2019 12:05:30

Hallo Hartmut,

du musst natürlich das Makro starten, automatisch wird es nicht ausgelöst. Und es erzeugt das Inhaltsverzeichnis im ersten Tabellenblatt.

Gruß
Nepumuk

  

Betrifft: AW: Tabellenblätter von: 1712649.html
Geschrieben am: 12.09.2019 11:04:21

Hallo Pierre,
ja, Danke ist auch ne Variante die super funktioniert.

nochmals danke Hartmut

Beiträge aus dem Excel-Forum zum Thema "Tabellenblätter"