Tabellenblatt mit Doppelclick öffnen

Forumthread: Tabellenblatt mit Doppelclick öffnen

13.12.2005 20:24:13

Alfons

Hallo Excel-User,
Ich habe eine Excel-Datei mit etwa 50 Tabellenblättern.
Im ersten Tabellenblatt stehen in Spalte B die Namen der Tabellenblätter untereinander, das mach ich so:
For I = 2 To Worksheets.Count
Sheets("Auswertung").Cells(I + Erste_Zeile, 2).Value = Sheets(I).Name
Next
Funktioniert einwandfrei.
Gibt es eine Möglichkeit, etwa mit Doppelclick auf eine Zeile,
das entsprechende Tabellenblatt zu öffnen?
Im Voraus besten Dank
Alfons

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellenblatt mit Doppelclick öffnen

13.12.2005 20:31:50

Ramses
AW: Tabellenblatt mit Doppelclick öffnen

14.12.2005 08:50:36

Alfons

AW: Tabellenblatt mit Doppelclick öffnen

13.12.2005 20:31:50

Ramses

Hallo
Probier mal
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

AW: Tabellenblatt mit Doppelclick öffnen

14.12.2005 08:50:36

Alfons

Hallo Rainer,
vielen Dank
funktioniert einwandfrei
Alfons

Beliebteste Forumthreads (12 Monate)

Tabellenblatt mit Doppelclick öffnen

Forumthread: Tabellenblatt mit Doppelclick öffnen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread