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.
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
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.
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)