Zellinhalt automatisch als Hyperlink zu anderem Blatt nutzen?

Question

Hallo zusammen,

ich habe eine Mappe mit vielen Blättern und einem Übersichtsblatt.
Auf diesem Übersichtsblatt findet sich eine Liste mit Informationen zu den einzelnen anderen Blättern, unter anderem auch der Name der Blätter.

Ich möchte die Liste nun um eine weitere Spalte erweitern und dort einen Hyperlink oder Sprungmarke oder was auch immer setzen, mit dem ich direkt zum zu dieser Zeile gehörenden Tabellenblatt springe.

Wie bewerkstellige ich das am besten?

Grüße

Peter

Answer 1

Hallo Peter,

kopiere das folgende Makro in das VBA-Projekt der Tabelle, in der die Übersichtsliste steht:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strTabelle As String
Dim i As Integer

'Inhalt der aktuellen Zelle in variable schreiben
strTabelle = ActiveCell.Value

'Doppelklick "abbrechen"
Cancel = True

'prüfen ob Tabelle existiert
For i = 1 To ThisWorkbook.Worksheets.Count
  If ThisWorkbook.Worksheets(i).Name = strTabelle Then
     'falls Tabelle existiert, dann auf das Tabellenblatt wechseln
     ThisWorkbook.Worksheets(i).Activate
     Exit Sub
  End If
Next i

'ansonsten
MsgBox "Das Tabellenblatt " & strTabelle & " existiert nicht!", 16, "Fehler"

End Sub

Das Makro wird ausgelöst, wenn du einen Doppelklick in die Zelle mit den Namen der Tabelle machst.

Gruß

M.O.

Answer 2

Hallo MO,

danke für die Antwort. Das funktioniert aber nicht. Wahrscheinlich habe ich mich zu umständlich ausgedrückt.

Ich vereinfache das mal:

Ich habe ein Sheet "Übersicht" mit dem Wert "ABC" in A1.  Zudem existiert ein Sheet mit dem Namen "ABC".

Im Sheet Übersicht möchte ich nun in A2 eine Formel hinterlegen, die sinngemäß so aussieht:

=WechsleZuSheet("ABC")     das ausgelöst wird, wenn ich mit der Maus in A2 klicke.

So würde der Link in A2 automatisch aktualisiert, wenn der Wert in A1 verändert wird.

Ist das möglich?

Gruß

Peter

Answer 3

Hallo Peter,

bei mir funktioniert das Makro einwandrei.

Mit einer Formel kannst du das wie folgt machen:
=HYPERLINK("#"&A1&"!A1";A1)

Im Beispiel mit der Formel wird in der Zieltabelle die Zelle A1 aktiviert. Aber das kannst du auf deine Bedürfnisse anpassen.

In der Formel oben wird der Tabellenname als Hyperlinkbezeichnung dargestellt. Das kannst du aber auch ändern, z.B. so:
=HYPERLINK("#"&A1&"!A1";"zur Zieltabelle wechseln")

 

Gruß

M.O.

Answer 4

Hallo M.O.,

danke, das war genau das, was ich suchte!

Grüße

Peter