Registriert seit: 24.02.2017
Version(en): 365; (2013)
Hallo zusammen,
ich habe eine Datei die mittlerweile recht viele Sheets hat.
Ich möchte ein Readme erstellen in dem die einzelnen Reiter erklärt sind.
Und dazu wäre es cool wenn man eine Navigationsfunktion hat dass man per Klick auf den jeweiligen Reiter springen kann - und von dort wieder zurück auf die Übersicht.
Ich habe das schon mehrmals gesehen und hatte es vor Jahren auch selbst schon einmal umgesetzt.
Ich weiß noch dass es relativ simpel war, findet aktuell aber keine Datei mehr in der das umgesetzt ist.
Hat jemand von euch zufällig eine Vorlage für mich?
Die Datei ist bereits eine XLSM mit Makrofunktionalität.
Registriert seit: 26.09.2022
Version(en): 2019
Moin,
die einfache Hyperlink()-Formel hilft dir da schon weiter.
Viele Grüße
derHöpp
Registriert seit: 12.01.2020
Version(en): 2010, 2021
< es lebe die Hilfsspalte >
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Moin!
Neben =HYPERLINK() und Hyperlink gibt es ja noch die eingebaute Funktionalität, die (leider) den meisten Benutzern unbekannt ist.
Sie dürfte meist ausreichen:
Außerdem gibt es in unserem Beispielbereich auch ein kleines Tutorial, wie man die Liste der Tabellennamen per Formel erzeugt:
https://www.clever-excel-forum.de/Thread...blattnamenDas in eine HYPERLINK()-Formel einzuarbeiten, ist dann ein Klacks.
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:1 Nutzer sagt Danke an RPP63 für diesen Beitrag 28
• Huzzim
Registriert seit: 10.04.2014
Version(en): 2016 + 365
07.03.2023, 23:05
(Dieser Beitrag wurde zuletzt bearbeitet: 07.03.2023, 23:24 von Kuwer.
Bearbeitungsgrund: fehlerhaften Link berichtigt
)
Hi,
ich habe eine Seite gefunden, wo ein
Inhaltsverzeichnis mit klickbaren Bildern aller Webseiten erstellt wird.
Das sieht gut aus.
Dort wird jedes Mal das Inhalts-Arbeitsblatt gelöscht und ein neues erzeugt. Vermutlich, damit die Bilder nicht einzeln gelöscht werden müssen.
Hier der entsprechende Code-Schnipsel:
Code:
'Delete existing TOC Gallery sheet
Application.DisplayAlerts = False
On Error Resume Next
Worksheets(sTOCNAME).Delete
On Error GoTo 0
Application.DisplayAlerts = True
'Add new TOC Gallery sheet
Set wsTOC = Worksheets.Add(Before:=Worksheets(1))
wsTOC.Name = sTOCNAME
Das führt dazu, daß der Codename des neuen Tabellenblattes sich am Ende immer hochzählt und das Makro nicht automatisch ablaufen kann bei Worksheet_Actvate, weil es ja nach dem löschen und Neu-Erzeugen weg ist.
Wie kann das gemacht werden, daß der komplette Inhalt (die Bilder und Links) des Blattes gelöscht wird, ohne das bestehende Blatt zu entfernen und ein neues am Ende einzufügen?
Oder wie kann automatisch hinter das neu erzeugte Blatt ein Worksheet_Activate-Code eingefügt werden?
Gruß Ralf
Registriert seit: 26.09.2022
Version(en): 2019
Hi,
das Workbook stellt ein übergreifendes Sheetactivate-Event zur Verfügung:
https://learn.microsoft.com/en-us/office...etactivateViele Grüße
derHöpp
Folgende(r) 1 Nutzer sagt Danke an derHoepp für diesen Beitrag:1 Nutzer sagt Danke an derHoepp für diesen Beitrag 28
• Rabe
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo Ralf,
ohne Blattlöschung z.B. so:
Code:
'Delete existing TOC Gallery
With Worksheets(1)
.DrawingObjects.Delete
.Cells.Delete
End With
Set wsTOC = Worksheets(1)
Gruß Uwe
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28
• Rabe
Registriert seit: 10.04.2014
Version(en): 2016 + 365
07.03.2023, 23:54
(Dieser Beitrag wurde zuletzt bearbeitet: 08.03.2023, 00:02 von Rabe.)
Hi,
super, ich habe das nun so eingebunden hinter die Arbeitsmappe:
Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "TOC Gallery" Then
'MsgBox Sh.Name
'Starten der Übersichtserstellung
Call TOC_Gallery
End If
End Sub
Funktioniert gut. Mal sehen, wie weit die CodeName-Zahlen hochgehen.
Danke.
Gruß Ralf
Hi Uwe,
(07.03.2023, 23:40)Kuwer schrieb: ohne Blattlöschung z.B. so:
danke, teste ich auch noch.
Gruß Ralf
Registriert seit: 10.04.2014
Version(en): 2016 + 365
Hi,
so habe ich es nun gelöst:
Code:
'Clearing existing TOC Gallery (von Kuwer)
Application.DisplayAlerts = False
On Error Resume Next
With Worksheets(sTOCNAME)
.DrawingObjects.Delete
.Cells.Delete
End With
Set wsTOC = Worksheets(sTOCNAME)
wsTOC.Name = sTOCNAME
On Error GoTo 0
Application.DisplayAlerts = True
kombiniert mit dem Aufruf durch das Workbook_SheetActivate hinter "DieseArbeitsmappe"
Gruß Ralf