Einzelnen Beitrag anzeigen
Alt 23.11.2008, 04:14   #9
Miguel
Inventar
 
Benutzerbild von Miguel
 
Registriert seit: 07.05.2000
Beiträge: 1.658

Mein Computer

Standard

Zitat:
Zitat von wbendl Beitrag anzeigen
Hi!

Eigentlich ist Excel für deine Zweck nicht die Ideale Lösung. Aber jeder wie er will.

Hier ein Codebeispiel, wie du die Liste automatisiert erstellen kannst. Einfach in ein Modul kopieren. Anpassen sollte ganz leicht sein.
Code:
Option Explicit
 
'Dieser Code wird beim Öffnen der Arbeitsmappe ausgeführt
'Im 1. Blatt werden Hyperlinks zu allen anderen Tabellen angelegt
Sub Auto_Open()
  Dim intI As Integer
 
  'Bei Bedarf den Buchstaben für die Spalte anpassen
  'Die Spalte darf keine anderen Daten enthalten
  Const C_strSpalte As String = "A"
 
  With Worksheets(1)
    'Löschen der alten Einträge
    .Range(C_strSpalte & ":" & C_strSpalte).Clear
 
    'Für jede Tabelle außer der 1. einen Hyperlink anlegen
    For intI = 2 To ThisWorkbook.Worksheets.Count
      'Hyperlink erstellen
      'Bei Bedarf die Zielzelle anpassen
      .Hyperlinks.Add .Range(C_strSpalte & intI - 1), "", Worksheets(intI).Name & "!A1"
 
      'Name der Tabelle als Text des Hyperlinks verwenden
      'Hier könnte auch der Inhalt einer Zelle verwendet werden
      .Range(C_strSpalte & intI - 1).Value = Worksheets(intI).Name
    Next
  End With
 
  'Mappe speichern
  ThisWorkbook.Save
 
End Sub

mfg

WB
eine Frage zu Deinem Beispiel: Wo gibt es eine online Ressource, die ein Tutorial für oder eine Übersicht über VBA gibt?

lg Miguel
____________________________________
\"Leben ist, was einem passiert, während man auf die Erfüllung seiner Träume wartet.\"
(aus \"Der König von Sankt Pauli\")
Miguel ist offline   Mit Zitat antworten