Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
160to164
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
160to164
160to164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Übernahme von Werten aus anderen Tabellenblättern

Übernahme von Werten aus anderen Tabellenblättern
18.09.2002 14:22:52
Hannes
Hallo *,

ich habe ein Problem, bei dem ich wahrscheinlich wieder viel zu kompliziert denke und absolut nicht mehr weiterkomme:

Meine Excel-Datei besteht aus mehreren Tabellen-Blättern, die jeweils gleich aufgebaut sind und nach Kalenderjahren, also ..., 1999, 2000, 2001, 2002 benannt sind. Ich möchte jeweils in der Zelle A1 im Blatt "Jahr" den Wert der Zelle Z1 aus dem Blatt "Jahr - 1" übernehmen.

Prinzipiell geht das über die Formulierung:

='Tabellenblattname'!$Z$1

Um den Tabellenblattnamen für alle Blätter automatisch zu generieren, bräuchte ich eine Funktion, die mir den Namen des aktuellen Blattes ermittelt. Da es keine Standard-Funktion für dieses Problem gibt habe ich mir ein kleines Macro geschrieben:

Function Get_Name_From_Sheet()
Get_Name_From_Sheet = ActiveSheet.Name
End Function

Nach Umwandlung in eine Zahl und Subtraktion von 1 erhalte ich den gesuchten Tabellenblattnamen. Nur leider kann ich dieses Ergebnis nicht in die Formel einsetzen!

='Get_Name_From_Sheet()-1'!$Z$1 geht nicht ! ...

Auch andere Varianten führen nicht zum Ziel! Kann mir jemand helfen?

Gruß Hannes

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Übernahme von Werten aus anderen Tabellenblättern
18.09.2002 14:36:09
JürgenR
Hi Hannes,

versuche es so:

Function blatt()
Dim i As Long
i = Application.Caller.Parent.Index - 1
blatt = Sheets(i).Range("Z1").Value
End Function


Code eingefügt mit Syntaxhighlighter 1.9

Gruß
Jürgen

Re: Übernahme von Werten aus anderen Tabellenblättern
18.09.2002 14:45:05
Andreas S
Hallo,

es geht auch ohen VBA:

füge unter EInfügen|Namen|definieren den Namen "Vorjahr" ein.
Bei "bezieht sich auf:" kopierst du die folgende Formel rein:

=INDIREKT(INDEX(ARBEITSMAPPE.ZUORDNEN(1);
DATEI.ZUORDNEN(87)-1)&"!"&ADRESSE(ZEILE();SPALTE()+25))

in die Zelle A1 schreibst du dann: =Vorjahr

Gruss

Andreas

Anzeige
Re: Übernahme von Werten aus anderen Tabellenblättern
18.09.2002 15:07:02
Hannes
Hallo JürgenR,

über die Nutzung des Index muss ich die Tabellenblätter in der Reihenfolge der Jahre anordnen - was sowieso Sinn macht.

Super, geht! Herzlichen Dank für die Antwort!

Gruß Hannes

Re: Übernahme von Werten aus anderen Tabellenblättern
18.09.2002 15:13:01
Hannes
Genial!

Mein Kompliment und herzlichen Dank!

Gruß Hannes

Re: Übernahme von Werten aus anderen Tabellenblättern
18.09.2002 15:15:20
JürgenR
Hi,

Jau das stimmt, aber das kann man dann nicht per C&P auf ein anderes Blatt bringen. Und wenn man es versucht, kann die Überraschung groß sein :-)

Gruß
Jürgen

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige