Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1028to1032
1028to1032
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhaltsverzeichnis mit Hyperlinks per Makro

Inhaltsverzeichnis mit Hyperlinks per Makro
27.11.2008 21:39:16
Max
Hallo Excelperten,
ich habe häufiger mit Excel-Dateien mit vielen Tabellenblättern zu tun und bräuchte hierfür ein Makro, das
1) ein neues Tabellenblatt zu Beginn der Datei einfügt
2) ein "Inhaltsverzeichnis" aller in der Datei vorhandenen Tabellenblätter anlegt (untereinander gelistet)
3) Hyperlinks auf die jeweiligen Tabellenblätter in das Inhaltsverzeichnis einfügt.
Würde mir sehr viel Zeit sparen, wenn mir hierzu jemand weiterhelfen kann ...
Besten Dank im Voraus
Max

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhaltsverzeichnis mit Hyperlinks per Makro
27.11.2008 21:43:00
Gerd
Hi,
Rechtsklick auf die Pfeile links unten.
mfg Gerd
AW: Inhaltsverzeichnis mit Hyperlinks per Makro
27.11.2008 22:13:00
Ramses
Hallo
Alternativ vielleicht so
Sub Create_Hyperlink_Table_of_Contents()
    '(C) Ramses
    'Erstellt ein Inhaltsverzeichnis auf alle Tabellen einer
    'Mappe mit Hyperlinks auf die jeweiligen Tabellen
    Dim tarWks As Worksheet
    Dim i As Integer, myRow As Integer, tmpCnt As Integer
    'Blattnamen anpassen
    Set tarWks = Worksheets("Inhalt")
    'Bestehenden Inhalt löschen
    tarWks.Columns(1).ClearContents
    tarWks.Cells(1, 1) = "Inhalt"
    'Erstellen des Inhaltsverzeichnisses
    '**************************
    'Vertikal
    For i = 2 To Worksheets.count
        tarWks.Cells(i, 1) = Worksheets(i).name
        Cells(i, 1).Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:="'" & Worksheets(i).name & "'!A1", TextToDisplay:=Worksheets(i).name
    Next i
    'Sortiert das Inhaltsverzeichnis
    tarWks.Columns(1).Sort Key1:=tarWks.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    '**************************
    'Horizontal
    'tmpCnt = 1
    'myRow = 1
    'For i = 1 To Worksheets.Count
    ' If i Mod 256 = 0 Then
    ' tmpCnt = 1
    ' myRow = myRow + 1
    ' End If
    ' If Worksheets(i).Name <> tarwks.Name Then
    ' tarwks.Cells(myRow, tmpCnt) = Worksheets(i).Name
    ' Cells(myRow, tmpCnt).Hyperlinks.Add Anchor:=Cells(myRow, tmpCnt), Address:="", SubAddress:="'" & Worksheets(i).Name & "'!A1", TextToDisplay:=Worksheets(i).Name
    ' tmpCnt = tmpCnt + 1
    ' End If
    'Next i
End Sub

Gruss Rainer
Anzeige
AW: Inhaltsverzeichnis mit Hyperlinks per Makro
28.11.2008 11:45:03
Max
Hallo Rainer,
die zwei Befehls-Zeilen um ein neues Tabellenblatt einzufügen und entsprechend zu benennen habe ich selbst hinbekommen und danach funktioniert das Makro dann klasse!!! ... wird in Zukunft eine echte Erleichterung für mich sein!
Vielen Dank und ein schönes Wochenende!
Max

11 Forumthreads zu ähnlichen 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
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 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
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
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
Inhaltsverzeichniss automatisch erstellen mit Link
Gerhard

Hallo
Habe mit Hilfe dieses Forums mir ein Inhaltsverzeichnis meiner vorhanden Sheets erstellt, das wie folgt aussieht:
Sub Übersicht() Dim wks As Worksheet Dim i As Integer Dim wb As Workbook Dim ws As Worksheet Set wb = ActiveWorkbook Set wks = wb.Worksheets("01_Übersicht") Workshee...
15.05.2008 06:06:00
Thread-ID: 977636
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
5
2
5
1
1
2
3
5
9