Tabellenname in Calc auflisten

[McKale]

Hallo mikele

Ja scheint wohl so zu sein.

Schade das man die oben genannte Formel nicht anpassen kann.

[mikele]

Hallo,
nur mal interessehalber

Excel bietet da eine Möglichkeit

Welche?

Schade das man die oben genannte Formel nicht anpassen kann.

Kann man, die Frage ist nur: Wie heißen deine Tabellen?

[McKale]

Excel bietet da eine Möglichkeit:
http://www.office-loesung.de/ftopic102738_0_0_asc.php

Kann man, die Frage ist nur: Wie heißen deine Tabellen?

Die sind Geräte-Spezifisch.
Sollen deshalb automatisch ausgelesen werden.

Wie gesagt: per Makro geht das.

http://de.openoffice.info/viewtopic.php?t=71079 war dazu bisher die beste Option.

[F3K Total]

Moin,
es geht auch ohne Makro, Beispiel anbei.
Auf jedem Blatt wird der Name des Blattes mit der Funktion

Code: Alles auswählen

=TEIL(ZELLE("FILENAME");FINDEN("#";ZELLE("FILENAME");1)+2;20)

in Zelle A1 geschrieben.
Diese Zellen A1 können alle z.B. auf Tabellenblatt 1 verlinkt werden.
Nach dem Umbenennen eines Tabellenblattes einmal mit STRG+SHIFT+F9 drücken, oder die Datei speichern, schließen und wieder öffnen um die Bezüge zu aktualisieren.
Dann klappt's auch mit dem Dropdown.

Gruß R

[McKale]

Hallo F3K Total,

Interessante Lösung.

Bedeutet aber immer noch zu viel Arbeit.

Bei über 50 Tabellen….


Ich bin erstaunt wie viele Lösungen es von euch gibt.

Nur das Anpassen der eigentlichen Formel zum auslesen der Tabellen scheint echt ein Problem zu sein.
Wie gesagt, es sollen lediglich alle Tabellennamen auf einer Seite aufgelistet werden.
Und der Hyperlinkbefehl ist auch nicht wirklich wichtig.

Hier nochmal die Vorlage die dann auf einer Seite in einer Spalte mehrfach kopiert wird z.B. A1-Axx.

=WENN(ZEILE(A1)>TABELLEN();"";HYPERLINK(WECHSELN(ADRESSE(1;1;4;1;"#Tabelle"&ZEILE(A1));"'";"");"zur "&ZEILE(A1)&".Tabelle"))

Das Dropdown übernimmt ja nur das Ergebnis der Formel, nicht die Formel selbst.


Kriege langsam schon ein schlechtes Gewissen für meine Anfrage

[F3K Total]

Tja,
Du möchtest weder ein Makro, noch ein Lösung ohne Makro, weil sie zuviel Arbeit macht?
Die Zeit, die wir bereits investiert haben war ja umsonst für dich.
Ich habe im Beispiel bereits 10 Tabellen verlinkt, dauerte 2 Minunten, vielleicht nimmst du dir einmalig die 10 Minuten Zeit, bevor du hier noch weiter zig Stunden der freiwilligen Helfer verschwendest.
R

[McKale]

Tja wie heist es so schön:

Wenn dir die Antworten nicht gefallen dann darfst du auch keine Fragen stellen.

Aber mal im ernst.
Ich habe meine Frage doch klar und deutlich formuliert.
Aber wenn es nicht geht dann gehts eben nicht.
Vielleicht bringt LO ja irgendwann eine Hauseigene Lösung.

Bis dahin Helfe ich mir notgedrungen mit der Makro-Lösung.

Makros haben eben nur den Nebenefekt, dass nicht sofort die Funktion ersichtlich ist.
(Es gibt bei uns für jede Einstellung und Formel ein Pflichtenheft mit genauer Funktionangabe)

Als QM-Zerifizierter Betrieb ist man da ziemlich hinterher.
Gerade in so sensiblen Bereichen wie Prüfmittelüberwachung oder Arbeitsicherheit legt man da größten Wert auf Transparenz.
Wir hatten letztens ein Audit von einer anderen Firma, dagegen war der TÜV echt langweilig.

Die wollten sogar Arbeitsplatzgefährdungsbeurteilungen (ich liebe diese Wort ) und Gefahrstoffkataster einsehen.

Und wenn du Mittwoch überlebst ist Donnerstag.


Aber nochmal vielen Dank für eure Hilfe und Anregungen.

[F3K Total]

Bis dahin Helfe ich mir notgedrungen mit der Makro-Lösung.

Aha, geht also doch.
Und wenn du kein Makro zum Betrieb der Datei möchtest, schreibst du kurz ein Makro, was das Einfügen der Formeln nach meiner Lösung einmalig erledigt. Dieses speicherst du nicht im Dokument, sondern unter "Meine Makros".
Dann hast du eine makrofreie Datei.
Die 50 Tabellen dauern einmalig keine Sekunde.

Geht alles.
R

[karolus]

Hallo
Dann schieb ich mal die 7 Zeilen python-code nach zum Erstellen von HYPERLINK-formeln, ab der aktuell selektierten Zelle abwärts:

Code: Alles auswählen

def create_links(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    sel = doc.CurrentSelection
    cursor = sel.Spreadsheet.createCursorByRange(sel)
    sheetnames = doc.Sheets.ElementNames
    hyperlinks = tuple(zip(f"""=HYPERLINK("#{name}")""" for name in sheetnames))
    cursor.collapseToSize(1,len(hyperlinks))
    cursor.setFormulaArray(hyperlinks)
    

ohne HYPERLINK drumrum geht auch:

Code: Alles auswählen

def create_links(*_):
    doc = XSCRIPTCONTEXT.getDocument()
    sel = doc.CurrentSelection
    cursor = sel.Spreadsheet.createCursorByRange(sel)
    sheetnames = tuple(zip(doc.Sheets.ElementNames))
    cursor.collapseToSize(1,len(sheetnames))
    cursor.setFormulaArray(sheetnames)
    

[McKale]

Danke, Danke.