Seite 1 von 1

gleiche Zellen aus Tabellenblättern auslesen

Verfasst: Fr, 02.03.2007 20:00
von neuling
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?

Verfasst: Sa, 03.03.2007 10:33
von Eia
Wie heissen denn Deine Tabellenblätter, gibts da eine bestimmte Namenslogik?

Verfasst: Sa, 03.03.2007 12:17
von turtle47
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: Alles auswählen

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

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: Alles auswählen

"doc.sheets(0)" in "doc.sheets(79)"
ä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: Alles auswählen

=INDIREKT(VERKETTEN(A1;".A$3"))
und ziehst die nach unten so lang wie Deine Liste in Spalte A ist.

Fertig.

Viel Erfolg

Jürgen

Verfasst: So, 04.03.2007 13:58
von neuling
Hallo Jürgen,
genau die Antwort habe ich gesucht. Super. Danke.


Es gibt nichts Gutes, ausser man tutes



Uwe

Verfasst: So, 04.03.2007 16:06
von turtle47
Hey Uwe,

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

Jürgen