Hallo zusammen,
ich habe in einer Excelmappe ein Inhaltsverzeichnis erstellt. Jetzt würde ich gerne von den einzelnen Arbeitsblättern auf diese Inhaltsverzeichnis zurückverlinken.
Leider schaffe ich es bisher nur, in dem aktiven Blatt einen solchen Link einzufügen. Was muss ich ändern?
Bin dankbar für Hilfe, habe mich schon durch die Foren gelesen, leider ohne Erfolg…
Vielen Dank! Anna
Hier also mein Makro:
Sub ÜberschriftErstellen()
Dim Tabelle As Worksheet
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Cells(1, 1).Value = Sheets(i).Name
Sheets(i).Cells(1, 1).Font.Bold = True
Sheets(i).Cells(1, 1).Font.Size = 12
Next i
For Each Tabelle In ThisWorkbook.Sheets
With Tabelle
Range(„C1“).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
„Inhaltsverzeichnis!A1“, TextToDisplay:=„Zurück zur Übersicht“
End With
Next Tabelle
Hallo Anna,
warum machst du das so kompliziert mit einem Makro?
Markiere/selektiere alle Tabellenblätter gleichzeitig (mit gedrückter Strg+Taste) und schreibe in eine beliebige (überall freie) Zelle den Link zum Inhaltsverzeichnis.
Nun ist in allen Blättern in dieser Zelle der Link zum Inhaltsverzeichnis enthalten.
Hallo,
wenn dein Inhaltsverzeichnis im Tabellenblatt „Übersicht“ steht, dann geht dies recht einfach.
Gehe mit der rechten Maustaste auf deinen Link in der „Tabelle1“.
Dann auf den Menüpunkt „Hyperlink bearbeiten“.
Dann den Menüpunkt „Wählen sie eine Stelle im Dokument“.
Jetzt kannst du deine Tabelle „Übersicht“ auswählen und Taste „OK“.
Klickst du den Link jetzt an, springst du auf dein Inhaltsverzeichnis zurück.
Es kann im beschriebenen Ablauf auch noch eine bestimmte Zelle gewählt werden.
Hey Maik, ich mache es so kompliziert, da sich meine Excel Mappe in Zukunft ständig erweitern und ändern wird. Dazu hätte ich dann gerne automatische Formatierung, Navigation etc per Makro.
Mein Problem ist ja auch nur, dass mein Makro mir den Link nur ins aktive Tabellenblatt macht, nicht aber in alle anderen Blätter gleichzeitig auch.
Trotzdem danke für die Antwort! Gruß, Anna
Danke für die Antwort! Hilft mir aber leider nicht bei meinem Makro-Problem. Ich möchte meine Mappe erweitern können, ohne für jedes einzelne Tabellenblatt Links einzufügen…
Lg, Anna
Hey Alfred, funktioniert!! Vielen Dank!
Und danke an alle anderen für die Rückmeldungen, super Forum hier…
Hier also mein funktionierendes Makro, welches in jedem Tabellenblatt in Zelle C1 einen Link „zurück zur Übersicht“ einfügt (außer im Inhaltsverzeichnis selbst). Außerdem werden Überschriften formatiert.
Sub ÜberschriftErstellen()
Dim Tabelle As Worksheet
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Cells(1, 1).Value = Sheets(i).Name
Sheets(i).Cells(1, 1).Font.Bold = True
Sheets(i).Cells(1, 1).Font.Size = 12
Next i
For Each Tabelle In ThisWorkbook.Sheets
With Tabelle
Tabelle.Activate
Range(„C1“).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
„Inhaltsverzeichnis!A1“, TextToDisplay:=„Zurück zur Übersicht“
If ActiveSheet.Name = „Inhaltsverzeichnis“ Then
Cells(1, 3).Value = „“
End If
End With
Next Tabelle
End Sub
Sub ÜberschriftErstellen()
Dim Tabelle As Worksheet
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Cells(1, 1).Value = Sheets(i).Name
Sheets(i).Cells(1, 1).Font.Bold = True
Sheets(i).Cells(1, 1).Font.Size = 12
Next i
For Each Tabelle In ThisWorkbook.Sheets
With Tabelle
Range(„C1“).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:= _
„Inhaltsverzeichnis!A1“, TextToDisplay:=„Zurück zur Übersicht“
End With
Next Tabelle
End Sub
Tut mir leid, eine richtige Idee, wie man das machen könnte, habe ich auch nicht.
Hallo,
weiterführende Hilfe kann ich dir leider nicht anbieten.
Vielleicht noch ein weiterführender Link zu „www.Eexcelbeispiele.de“, Suchbegriff: „Über einen Hyperlink, ein anderes Tabellenblatt aufrufen.“
mfg
Softoldi
Danke für die Antwort! Hilft mir aber leider nicht bei meinem
Makro-Problem. Ich möchte meine Mappe erweitern können, ohne
für jedes einzelne Tabellenblatt Links einzufügen…
Lg, Anna
ich denke am einfachsten ist es, wenn Du Dir einen Button einfügst. Diesen Button weist Du dann einem Makro (z.b. mcr_ZurückZurÜbersicht) zu, welches Du vorher erstellt hast. Das Makro erstellst Du am einfachsten so, dass du eine Start-Seite (Reiter) auswählst. Beginne / starte die Makroaufzeichnung und klickst einfach deinen Reiter Übersicht an. Und Aufzeichnung beenden. Ich denke aus diesem Makro benötigst du nur die Zeile die etwas so lautet:
Sub mcr_ZurückZurÜbersicht
Sheets(„Übersicht“).select
end Sub
Dann kannst du den Button auf jedes Blatt kopieren und das sollte dann reichen!
Du benötigst dafür keinen Makro.
Einfach alle Sheets markieren (zuerst das Sheet hinter dem Inhaltsverzeichnis markieren, zum letzten Sheet gehen, Shift festhalten und das letzte Sheet anklicken, damit sind alle markiert.)
Alles, was Du jetzt auf dem aktuellen Sheet tust, wird in allen markierten Sheets gemacht.
Jetzt in die Zelle C1 einen Hyperlink auf das Inhaltsverzeichnis einfügen. Damit sind auf allen Sheets in der Zelle C1 Hyperlinks auf das Inhaltsverzeichnis.