Supportnet / Forum / Tabellenkalkulation

Hallöchen da bin ich nochmal mit einem neuen Problem. Ich habe eine Datei mit derzeit über 200 Tabellenblättern, die in dem Format 1, 2, 3, ....., 10, 11, 12, ...., 100, 101, 102..... usw, durchnummeriert sind. In jedem dieser Blätter bilde ich in der Zeile 40 Teilsummen der darüberliegenden Spalten und in Zelle Q41 die Gesamtsumme der Teilsummen der vorgenannten Spaltensummen. Ich möchte nun in einem extra Blatt in dieser Datei, welches ich z.B. 'Abfrage' nennen würde, sämtliche Summen aus Q41 von allen Blättern erhalten, die ich angebe. Hierzu würde ich in Zelle B1 die erste Seite eingeben und in Zelle B2 die letzte Seite (Format der Seitenbezeichnungen siehe oben). Die Ausgabe könnte dann in B3 erfolgen. Wer kann mir dabei helfen. Geht das auch ohne Makro? Wenn nein, wie muß ich ein Makro überhaupt eingeben und starten. Habe damit null Erfahrung. Ein Dankeschön schon mal in die ganze SN-Runde. helpneeder

hallo helpneeder,
wenn deine adresse richtig ist, hast du post.
für alle anderen interessierten hier das makro:

Sub summen()
    start = Range("start").Value
                'Auslesen des Startwertes
    ende = Range("ende").Value          
                'Auslesen des Endwertes
    For i = start To ende
        tabellenblatt = Str(i)
               'Umwandeln der Zellenblattnummer in Zeichenfolge
        tabellenblatt = Right(tabellenblatt, Len(tabellenblatt) - 1)  
               'führende Null der Zeichenfolge entfernen
        bezug = "'" + tabellenblatt + "'!Q41"
               'zusammenbasteln des Zellbezuges
        summe = summe + Range(bezug).Value
    Next
    Range("summ").Value2 = summe
End Sub

Einbinden: Zeichne ein beliebiges Makro auf und ersetze es duch den obigen Text.
Dann noch eine Schaltfläche (Symbolleiste Formular nutzen) zum Start mit dem Makro verknüpfen. Fertig.

Gruss Flupo

hallo Helpneeder,

das geht auch mit folgender Formel:

=SUMME(Tabelle1:Tabelle200!Q41)

CU
Klaus

Und da mache ich mir soviel Arbeit... ;-)
Danke Klaus. Wieder was gelernt.

Gruss Flupo

hallo Flupo,

was meinst du, was ich immer bei Makros und VBA hier für ne Krise kriege und staune ;-)

Zum Ausgleich versuche ich mein Glück dann eher bei Formeln VBA finde ich auch superschick, aber meine obersten Bosse erlauben vom System her aus Sicherheitsgründen keine Makros. So muss ich mir eben was anderes einfallen lassen, um zum Ziel zu kommen.

Auf die Lösung bin ich übrigens durch probieren gekommen, weil ich irgendwo mal gelesen habe, dass man mehrere Tabellen mit gedrückter Shift oder STRG-Taste über die Karteireiter markieren kann und die Befehle dann für alle tabellen gelten. Damit kann man superienfach z.B. viele Tabellen gleich gestalten, mit Formeln und Werten füllen und "Abfragen machen" ;-)))

Ganz herzliche Grüsse
Klaus

Hallo Klaus,

das ist ja so erschreckend einfach, dass es schon wieder genial ist. Mit dem editieren gleicher Informationen in mehrerer Tabellenblättern gleichzeitig habe ich auch schon gearbeitet. Hätte ich eigentlich auch drauf kommen können. Nur hätte ich wirklich nicht gedacht, dass die Summen-Formel auch tabellenübergreifend so funktioniert, wie innerhalb einer Tabelle.

Vielen Dank nochmal

cu
helpneeder

Hi Flupo,

vielen Dank für das Makro. Ich werde das dann auch mal noch austesten. Ist dahingehend von Vorteil,dass man einfach die gewünschten Tabellenblätter vordefinieren kann.

cu
helpneeder

gern gemacht. ;-)

Gruss Flupo