Mit Makro Hyperlink von Tabelle1 auf Tabelle2 in einer Mappe ausführen

Vielen lieben Dank Andreas, ich verstehe zwar nicht, wie dein Code funktioniert aber er macht, was er soll.
Den von mir angegebenen Code, spuckt Excel selbst bei der Makro Aufzeichnung aus. Dass das falsch ist, kann ich als Laie nicht ahnen.
Deine Hilfe wird mir auf lange Sicht viel Zeit ersparen, dafür möchte ich mich bei Dir bedanken.
Grüße
Thomas

Der Code unten passt... allerdings macht das nicht so wirklich Sinn, denn:
Bitte benutze niemals SELECT, SELECTION, ACTIVECELL, es ist langsam und fehleranfällig. Referenziere immer die Objekte.
Daher wirst Du den Code wohl für irgendwas anderes brauchen und wenn wir die ganze Geschichte kennen wird der Code überflüssig sein, denn das Range-Objekt kann das auch anders...
Andreas.
Sub Test()
Dim H As Hyperlink
Set H = ActiveCell.Hyperlinks(1)
With Range(H.SubAddress)
.Parent.Select
.Select
End With
End Sub

Hallo,

Arbeitsmappe.Zuordnen ist ein altes Excel4-Makro.

Das funktioniert nur in Mappen, die als Mappen mit Makro, also .xlsm oder .xlsb gespeichert sind.

Dann kannst du auch gleich ein normales Makro schreiben oder in das Makro zum Kopieren den Code einfügen. In diesem Makro kannst du dann exakt referenzieren, in welche Mappe und in welches Blatt das Inhaltsverzeichnis geschrieben wird.

Hier ein Makro das in die eigene Mappe Tabelle1 in Spalte A ein Inhaltsverzeichnis mit Hyperlinks einfügt:

Sub Inhaltsverzeichnis()

Dim i As IntegerWith ThisWorkbook

    For i = 1 To .Sheets.Count

        .Sheets("Tabelle1").Hyperlinks.Add _

            anchor:=Cells(i, "A"), _

            Address:="", _

            SubAddress:="'" & .Sheets(i).Name & "'!A1", _

            TextToDisplay:=.Sheets(i).Name

    Next

End With

End Sub
Scheinbar wird der vergebene Name für Arbeitsmappe.Zuordnen beim Kopieren der Blätter mit kopiert und verursacht damit, dass in beiden Mappen ein Inhaltsverzeichnis angelegt wird.

Claus

Mach mal eine neue Datei, in Tabelle2 in A1 machst du diese Formel:

=HYPERLINK(ZELLE("adresse";Tabelle1!A1);"Hallo Welt")

Alles klar?

Andreas.

...

a) in Tabelle2 sollte die Formel in B1 genau gleich sein, aber sich auf Tabelle2 beziehen.

b) Allerdings wäre es mir wichtig, dass sich die Formel in Tabelle2 ändert, wenn ich sie in Tabelle1 ändere.

a) geht von alleine beim Kopieren.

b) geht nicht, kann man manuell (oder via makro machen):

Zellen in Tabelle1 kopieren, in Tabelle2 "Inhalte einfügen\Formeln"

Sub Test()

Sheets("Tabelle1").Range("A1:F20").Copy

Sheets("Tabelle2").Range("A1").PasteSpecial Paste:=xlPasteFormulas

Application.CutCopyMode = False

End Sub

Oder noch besser stattdessen: Du gruppierst die Tabellenblätter und dann wird die Änderung in einem Blatt auch in allen anderen durchgeführt.

Andreas.