Excel vba: Link & Eintrag in Indexblatt löschen

[sharky51]

Hallo Uwe,
jetzt stehe ich gerade auf dem Schlauch.
Wie löse ich das Makro aus? Wenn ich auf einen Link klicke springe ich doch auf das gewählte Tabellenblatt.
Das checke ich gerade nicht.

[Kuwer]

Hallo Erich,

Wie löse ich das Makro aus? Wenn ich auf einen Link klicke springe ich doch auf das gewählte Tabellenblatt.
Das checke ich gerade nicht.

wie hast Du es denn vorher gemacht?
Was steht denn im Popuphinweisfenster, wenn Du den Mauszeiger auf eine Zelle mit Hyperlink hältst?

Gruß Uwe

[sharky51]

Hallo Uwe,
na ja hab auf den Link geklickt und hab dann nachdem das Tabellenblatt sichtbar war zum Test das Makro im VBA-Editor ausgelöst.

Im Popuphinweisfenster sehe ich die Pfadangabe und dass bei einem Klick dem Hyperlink gefolgt wird und wenn die Maustaste gedrückt bleibt die Zelle ausgewählt wird.

[Kuwer]

Hallo Erich,

Im Popuphinweisfenster sehe ich die Pfadangabe und dass bei einem Klick dem Hyperlink gefolgt wird und wenn die Maustaste gedrückt bleibt die Zelle ausgewählt wird.

dann mach mal das, was als letztes da steht und rufe dann das Makro auf (z.B. per Alt+F8).
Genauso hättest Du es bei Ralfs Version ja auch machen sollen.

Gruß Uwe

[sharky51]

Hallo Uwe,

jetzt habe ich es verstanden was Ralf gemeint hatte....und es funktioniert auch so.

Super vielen Dank an Euch beide für die Tipps und Eure Geduld!!!!

[sharky51]

Hallo zusammen,
jetzt hätte ich noch eine Frage zu dem Thema Indexblatt bzw. Inhaltsverzeichnis.
Gibt es ein Möglichkeit ohne dass man das Inhaltsverzeichnis komplett neu erstellt dieses automatisch aktualisieren lässt wenn man ein neues Tabellenblatt in die Mappe einfügt oder eines aus dieser Mappe manuell löscht?
Bei einer möglichen automatischen Aktualisierung sollte natürlich ein Link auf die neue Tabelle generiert werden oder beim Entfernen der entsprechende Link auf das Blatt gelöscht werden.

Lässt sich so etwas umsetzen? Eine Idee wäre wie immer toll!

[Kuwer]

Hallo Erich,

Gibt es ein Möglichkeit ohne dass man das Inhaltsverzeichnis komplett neu erstellt ...

das wäre aber die einfachste Variante.  

Dazu einfach folgenden Code in das VBA-Modul des Indexblattes einfügen:

' **************************************************************
'  Modul:  Tabelle1  Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************

Option Explicit

Private Sub Worksheet_Activate()
 Dim oWs As Worksheet
 'Bereich ab Zelle B2 abwärts wird gelöscht
 Me.Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp)).Clear
 Application.ScreenUpdating = False
 For Each oWs In Worksheets
   If oWs.Name <> Me.Name Then
     'ab Zelle B2 werden die Links eingetragen
     Me.Hyperlinks.Add Anchor:=Cells(Rows.Count, 2).End(xlUp).Offset(1), _
                     Address:="", _
                     SubAddress:="'" & oWs.Name & "'!A1", _
                     TextToDisplay:=oWs.Name
   End If
 Next oWs
 Application.ScreenUpdating = True
End Sub

Gruß Uwe

[sharky51]

Uwe,
das ist ja ober-cool.

Herzlichen Dank dafür!!!!!