Zitat:
Zitat von wbendl
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\")
|