Wie verlinke ich auf allen Arbeitsblättern?

Computer: Software & Programmierung Visual Basic
#1

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

End Sub

#2

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.

Hilft das?

Gruß,
MAIK

#3

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.

mfg
Softoldi

#4

Hallo Anna_Kre,

ich habe es versucht aber leider keine Lösung finden können. Meine VBA-Kenntnisse sind auch nicht sonderlich groß.

Gruß Hugo

#5

Hallo!

Ich würde noch ein

Tabelle.Activate

vor

Range(„C1“).Select

geben.

Grüße,
Alfred

#6

Hallo Anna,
oh weh! Leider bin ich in VBA nicht kompetent, so dass ich Dir dabei LEIDER nicht weiterhelfen kann; tut mir sehr leid!
Gruß Reinhard

#7

Hallo Anna,

die Antwort steht schon in Deinem Makro. In This Workbook. D. h. es kann keine externen Workbooks geben. Wie soll Excel diese erkennen bzw. finden?

Arbeite Manuell mit = und öffne die Betreffende Excel Datei. Versuche das Projekt umzustrukturieren.

Sorry, hab leider keine positivere Nachricht.

Besten Gruß
Siegfried

#8

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

#9

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

#10

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

#11

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

End Sub

Tut mir leid, eine richtige Idee, wie man das machen könnte, habe ich auch nicht.

#12

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

#13

Hallo 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!

Gruß
Ramaka

#14

Sorry für die späte Antwort …

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.

Gruss,

e-a-s-y