OpenOffice.info

Hey Uwe,

freut mich für Dich das es funktioniert.
Danke für die Rückmeldung.

Jürgen

Hallo Jürgen,
genau die Antwort habe ich gesucht. Super. Danke.


Es gibt nichts Gutes, ausser man tutes



Uwe

Sub TabellenNamenAuslesen
doc=thisComponent
for i = 0 to doc.sheets.count - 1
doc.sheets(0).getcellbyposition(0,i).string=doc.sheets(i).name
next
End Sub

"doc.sheets(0)" in "doc.sheets(79)"

=INDIREKT(VERKETTEN(A1;".A$3"))

Hallo Neuling,


Zuerst brauchst Du ja die Tabellennamen in Spalte A1.
Wenn es keine Namenslogik gibt dann hilft Dir ein kleines Makro,
(Hoffentlich überfordere ich Dich damit nicht) :oops:
denn ich denke Du möchtest die Namen nicht alle händisch eintragen.


[code]Sub TabellenNamenAuslesen
doc=thisComponent
for i = 0 to doc.sheets.count - 1
doc.sheets(0).getcellbyposition(0,i).string=doc.sheets(i).name
next
End Sub
[/code]


Die Tabelle "Übersicht" sollte Dein erstes Tabellenblatt sein.
Wenn es bei 80 Tabellenblättern aber das letzte Blatt ist dann musst Du in dem Makro
[code]"doc.sheets(0)" in "doc.sheets(79)"[/code] ändern!!

Das Makro also installieren und ausführen.
Schwups sind alle Tabellennamen in Spalte "A" schön untereinander aufgelistet.:D
Die Tabelle "Übersicht" wird da natürlich auch angezeigt. Die Zelle kannst Du ja löschen.

In Zelle B1 schreibst Du jetzt folgende Formel:
[code]=INDIREKT(VERKETTEN(A1;".A$3"))[/code]

und ziehst die nach unten so lang wie Deine Liste in Spalte A ist.

Fertig.

Viel Erfolg

Jürgen

Wie heissen denn Deine Tabellenblätter, gibts da eine bestimmte Namenslogik?

Hallo,
ich bin absoluter Neuling. Was ich gerne lösen möchte.
aus über 80 Tabellenblättern möchte ich in die Tabelle "Übersicht" in die Spalte A die Tabellennamen und in Spalte B die jeweils dazugehörigen Inhalte der Zelle A3 so eintragen, dass eine Verknüpfung besteht.
Kann mir einer helfen?