PDA

Vollständige Version anzeigen : Anzahl Tabellenblätter


jobee
28.08.2017, 11:32
Hi,
weiß jemand wie viel Tabellenblätter in einer Exceltabelle möglich sind bzw. eingefügt werden können oder ist dies nicht begrenzt?

RPP63neu
28.08.2017, 11:41
Moin!
Google kaputt? ;)
Wird (nur) durch den Arbeitsspeicher begrenzt.
https://support.office.com/de-de/article/Spezifikationen-und-Beschr%C3%A4nkungen-in-Excel-1672b34d-7043-467e-8e27-269d656771c3

Aber:
Kein ernsthafter Anwender braucht mehr als drei bis vier Blätter.
Was hast Du vor?

Gruß Ralf

jobee
28.08.2017, 13:30
Wollte ein Übersichtsblatt erstellen und die Detaildaten zu einzelnen Punkten in einem separaten Tabellenblatt erfassen/verlinken, damit das Übersichtsblatt nicht zu lang und unübersichtlich wird.
Oder kann man auch den Punkt (Beschreibung) in einer Zeile erfassen und die Detaildaten/Zeilen (Anzahl der Zeilen ist je Punkt unterschiedlich bzw. erweitert sich je nach Bedarf) auf- und zuklappen?

jobee
28.08.2017, 14:01
Wenn ich in einer Zelle einen Hyperlink einfüge welcher auf eine andere Tabelle weist, kann ich per Klick auf den Link die Tabelle öffnen.
Wie kann ich mit so einem Link stattdessen auf ein anderes Tabellenblatt in der bereits geöffneten Tabelle wechseln?

Drogist
28.08.2017, 14:38
Meinst du es so, wie hier beschrieben (http://www.excel-ist-sexy.de/blatt-index-mit-hyperlinks-erstellen/)?

jobee
29.08.2017, 06:41
Wie kann man denn den Code kopieren?

RPP63neu
29.08.2017, 06:53
Moin!
Schaltfläche klicken und Strg+c?
https://i.imgur.com/MJLlayc.png

Gruß Ralf

RPP63neu
29.08.2017, 07:00
Ich habe in meinem Fundus einen alternativen, kürzeren Code.
Auf dem Blatt Übersicht wird die Hyperlink-Liste erstellt.
Auf allen anderen wird ein Rücksprung auf die Übersicht erstellt.
Code der Tabelle Übersicht:

<pre style='border:thin solid #000000; padding:12px 24px; margin-left:12px; color:#000000'><span style='color:#0000EE'>Private</span> <span style='color:#0000EE'>Sub</span> Worksheet_Activate() <span style='color:#0000EE'>Dim</span> wks <span style='color:#0000EE'>As</span> Worksheet Application.ScreenUpdating = <span style='color:#0000EE'>False</span> Me.Columns(<span style='color:#DDAA00'>1</span>).ClearContents Me.Cells(<span style='color:#DDAA00'>1</span>) = <span style='color:#FF0000'>&quot;Tabellenbl&auml;tter&quot;</span> <span style='color:#0000EE'>For</span> <span style='color:#0000EE'>Each</span> wks <span style='color:#0000EE'>In</span> Worksheets <span style='color:#0000EE'>With</span> wks <span style='color:#0000EE'>If</span> .Name &lt;&gt; <span style='color:#FF0000'>&quot;&Uuml;bersicht&quot;</span> <span style='color:#0000EE'>Then</span> wks.Hyperlinks.Add wks.Cells(<span style='color:#DDAA00'>1</span>), <span style='color:#FF0000'>&quot;&quot;</span>, <span style='color:#FF0000'>&quot;&Uuml;bersicht!A1&quot;</span>, <span style='color:#FF0000'>&quot;Inhaltsverzeichnis&quot;</span>, <span style='color:#FF0000'>&quot;&Uuml;bersicht&quot;</span> Me.Hyperlinks.Add Me.Cells(.Index, <span style='color:#DDAA00'>1</span>), <span style='color:#FF0000'>&quot;&quot;</span>, <span style='color:#FF0000'>&quot;'&quot;</span> & .Name & <span style='color:#FF0000'>&quot;'!A1&quot;</span>, <span style='color:#FF0000'>&quot;Gehe zu: &quot;</span> & .Name, .Name <span style='color:#0000EE'>End</span> <span style='color:#0000EE'>If</span> <span style='color:#0000EE'>End</span> <span style='color:#0000EE'>With</span> <span style='color:#0000EE'>Next</span> Me.Columns(<span style='color:#DDAA00'>1</span>).AutoFit <span style='color:#0000EE'>End</span> <span style='color:#0000EE'>Sub</span></pre>

Gruß Ralf