Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhaltsverzeichnis Tabellenblätter automatisc

Forumthread: Inhaltsverzeichnis Tabellenblätter automatisc

Inhaltsverzeichnis Tabellenblätter automatisc
10.11.2014 16:42:55
Chris
Hallo,
hab wieder mal ne Frage.
Ich habe eine umfangreiche Excel-Datei mit vielen Arbeitsblättern.
Es sind in der Hauptsache 3 verschiedene Sheets, die mit "Agenda_", "MoM_" und "AcRep_" beginnen und dann folgt jeweils ein Datum.
Kann ich eine Art Inhaltsverzeichnis automatisch generieren, bei der dann in 3 Spalten jeweils untereinander die Tabellenblätter zu jedem Sheet stehen mit Hyperlink, mit dem ich direkt zu dem Sheeet springen kann?
Es sollte so aussehen - nebeneinander und jeweils sortiert mit dem aktuellesten Datum als erstes:
(Krieg es leider im Editor hier nicht nebeneinander dargestellt)
Spalte A:
Agenda_01.12.2014
Agenda_01.10.2014
...
Spalte B:
MoM_01.11.2014
MoM_15.10.2014
...
Spalte C:
AcRep_05.12.2014
AcRep_07.09.2014
...
Ich habe zwar schon verschiedene Lösungen im Internet gefunden, daber die listen immer ALLE Tabellenblätter auf.
Das Ganze soll dann jedesmal bei Anklicken des Sheets "Übersicht" neu generiert werden, beginnend immer ab Zeile 5 (darüber soll noch Text stehen).
Ich hoffe, es ist verständlich erklärt.
Danke schon mal vorab.
Chris

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhaltsverzeichnis Tabellenblätter automatisc
10.11.2014 17:45:54
fcs
Hallo Chris,
die Sortierung nach dem Datum macht die Sache etwas komplizierter.
Zum Sortieren wird das Datum immer jeweils zeitweise in Spalte D eingetragen.
Gruß
Franz 
'Code unter dem Tabellenblatt "Übersicht"
Private Sub Worksheet_Activate()
'Inhaltsverzeichnis für bestimmte Blätter erstellen
Dim Zeile As Long, Zeile_Max As Long
Dim Spalte As Long, Spalte_Datum As Long
Dim arrBlatt, intBlatt As Integer
Dim wksUeb As Worksheet, wks As Worksheet
Dim strDatum As String
arrBlatt = Array("Agenda_", "Mom_", "AcRep_")
Set wksUeb = Worksheets("Übersicht") 'Name ggf anpassen
Spalte_Datum = 4
With wksUeb
With .UsedRange
Zeile_Max = .Row + .Rows.Count
End With
If Zeile_Max >= 5 Then
.Range(.Rows(5), .Rows(Zeile_Max)).ClearContents ' oder .Clear
End If
Spalte = 0
For intBlatt = LBound(arrBlatt) To UBound(arrBlatt)
Spalte = Spalte + 1
Zeile = 4
For Each wks In ActiveWorkbook.Worksheets
If UCase(Left(wks.Name, Len(arrBlatt(intBlatt)))) = UCase(arrBlatt(intBlatt)) Then
Zeile = Zeile + 1
.Cells(Zeile, Spalte) = wks.Name
strDatum = Right(wks.Name, 10)
strDatum = Right(strDatum, 4) & "-" & Mid(strDatum, 4, 2) & "-" & Left(strDatum, 2)
If IsDate(strDatum) Then
.Cells(Zeile, Spalte_Datum).Value = CDate(strDatum)
Else
.Cells(Zeile, Spalte_Datum).Value = "'" & Right(wks.Name, 10)
End If
.Hyperlinks.Add Anchor:=.Cells(Zeile, Spalte), Address:="", _
SubAddress:=wks.Name & "!A2", TextToDisplay:=wks.Name
End If
Next wks
If Zeile > 5 Then
With .Range(.Cells(5, Spalte), .Cells(Zeile, Spalte_Datum))
.Sort key1:=.Cells(1, Spalte_Datum - Spalte + 1), Order1:=xlDescending, _
Header:=xlNo
End With
End If
With .Range(.Cells(5, Spalte_Datum), .Cells(Zeile, Spalte_Datum))
.Clear
End With
Next intBlatt
End With
End Sub

Anzeige
AW: Inhaltsverzeichnis Tabellenblätter automatisc
10.11.2014 18:17:48
Chris
Hi Franz,
genial, einfach nur genial.
Funktioniert einwandfrei und genau so wie ich es haben wollte.
Vielen Dank für die schnelle und tolle Hilfe. Ihr seid einfach Spitze !!
Ich hab noch ne Frage dazu:
Ist es auf einfache Weise noch möglich, statt "MoM_10.11.2014" "Minutes of Meeting_10.11.2014" und statt "AcRep_10.11.2014" "Action Report_10.11.2014" ausgeben zu lassen?
Wenn es zu aufwändig ist, bin ich mit dem jetzigen Ergebnis auch zufrieden.
Grüße
Chris.

Anzeige
AW: Inhaltsverzeichnis Tabellenblätter automatisc
11.11.2014 08:24:58
fcs
Hallo Chris,
hier das Makro mit Ersetzen der abgekürzten Blattnamen durch Langname.
Gruß
Franz 
'Code unter dem Tabellenblatt "Übersicht"
Private Sub Worksheet_Activate()
'Inhaltsverzeichnis für bestimmte Blätter erstellen
Dim Zeile As Long, Zeile_Max As Long
Dim Spalte As Long, Spalte_Datum As Long
Dim arrBlatt, intBlatt As Integer
Dim wksUeb As Worksheet, wks As Worksheet
Dim strDatum As String, strName As String
arrBlatt = Array("Agenda_", "Mom_", "AcRep_")
Set wksUeb = Worksheets("Übersicht") 'Name ggf anpassen
Spalte_Datum = 4
With wksUeb
With .UsedRange
Zeile_Max = .Row + .Rows.Count
End With
If Zeile_Max >= 5 Then
.Range(.Rows(5), .Rows(Zeile_Max)).ClearContents ' oder .Clear
End If
Spalte = 0
For intBlatt = LBound(arrBlatt) To UBound(arrBlatt)
Select Case arrBlatt(intBlatt)
Case "Agenda_": strName = "Agenda_"
Case "Mom_": strName = "Minutes of Meeting_"
Case "AcRep_": strName = "Action Report_"
End Select
Spalte = Spalte + 1
Zeile = 4
For Each wks In ActiveWorkbook.Worksheets
If UCase(Left(wks.Name, Len(arrBlatt(intBlatt)))) = UCase(arrBlatt(intBlatt)) Then
Zeile = Zeile + 1
strDatum = Right(wks.Name, 10)
strDatum = Right(strDatum, 4) & "-" & Mid(strDatum, 4, 2) & "-" & Left(strDatum, 2)
If IsDate(strDatum) Then
.Cells(Zeile, Spalte_Datum).Value = CDate(strDatum)
Else
.Cells(Zeile, Spalte_Datum).Value = "'" & Right(wks.Name, 10)
End If
.Hyperlinks.Add Anchor:=.Cells(Zeile, Spalte), Address:="", _
SubAddress:=wks.Name & "!A2", TextToDisplay:=""
.Cells(Zeile, Spalte).Value = strName & Right(wks.Name, 10)
End If
Next wks
If Zeile > 5 Then
With .Range(.Cells(5, Spalte), .Cells(Zeile, Spalte_Datum))
.Sort key1:=.Cells(1, Spalte_Datum - Spalte + 1), Order1:=xlDescending, _
Header:=xlNo
End With
End If
With .Range(.Cells(5, Spalte_Datum), .Cells(Zeile, Spalte_Datum))
.Clear
End With
Next intBlatt
End With
End Sub

Anzeige
AW: Inhaltsverzeichnis Tabellenblätter automatisc
11.11.2014 08:53:12
Chris
Hi Franz,
funktioniert aufs 1. Mal. Vielen Dank. Ihr seid die Besten.
Ich habe noch ein anderes Problem, da geht es um das Ansprechen des Menüpunktes Daten/Verknüpfung bearbeiten mittels einer Befehlsschaltfläche. Ich finde nirgends den Code dafür. Kennst du dich damit aus?
Vielen Dank nochmals.
Chris

Anzeige
AW: Inhaltsverzeichnis Tabellenblätter automatisc
11.11.2014 10:26:47
fcs
Hallo Chris,
nach einigen Rumsuchen hab ich die Konstante für den entsprechenden Dialog gefunden.
Gruß
Franz 
Sub Dialog_Verknuepfung_bearbeiten()
Application.Dialogs(xlDialogOpenLinks).Show
End Sub

AW: Inhaltsverzeichnis Tabellenblätter automatisc
11.11.2014 11:17:29
Chris
Hallo Franz,
echt super, Danke dir.
Damit habt ihr mir wirklich geholfen.
Gruß Chris

Anzeige
AW: Inhaltsverzeichnis Tabellenblätter automatisc
10.11.2014 18:20:41
Michael
Hallo Chris!
Spannende Sache, ein (fehlerhafter) Ansatz - werde morgen weiter tüfteln - von mir:
Sub InhaltstabelleAnlegen()
Dim tblInhalt, tblSheet As Worksheet
Dim intTabellen As Integer
Dim intZeilenA As Integer
Dim intZeilenB As Integer
Dim intZeilenC As Integer
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each tblSheet In ActiveWorkbook.Sheets
If tblSheet.Name = "Inhaltsverzeichnis" Then
tblSheet.Delete
End If
Next tblSheet
Application.DisplayAlerts = True
Set tblInhalt = Worksheets.Add(before:=Worksheets(1))
With tblInhalt
.Name = "Inhaltsverzeichnis"
End With
intZeilenA = 5
intZeilenB = 5
intZeilenC = 5
For intTabellen = 2 To ActiveWorkbook.Worksheets.Count
Select Case True
Case Worksheets(intTabellen).Name Like "Agenda_*"
tblInhalt.Cells(intZeilenA, 1).Value = Worksheets(intTabellen).Name
tblInhalt.Cells(intZeilenA, 1).Hyperlinks.Add _
Anchor:=tblInhalt.Cells(intZeilenA, 1), Address:="", SubAddress:= _
"'" & Worksheets(intTabellen).Name & "'!A1", _
ScreenTip:="Klicken Sie um zur Tabelle zu gelangen", _
TextToDisplay:=Worksheets(intTabellen).Name
intZeilenA = intZeilenA + 1
Case Worksheets(intTabellen).Name Like "MoM*"
tblInhalt.Cells(intZeilenB, 2).Value = Worksheets(intTabellen).Name
tblInhalt.Cells(intZeilenB, 2).Hyperlinks.Add _
Anchor:=tblInhalt.Cells(intZeilenB, 1), Address:="", SubAddress:= _
"'" & Worksheets(intTabellen).Name & "'!A1", _
ScreenTip:="Klicken Sie um zur Tabelle zu gelangen", _
TextToDisplay:=Worksheets(intTabellen).Name
intZeilenB = intZeilenB + 1
Case Worksheets(intTabellen).Name Like "AcRep*"
tblInhalt.Cells(intZeilenC, 3).Value = Worksheets(intTabellen).Name
tblInhalt.Cells(intZeilenC, 3).Hyperlinks.Add _
Anchor:=tblInhalt.Cells(intZeilenC, 1), Address:="", SubAddress:= _
"'" & Worksheets(intTabellen).Name & "'!A1", _
ScreenTip:="Klicken Sie um zur Tabelle zu gelangen", _
TextToDisplay:=Worksheets(intTabellen).Name
intZeilenC = intZeilenC + 1
End Select
Next intTabellen
Application.ScreenUpdating = True
End Sub
Lg
Michael

Anzeige
AW: Inhaltsverzeichnis Tabellenblätter automatisc
10.11.2014 19:15:22
Chris
Vielen Dank.
Denk bitte daran, daß das Sheet "Übersicht", in dem das Inhaltsverzeichnis ist, fest bleibt und nicht verändert wird - also auch nicht gelöscht wird wie im Code oben, weil in den ersten 4 Zeilen ein fester Text steht, der nicht verändert wird.
D.h. das Sheet "Übersicht" wird nach Öffnen der Datei automatisch angewählt. Und bei allen neu erzeugten Sheets gibt es einen Zurück-Button zur Übersicht. Von dort aus werden dann wieder über Schaltflächen neue Sheets erstellt und kopiert. Der VBA-Code kommt dann in das Worksheet_Activate Ereignis rein und wird jedesmal beim Aufrufen des Sheets durchlaufen.
Grüße Chris

Anzeige
AW: Inhaltsverzeichnis Tabellenblätter automatisc
11.11.2014 10:53:09
Michael
Nochmals Hallo Chris!
Du hast ja von den Profis hier schon viele elegante und tolle Lösungen erhalten - ich zähle mich bei Weitem nicht zu jenen Profis, möchte Dir meine Lösung aber dennoch anbieten, da ich selbst dabei viel gelernt habe. Vielleicht gefällt Dir dieser Ansatz ja auch:
Sub ÜbersichtUmgekehrtChron()
Dim intTabellen As Integer
Dim intZeilenA As Integer
Dim intZeilenB As Integer
Dim intZeilenC As Integer
Dim EndA As Integer
Dim EndB As Integer
Dim EndC As Integer
Application.ScreenUpdating = False
intZeilenA = 5
intZeilenB = 5
intZeilenC = 5
For intTabellen = 2 To ActiveWorkbook.Worksheets.Count
Select Case True
Case Worksheets(intTabellen).Name Like "Agenda_*"
Worksheets("Übersicht").Cells(intZeilenA, 1).Hyperlinks.Add _
Anchor:=Worksheets("Übersicht").Cells(intZeilenA, 1), Address:="", SubAddress:=  _
_
"'" & Worksheets(intTabellen).Name & "'!A1", _
ScreenTip:="Klicken Sie um zur Tabelle zu gelangen", _
TextToDisplay:=Worksheets(intTabellen).Name
Worksheets("Übersicht").Cells(intZeilenA, 1).Value = Right(Worksheets( _
intTabellen).Name, 10)
intZeilenA = intZeilenA + 1
Case Worksheets(intTabellen).Name Like "MoM*"
Worksheets("Übersicht").Cells(intZeilenB, 2).Hyperlinks.Add _
Anchor:=Worksheets("Übersicht").Cells(intZeilenB, 2), Address:="", SubAddress:=  _
_
"'" & Worksheets(intTabellen).Name & "'!A1", _
ScreenTip:="Klicken Sie um zur Tabelle zu gelangen", _
TextToDisplay:=Worksheets(intTabellen).Name
Worksheets("Übersicht").Cells(intZeilenB, 2).Value = Right(Worksheets( _
intTabellen).Name, 10)
intZeilenB = intZeilenB + 1
Case Worksheets(intTabellen).Name Like "AcRep*"
Worksheets("Übersicht").Cells(intZeilenC, 3).Hyperlinks.Add _
Anchor:=Worksheets("Übersicht").Cells(intZeilenC, 3), Address:="", SubAddress:=  _
_
"'" & Worksheets(intTabellen).Name & "'!A1", _
ScreenTip:="Klicken Sie um zur Tabelle zu gelangen", _
TextToDisplay:=Worksheets(intTabellen).Name
Worksheets("Übersicht").Cells(intZeilenC, 3).Value = Right(Worksheets( _
intTabellen).Name, 10)
intZeilenC = intZeilenC + 1
End Select
Next intTabellen
EndA = Worksheets("Übersicht").Cells(5, 1).End(xlDown).Row
EndB = Worksheets("Übersicht").Cells(5, 2).End(xlDown).Row
EndC = Worksheets("Übersicht").Cells(5, 3).End(xlDown).Row
ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Add Key:=Range("A5"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Übersicht").Sort
.SetRange Range(Cells(5, 1), Cells(EndA, 1))
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Add Key:=Range("B5"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Übersicht").Sort
.SetRange Range(Cells(5, 2), Cells(EndB, 2))
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Add Key:=Range("C5"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Übersicht").Sort
.SetRange Range(Cells(5, 3), Cells(EndC, 3))
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
For intZeilenA = 5 To EndA
Worksheets("Übersicht").Cells(intZeilenA, 1).Value = "Agenda " & Worksheets("Übersicht") _
.Cells(intZeilenA, 1).Value
Next intZeilenA
For intZeilenB = 5 To EndB
Worksheets("Übersicht").Cells(intZeilenB, 2).Value = "MoM " & Worksheets("Übersicht"). _
Cells(intZeilenB, 2).Value
Next intZeilenB
For intZeilenC = 5 To EndC
Worksheets("Übersicht").Cells(intZeilenC, 3).Value = "AcRep " & Worksheets("Übersicht"). _
Cells(intZeilenC, 3).Value
Next intZeilenC
Application.ScreenUpdating = True
End Sub

Beste Grüße
Michael

Anzeige
AW: Inhaltsverzeichnis Tabellenblätter automatisc
11.11.2014 11:20:05
Chris
Danke Michal,
ich werde mich mal reindenken, langsam verstehe ich die ein oder anderen Befehle und Abläufe.
Anweisungen kriege ich mittlerweile relativ gut hin, Problematisch sind Zuordnungen und Abfragen/Schleifen.
Naja, ihr unterstützt mich ja darin sehr gut.
Vielen Dank nochmals.
Gruß Chris

Anzeige
Komplett dynamisch ohne VBA
10.11.2014 22:31:06
{Boris}
Hi Chris,
das kann man auch dynamisch per Formel und mittels der alten Excel4-Makrofunktion ARBEITSMAPPE.ZUORDNEN() lösen.
Definiere den Namen x mit Bezug auf:
=ARBEITSMAPPE.ZUORDNEN(1+0*JETZT())
Und wenn die Bezeichnungen "Agenda", "MoM" und "AcRep" in den Zellen A4:C4 stehen, dann in A5 folgende Arrayformel:
{=WENN(ZEILEN($1:1)>ANZAHL(SUCHEN(A$4;x));"";HYPERLINK("#'"&INDEX(x; KKLEINSTE(WENN(ISTZAHL(SUCHEN(A$4;x));MTRANS(ZEILE(INDIREKT("1:"&ANZAHL2(x)))));ZEILEN($1:1))) &"'!A1";TEIL(INDEX(x;KKLEINSTE(WENN(ISTZAHL(SUCHEN(A$4;x));MTRANS(ZEILE(INDIREKT("1:"&ANZAHL2(x))))); ZEILEN($1:1)));FINDEN("]";INDEX(x;KKLEINSTE(WENN(ISTZAHL(SUCHEN(A$4;x)); MTRANS(ZEILE(INDIREKT("1:"&ANZAHL2(x)))));ZEILEN($1:1))))+1;99))) }
Diese dann runter und auch nach rechts kopieren.
Hab Dir die Beispielmappe mal angehängt.
Sobald Du Blattnamen änderst oder Blätter hinzufügst oder löschst, werden die Blattauflistungen aktualisiert (auch wenn sie nicht nach Links = blau und unterstrichen - aussehen - es sind Links!).
https://www.herber.de/bbs/user/93663.xlsm
VG, Boris

Anzeige
AW: Komplett dynamisch ohne VBA
10.11.2014 22:54:06
Chris
Interessante Alternative, ich hatte so was ähnliches schon bei meiner Recherche gefunden, daber daß man damit auch dynamisch ist, wußte ich nicht.
Ich werds morgen mal testen.
Gruß Chris
;

Forumthreads zu verwandten Themen

Problem mit Hyperlink VBA
Florian

Hallo zusammen!
Bin verzweifelt auf Suche nach einer Lösung: per Makro erzeuge ich eine Datei mit Hyperlinks auf andere Dateien / Ordner im Netzwerk. Das ganze ist nun sehr mysteriös:
wenn ich die Datei (neu) erzeuge ohne sie (per Code) zu speichern (Code "Datei.Close savechanges := tr...
01.03.2010 19:42:00
Thread-ID: 1142503
3 Beiträge
Anzeige
Tabelle erstellen und mit Hyperlink verknüpfen
Rene

Hallo VBA-Experten,
ich habe ein Makro von Andreas E gefunden und an meine Bedürfnisse angepasst. Leider funktioniert das Makro nur bedingt. Auf Tabellenblatt 1 habe ich ein Liste erstellt und Tabellenblatt 2 ist das Musterblatt, welches für jeden Eintrag in Spalte E vom Tabellenblatt 1 kop...
17.02.2011 20:35:16
Thread-ID: 1201577
2 Beiträge
Auflisten aller Tabellenblätter
stef26

Hallo Zusammen,
ich hab da mal eine Frage, bei der ich kurz eure Unterstützung bräuchte.
Ich lasse mir alle Tabellenblätter einer Arbeitsmappe auflisten.
Mit einer If Abfrage grenze ich die Tabellenblätter aus, die nicht mit aufgeführt werden sollen.
Nun möchte ich noch alle die...
08.03.2016 08:59:35
Thread-ID: 1480557
4 Beiträge
Anzeige
Mit Formel erstellten Hyperlink mit VBA auslesen
Jörg

Hallo zusammen,
ich erstelle mir per Tabellen-Formel einen Hyperlink. Dieser funktioniert im Excel (V 2016) auch perfekt! Basis ist u.a. ein Wert aus einer anderen Zelle:
=WENN(ODER(Übersicht!$D15="ETS";Übersicht!$D15="VTS");WENN(A15="";""; HYPERLINK("\\DNS-Pfad\Transportschaeden_Exter...
27.07.2017 14:19:42
Thread-ID: 1571088
6 Beiträge
Hyperlink mit Doppelklick erstellen
Nils

Hallo zusammen,
ich bin ein VBA-Neuling und habe folgendes Problem.
Ich habe ein Makro, welches mir ein neues Tabellenblatt erstellt. Dabei wird dem neuen Tabellenblatt automatisiert der Name der gerade aktiven Zelle zugewiesen. Das funktioniert soweit ganz ordentlich.
Nun möchte ic...
10.01.2019 17:45:55
Thread-ID: 1667289
3 Beiträge
Anzeige
Hyperlink mit VBA erstellen....geht nicht
thomasM
hallo,

ich versuche es nochmal mit dem hyperlink.
ich schaffe es einfach nicht einen mit VBA zu erstellen.
mit dem makro aufzeichner habe ich es auch schon versucht. klappt auch nicht. :-(

genaueres siehe hier

gruß,
thomasM
26.08.2003 14:06:29
Thread-ID: 300270
6 Beiträge
Hyperlink mit Makro erstellen
Rainer Schirm
Ich habe folgendes Problem.
Ein Makro erstellt mit Hilfe einer Schleife mehrere Tabellenblätter, in welche Daten geschrieben werden.
Außerdem wird ein Tabellenblatt "Allgemein" erstellt. In diesem Tabellenblatt werden alle anderen Tabellenblätter untereinander aufgelistet.
Ich möchte nun in...
03.11.2003 22:02:12
Thread-ID: 332558
2 Beiträge
Listenfelder erstellen
Daniel

Hallo zusammen,
ich würde gerne wissen (am besten mit Beispiel), wie ich ein Listenfeld erstellen kann; die Hilfe hatte ich konsultiert, aber das ist mir zu wenig erläutert; oder kurz: die Hilfe ist unnütz!!
Um Hilfe von Experten wäre ich sehr erfreut, da die Zeit sehr knapp ist!
Danke...
29.06.2004 15:20:34
Thread-ID: 447708
9 Beiträge
Liste der Benutzer erstellen
wilfied.jansen@freenet.de

Ich habe eine Reihe von Dokumenten die über das Netzwerk von verschiedenen Benutzern verwendet werden.
Ich möchte gerne in einem separaten Tabellenblatt zumindest eine Benutzerhistorie erstellen. Also alle Namen die das Dokument geändert und gespeichert haben.
Schön wäre natürlich ein...
10.05.2007 12:04:09
Thread-ID: 869021
6 Beiträge
Hyperlink mit Abfrage erstellen
KooK

Hallo,
vielen Dank für Eure Hilfe schon mal vorneweg :-)
Ich möchte mit einem Makro einen Hyperlink auf Dateiordner erstellen. Dieser Link hat immer die gleiche Adresse, mit Ausnahme des letzten Ordners. Dieser letzte Ordner ändert sich sehr häufig. Nun möchte ich ein Makro schreiben, d...
16.05.2007 13:59:26
Thread-ID: 870462
2 Beiträge
Hyperlinks mit festem Pfad erstellen?
Selma

Hallo Leute,
mit diesem Makro erstelle ich zur Zeit für dan markierten Zellenbereich die Hyperlinks.
In markierten Zellenbereich stehen nur die Dateinamen (ohne Pfad) z.B. "Anlage 205 vom 24.05.2007.doc"
Alle Dateien liegen im Verzeichnis "d:\schriftverkehr 2007\Anlagen\"
Beim...
03.06.2007 21:42:00
Thread-ID: 875189
3 Beiträge
Anzeige
Probleme mit Hyperlink doch nur mit VBA Oder?
Thomas

Guten Morgen liebe Exceler,
habe folgendes Problem:
Ich habe mir eine Datei mit Miniaturbilder gebastelt mit Grundriss, Außenansicht, Stadtplan. Alle sind mit dem Orginalbild (per Hyperlink) verknüpft, so das sich dann das Orginalbild öffnet. Alle Bilder sind lokal abgelegt.
Jetzt...
15.02.2008 08:34:00
Thread-ID: 951735
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Inhaltsverzeichnis für Tabellenblätter in Excel erstellen

Schritt-für-Schritt-Anleitung

Um ein Inhaltsverzeichnis für Tabellenblätter in Excel zu erstellen, das automatisch aktualisiert wird, kannst du die folgenden Schritte befolgen. Diese Anleitung nutzt VBA, um ein Excel-Inhaltsverzeichnis mit Hyperlink zu generieren.

  1. Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu:
    • Klicke im Menü auf Einfügen > Modul.
  3. Kopiere den folgenden VBA-Code in das Modul:
Private Sub Worksheet_Activate()
' Inhaltsverzeichnis für bestimmte Blätter erstellen
Dim Zeile As Long, Zeile_Max As Long
Dim Spalte As Long, Spalte_Datum As Long
Dim arrBlatt, intBlatt As Integer
Dim wksUeb As Worksheet, wks As Worksheet
Dim strDatum As String
arrBlatt = Array("Agenda_", "MoM_", "AcRep_")
Set wksUeb = Worksheets("Übersicht") ' Name ggf anpassen
Spalte_Datum = 4
With wksUeb
    With .UsedRange
        Zeile_Max = .Row + .Rows.Count
    End With
    If Zeile_Max >= 5 Then
        .Range(.Rows(5), .Rows(Zeile_Max)).ClearContents
    End If
    Spalte = 0
    For intBlatt = LBound(arrBlatt) To UBound(arrBlatt)
        Spalte = Spalte + 1
        Zeile = 4
        For Each wks In ActiveWorkbook.Worksheets
            If UCase(Left(wks.Name, Len(arrBlatt(intBlatt)))) = UCase(arrBlatt(intBlatt)) Then
                Zeile = Zeile + 1
                .Cells(Zeile, Spalte) = wks.Name
                strDatum = Right(wks.Name, 10)
                If IsDate(strDatum) Then
                    .Cells(Zeile, Spalte_Datum).Value = CDate(strDatum)
                End If
                .Hyperlinks.Add Anchor:=.Cells(Zeile, Spalte), Address:="", _
                SubAddress:=wks.Name & "!A1", TextToDisplay:=wks.Name
            End If
        Next wks
    Next intBlatt
End With
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Aktiviere das Blatt „Übersicht“, um das Inhaltsverzeichnis zu generieren.

Häufige Fehler und Lösungen

  • Problem: Der VBA-Code funktioniert nicht.

    • Lösung: Stelle sicher, dass der Blattname „Übersicht“ korrekt geschrieben ist und existiert. Überprüfe auch, ob die Makros in Excel aktiviert sind.

  • Problem: Hyperlinks führen nicht zu den entsprechenden Blättern.

    • Lösung: Überprüfe die Blattnamen. Sie müssen genau mit den Namen in der Arbeitsmappe übereinstimmen.

Alternative Methoden

Falls du ein Inhaltsverzeichnis in Excel ohne VBA erstellen möchtest, kannst du die Funktion ARBEITSMAPPE.ZUORDNEN() verwenden. Hier ein einfaches Beispiel:

  1. Definiere den Namen x mit der Formel: 
    =ARBEITSMAPPE.ZUORDNEN(1+0*JETZT())
  2. Verwende dann folgende Array-Formel in A5: 
    {=WENN(ZEILEN($1:1)>ANZAHL(SUCHEN(A$4;x));"";HYPERLINK("#'"&INDEX(x; KKLEINSTE(WENN(ISTZAHL(SUCHEN(A$4;x));MTRANS(ZEILE(INDIREKT("1:"&ANZAHL2(x)))));ZEILEN($1:1))) &"'!A1";TEIL(INDEX(x;KKLEINSTE(WENN(ISTZAHL(SUCHEN(A$4;x));MTRANS(ZEILE(INDIREKT("1:"&ANZAHL2(x))))); ZEILEN($1:1)));FINDEN("]";INDEX(x;KKLEINSTE(WENN(ISTZAHL(SUCHEN(A$4;x)); MTRANS(ZEILE(INDIREKT("1:"&ANZAHL2(x)))));ZEILEN($1:1))))+1;99)))}

Diese Methode ermöglicht ein dynamisches Inhaltsverzeichnis, das sich bei Änderungen automatisch aktualisiert.

Praktische Beispiele

  • Beispiel 1: Wenn du ein Arbeitsblatt „Agenda_01.12.2021“ hast, wird es im Inhaltsverzeichnis unter dem entsprechenden Abschnitt aufgelistet, wenn du die oben beschriebenen Schritte ausführst.
  • Beispiel 2: Mit der Formel kannst du alle Blätter, die mit „MoM“ beginnen, dynamisch in einer Liste anzeigen lassen, ohne dass du manuell eingreifen musst.

Tipps für Profis

  • Verwende Worksheet_Activate, um sicherzustellen, dass das Inhaltsverzeichnis immer aktualisiert wird, wenn du das Blatt „Übersicht“ aufrufst.
  • Du kannst die Hyperlinks anpassen, um spezifische Zellen in den Arbeitsblättern anzusprechen, indem du SubAddress:=wks.Name & "!A2" entsprechend änderst.
  • Experimentiere mit Variablen, um den Code an deine spezifischen Anforderungen anzupassen und um ein individuelles Inhaltsverzeichnis für Tabellenblätter zu erstellen.

FAQ: Häufige Fragen

1. Wie erstelle ich eine Excel-Liste aller Tabellenblätter ohne VBA?
Du kannst eine Formel verwenden, die auf ARBEITSMAPPE.ZUORDNEN() basiert, um eine dynamische Liste zu erstellen.

2. Kann ich mehrere Hyperlinks in einer Zelle erstellen?
Nein, Excel erlaubt nur einen Hyperlink pro Zelle. Du kannst jedoch mehrere Zellen nutzen, um verschiedene Hyperlinks darzustellen.

3. Wie aktualisiere ich das Inhaltsverzeichnis manuell?
Um das Inhaltsverzeichnis manuell zu aktualisieren, klicke einfach auf das Blatt „Übersicht“ oder führe den VBA-Code erneut aus.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige