---

Guten Tag zusammen,

ich wünsche euch nachträglich alles Gute im neuen Jahr.

Ich habe in einer Excel-Datei mit viele Registern (register=Datenblätter)(mit verschiedenen Namen), wie kann mit einem Makro automatisch (z.B. jedes Mal wenn ich die Datei neu öffne) eine Inhaltsverzeichnis machen

Vielen Dank für eure Hilfe

UGMNX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

N'Abend,
z.B. mit:

Code:

---

Option Explicit
Public Sub test()
Dim i As Integer
For i = 1 To ThisWorkbook.Worksheets.Count
  Tabelle1.Hyperlinks.Add Anchor:=Tabelle1.Cells(i, 1), Address:="", SubAddress:= _
        ThisWorkbook.Worksheets(i).Name & "!A1", TextToDisplay:=ThisWorkbook.Worksheets(i).Name
  'oder nur als Text:
  'Tabelle1.Cells(i, 1) = ThisWorkbook.Worksheets(i).Name
Next i
End Sub

---

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hab da auch mal eine Frage zu den Registerbezeichnungen auslesen.

Über ein Makro ist es einfach den Namen eines Registers auszulesen.
Wie von runkelruebe geschrieben mit dem Code: Worksheets(i).Name

Gibt es auch eine Möglichkeit mit einer Funktion, ohne Makro, auf das Blatt zu übertragen. Dabei sollte sich aber mit dem Ändern des Registernamens auch der Eintrag im Feld ändern.

Gruss
Mike

------------------
  The Power Of Dreams

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Mike,
http://www.excelformeln.de/formeln.html?welcher=95

Hinweise unten beachten ;-)

------------------
Gruß,
runkelruebe                         Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo runkelruebe,

Tolle Seite

Super, auf diese Formel währe ich glaub ich nie gekommen.

=TEIL(ZELLE("Dateiname";$A$1);FINDEN("]";ZELLE("Dateiname";$A$1))+1;31)

Dabei ist auch berücksichtigt, dass ein Register mit maximal 31 Zeichnen abgeschrieben werden kann.

Gruss und Danke
Mike

------------------
  The Power Of Dreams

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sorry dass ich mich dazwischen Klinke habe ein ähnliches Problem brauche unbedingt eine Lösung!
Habe mir eine Excel 2007 Arbeitsmappe mit eigenen RibbonX Elemente erstellt wo Gehaltsrechner und Kräfte im Zentralen sowie allgemeinen System mit Grafik ausgabe sowie mein Persönliches Highlight Fachwerke 2d mit Grafik und Automatischen Stabkraftermittlung vorhanden sind sowie andere wichtige Berechnungen wie Maschinenelemente; folgendes Problem ich habe Musterblätter erstellt und mit VBA versteckt nun habe ich mehrere Button die die gewünschten Blätter Aufrufen und eine Kopie zum bearbeiten Bereitstellen so habe ich nur immer eine Arbeitsmappe zu kopieren für neue Projekte, wenn ich nun ein Inhaltsverzeichniss Aufrufe per Makro zeigt er mir auch die versteckten Blätter an wie kann ich das vermeiden so dass er mir nur die Sichtbaren Blätter Anzeigt im Aktualisierten Inhaltsverzeichniss? Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Speedytec,

so auf die Schnelle und ungetestet:

Die Register haben die Eigenschaften visible, hidden, veryhidden.

Für jedes Register in der Mappe
  wenn unsichtbar nächstes Register
  sonst zum Inhaltsverzeichnis hinzufügen
Nächstes Register.

HTH
Frederik

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Public Sub test()
Dim i As Integer
For i = 1 To ThisWorkbook.Worksheets.Count

  'Tabelle1.Hyperlinks.Add Anchor:=Tabelle1.Cells(i, 1), Address:="", SubAddress:= _
        ThisWorkbook.Worksheets(i).Name & "!A1", TextToDisplay:=ThisWorkbook.Worksheets(i).Name
  'oder nur als Text:
If ThisWorkbook.Worksheets(i).Visible = -1 Then
  Tabelle1.Cells(i, 1) = ThisWorkbook.Worksheets(i).Name
  Else
  End If
Next i
End Sub

---

aber du kannst auch ruhig die Mappe uppen ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP