Summen bilden in einem riesigen Tabellenblatt

[Clownfisch]

Hallo @ all,

zunächst einmal wünsche ich allen einen guten Start in das neue Jahr mit viel Gesundheit, Glück und Erfolg.

Da ist sie nun wieder - die Excel-Neandertalerin, die dringend Eure Hilfe gebrauchen könnte

Es geht um eine riesige Datei. Mein / unser Chef will mal wieder alle Infos auf einem Tabellenblatt sehen. Er hätte jetzt zum Beispiel gerne ganz unten, unter allen Spalten eine Summenbildung aus allen Spalten, die rötlich markiert sind (Spalte H oder G zum Beispiel).

Wäre bis hierher ja noch ganz einfach. Jetzt kommt's: es kommen immer mal wieder Zellen dazu, sprich die Zeilenzahlen verändern sich.

Ich könnte jetzt addieren und jede gewünschte Zelle einzeln anfassen. Geht bedingt ja auch solange das Tabellenblatt keine 10.000 Zeilen hat. Da gibt es doch bestimmt einen Trick, oder?

Hat dazu jemand vielleicht eine Idee?

Ach ja, und wo wir schon mal dabei sind: gibt es eine Möglichkeit (ich bin sicher es gibt sie, nur habe ich sie bisher nicht finden können) das Tabellenblatt so einzurichten dass der Zeilenumbruch für die nächste Seite zum Beispiel immer in Zeile 35 ist?

Die Datei habe ich mal als Anschauungsobjekt angehängt. Natürlich stimmen die Formeln hier jetzt nicht mehr weil das nur ein Auszug ist.

Freue mich wieder von Dir zu hören / lesen.

Grüßle aus Meerbusch
Die Excel-Neandertalerin Clownfisch

[Peter]

Hallo,

wenn ich das richtig verstanden habe, dann müsste die Funktion Teilergebnis() etwas für dich sein.

In G8 könntest du z.B. folgende Formel verwenden:

=TEILERGEBNIS(9;G3:G7)

und in G15:

=TEILERGEBNIS(9;G10:G14)

usw.

Wenn du jetzt die Gesamtsumme willst machst du das wieder über die Funktion Teilergebnis(), z.b. in G339:

=Teilergebnis(9;G3:G338)

Das Setzen des Seitenumbruchs wäre vermutlich am einfachsten mit VBA zu realisieren. Da müsste ich erst schauen ob ich das etwas entsprechendes finde.

[Rabe]

Hi,

Es geht um eine riesige Datei. Mein / unser Chef will mal wieder alle Infos auf einem Tabellenblatt sehen. Er hätte jetzt zum Beispiel gerne ganz unten, unter allen Spalten eine Summenbildung aus allen Spalten, die rötlich markiert sind (Spalte H oder G zum Beispiel).

Wäre bis hierher ja noch ganz einfach. Jetzt kommt's: es kommen immer mal wieder Zellen dazu, sprich die Zeilenzahlen verändern sich.

Ich könnte jetzt addieren und jede gewünschte Zelle einzeln anfassen. Geht bedingt ja auch solange das Tabellenblatt keine 10.000 Zeilen hat. Da gibt es doch bestimmt einen Trick, oder?

für so eine Aufgabe ist es empfehlenswert, die Summe in die ERSTE Zeile zu legen! Dann ist es egal, wieviele Zeilen drunter sind oder noch dazukommen.

[Clownfisch]

Hallo Peter,

vielen lieben Dank für die turboschnelle Antwort. Teilergebnis - noch nie von gehört. Hört sich aber schon mal nicht schlecht an :28:

Mit den Teilergebnissen in G8 und G15 usw. klappt das ja, auch wenn ich da Zeilen hinzufüge.

Nur wie ist das mit dem Gesamtergebnis am Ende der Tabelle, sprich der Summe aus den Zeilen G8 / G15 / G20 / G31 usw. - sprich allen Zeilen, die zart rosa hinterlegt sind?

Addiert der in Deinem Beispiel dann nicht alles doppelt, sprich guckt er dann nicht auch in den Zellen die nicht zart rosa hinterlegt sind?

Und wofür bitte steht die "9" - nur mal rein interessehalber gefragt

[Peter]

Hallo,

Nur wie ist das mit dem Gesamtergebnis am Ende der Tabelle, sprich der Summe aus den Zeilen G8 / G15 / G20 / G31 usw. - sprich allen Zeilen, die zart rosa hinterlegt sind?

das hatte ich doch auch geschrieben:

Wenn du jetzt die Gesamtsumme willst machst du das wieder über die Funktion Teilergebnis(), z.b. in G339:

Ich habe das einfach mal für den Bereich G3 bis G16 dargestellt. Beantwortet das deine Frage?

Arbeitsblatt mit dem Namen 'Tabelle1'
	G
2	Bestell- Stunden
3	21,00
4
5
6
7
8	21,00
9
10	16,00
11
12
13
14
15	16,00
16	37,00

Zelle	Formel
G8	=TEILERGEBNIS(9;G3:G7)
G15	=TEILERGEBNIS(9;G10:G14)
G16	=TEILERGEBNIS(9;G3:G15)

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Und wofür bitte steht die "9"

Für die Summe. Die Funktion Teilergebnis() hat verschiedene Parameter, die auch in der Hilfe (F1!) erläutert sind.

[Max]

Hi Clownfisch,

nur damit man nicht aneinander vorbei redet:32:
Als Ergebnis der Spalte H würde sich 1610,50 ergeben?

Gruß
Max

[Clownfisch]

Hallo Max,

schön wieder von Dir zu lesen
ja, richtig
Ich denke mit der Idee von Peter mit den Teilergebnissen komm' ich zum Ziel, oder?

[Max]

Hi,

ich werde mich hüten etwas anderes zu behaupten.

Alternativ geht es auch mit diesem Makro hier beispielhaft für die Spalte "H".

Code:

Sub FormatierteWerteAddieren()
Dim ZeileMax As Long

With Tabelle1
ZeileMax = .UsedRange.Rows.Count
.Range("H" & ZeileMax + 1) = FormatAddieren(Range("H1:H" & ZeileMax))
End With

End Sub

Function FormatAddieren(Zelle As Range)
    
Application.Volatile

For Each Zelle In Zelle.Cells
    If IsNumeric(Zelle) Then
        If Zelle.Font.Bold = True Then
            FormatAddieren = FormatAddieren + Zelle.Value
        End If
    End If
Next Zelle

End Function

Das Makro (eigentlich ist es die Funktion) macht folgendes:
Es addiert alle Werte einer Spalte (hier "H") die den Schriftschnitt "Fett" haben und schreibt das Ergebnis
in Zelle "H341". Eben an das Ende der Tabelle.
Damit das für alle Spalten funktioniert müsste man den Code noch leicht anpassen.

Gruß
Max

[Clownfisch]

Makro?! Und das MIR als Computer-Neandertaler???? :26:
Das meinst Du nicht im Ernst, oder? :19:

Liest sich aber als wär's ganz einfach. Werde ich mal probieren und berichten

[Max]

Hi,

die "einfachere" Methode ist die von Peter!

Damit man das Makro vervollständigen kann, müsste man natürlich wissen unter welchen Spalten das/ein Ergebnis stehen soll.

Wenn Du es testen willst...

Öffne Deine eingestellte Datei.
Dann drückst Du ALT+F11.
Es öffnet sich der VBA-Editor.
Im Menü wählst Du dann "Einfügen" und dann "Modul".
Dann kopierst Du den Code von oben und fügst ihn in das Modul ein.
Anschließend drückst Du F5 und schaust in Zelle "H341".

Gruß
Max