Alle eingeblendeten Tabellennamen als Hyperlink

Forumthread: Alle eingeblendeten Tabellennamen als Hyperlink

24.03.2007 09:02:32

Fritz_W

Hallo Forumsbesucher,
ich würde gern per Makro in die aktive Tabelle eine Liste aller in der Arbeitsmappe enthaltenen Tabellenbezeichnungen (als Hyperlink) einfügen, sofern die Tabellen in der Arbeitsmappe nicht ausgeblendet sind, so dass man aus dieser Tabelle alle nicht ausgeblendeten Tabellen der Mappe per Mausklick aktivieren kann.
Wenn möglich sollten die Tabellennamen in der Spalte A beginnend ab Zeile 3 eingefügt werden.
Vielen Dank für eure Unterstützung
Mfg
Fritz

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Alle eingeblendeten Tabellennamen als Hyperlin

24.03.2007 09:13:54

Hans
AW: Alle eingeblendeten Tabellennamen als Hyperlin

24.03.2007 09:21:27

Fritz_W
@Hans

24.03.2007 09:33:10

Fritz_W
AW: @Hans

24.03.2007 09:35:28

Hans
AW: @Hans

24.03.2007 09:47:45

Fritz_W

AW: Alle eingeblendeten Tabellennamen als Hyperlin

24.03.2007 09:13:54

Hans

Hallo Fritz,
wie folgt:


Sub HypeWks()
Dim wks As Worksheet
Dim iRow As Integer
ActiveSheet.Hyperlinks.Delete
iRow = 3
For Each wks In ActiveWorkbook.Worksheets
If wks.Visible = xlSheetVisible And wks.Index  1 Then
With Cells(iRow, 1)
.Value = wks.Name
.Hyperlinks.Add Anchor:=Cells(iRow, 1), Address:="", SubAddress:=.Value & "!A1"
End With
iRow = iRow + 1
End If
Next wks
End Sub

Gruss hans
---
Versuch und Irrtum war gestern

AW: Alle eingeblendeten Tabellennamen als Hyperlin

24.03.2007 09:21:27

Fritz_W

Hallo Hans,
perfekt, vielen Dank!
Gruß
Fritz

@Hans

24.03.2007 09:33:10

Fritz_W

Hallo Hans,
gerade habe ich festgestellt, dass ein Hyperlink der "ersten Tabelle" der Arbeitsmappe nicht eingefügt wird. Das ist i.d.R. sinnvoll, wenn das Makro aus der ersten Tabelle gestartet wird.
Dennoch: Wie müsste man den Code ändern, wenn jeweils der Hyperlink der aktiven Tabelle in der Liste nicht erscheint.
Beispiel: Arbeitsmappe besteht aus 5 Tabellen: Tabelle1 bis Tabelle5
Tabelle 3 (ausgeblendet), Tabelle 4 (ausgeblendet - veryhidden).
Wird das Makro aus Tabelle1 gestartet, sollte die Hyperlinkliste folgende Tabellennamen auflisten:
Tabelle2 (in Zelle A3)
Tabelle5 (in Zelle A4)
Wird das Makro aus Tabelle2 gestartet, sollte die Hyperlinkliste dagegen folgende Tabellennamen aufführen:
Tabelle1 (in Zelle A3)
Tabelle5 (in Zelle A5)
Wäre schön, wenn Du mir das entsprechend abändern würdest!
Gruß
Fritz

AW: @Hans

24.03.2007 09:35:28

Hans

Hallo Fritz,
tausche die Zeile:

If wks.Visible = xlSheetVisible And wks.Index  1 Then

gegen:

If wks.Visible = xlSheetVisible And wks.Name  ActiveSheet.Name Then

Gruss hans
---
Versuch und Irrtum war gestern

AW: @Hans

24.03.2007 09:47:45

Fritz_W

Hallo Hans,
jawohl so ist das Makro flexibler einsetzbar.
Vielen herzlichen Dank!
Schönen Gruß
Fritz

Beliebteste Forumthreads (12 Monate)

Alle eingeblendeten Tabellennamen als Hyperlink

Forumthread: Alle eingeblendeten Tabellennamen als Hyperlink

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread