Eine Zelle in allen Tabellblättern auswerten

Hallo zusammen,

ich möchte gerne in einer Arbeitsmappe den Wert aller Tabellenblätter der Zelle „A1“ summieren. Dieser Wert soll dann im ersten Tabellenblatt, Zelle „B1“ stehen.

Die Schwierigkeit: der Name der Tabellenblätter kann sich verändern.

Das Makro müsste also jedes Tabellenblatt durchgehen und jeweils den Wert von Zelle „A1“ mit in die Summe aufnehmen.

Ist so etwas möglich?

Besten Dank schon einmal für eure Hilfe.

Viele Grüße
Christian

Hi Christian,

schau dir mal in der Hilfe „Konsolidieren“ an.

Liebe Grüße

Karin

ich möchte gerne in einer Arbeitsmappe den Wert aller
Tabellenblätter der Zelle „A1“ summieren. Dieser Wert soll
dann im ersten Tabellenblatt, Zelle „B1“ stehen.
Die Schwierigkeit: der Name der Tabellenblätter kann sich
verändern.

Hallo Christian,

=SUMME(Tabelle1:Tabelle3!A1)

die Namen der Blätter zwischen Tabelle1 und Tabelle3 spielen keine Rolle.

Oder so:

=Summe2()

Function Summe2()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
 Summe2 = Summe2 + wks.Range("A1").Value
Next wks
End Function

Gruß
Reinhard

Hallo Reinhard,

funktioniert super mit dem Makro, vielen lieben Dank!

Die Formel ist auch klasse (kannte ich so noch gar nicht), allerdings kann es passieren, das Tabellenblätter neu eingefügt oder verschoben werden und diese so dann nich mehr zur Summe zählen - von daher ist das Makro 100%ig sicher. :smile:

Gruß
Christian

Hi Christian,
wenn du am Anfang und Ende 2 Dummytabellenblätter einführst, kannst du alle anderen dazwischen löschen, einfügen umgruppieren, das ist dann bei der Formel egal
=SUMME(TabelleAnfang:TabelleEnde!A1)

Gruss

M@x