Office: Summe in fixer Spalte aber variabler Zeile

Sandra_H · 6. November 2013

Hallo,
ich habe ein Problem und konnte die Lösung leider auch noch nicht im Forum finden. Daher mal meine Frage:

Ich habe eine Tabelle, die unterschiedlich lang sein kann.
Ich bräuchte eine Summe unter der Spalte H, also in dem ersten freien Feld in Spalte H.
Es ist sichergestellt, dass die Spalte H überall Einträge hat, sprich es gibt keine leeren Zwischen-Felder in H.

Verständlich, was ich meine?

Kann mir jemand helfen?

(Ach so, kann sein, dass ich übers WoE nicht hier rein schaue, brauche es für die Arbeit und weiß noch nicht, ob ich mich am WoE mit Arbeit beschäftigen will ;-))) )

:)

Hajo_Zi · 8. November 2013

schreibe die Summe doch oben hin =Summe(H1:H1048576)

Sandra_H · 8. November 2013

Ha, ha...
Wenn das so einfach wäre...
Das hätt ich auch noch gekonnt...

Leider gibt es hier ein vorgeschriebenes Format und dabei muss die Summe unten drunter stehen...

Hasso · 8. November 2013

Hallo Sandra,

das geht so: Code:

Option Explicit

Sub test()

Dim lngLetzteZeile As Long

With Worksheets("Tabelle1")
'letzte Zeile mit Daten in Spalte H ermitteln:
lngLetzteZeile = .Cells(Rows.Count, 8).End(xlUp).Row
'eine Zeile darunter die Summe eintragen:
.Cells(lngLetzteZeile + 1, 8) = Application.WorksheetFunction.Sum(.Range("H1:H" & lngLetzteZeile))
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

GMG-CC · 9. November 2013

Moin,

ich liebe Makros, aber für eine einzige Tabelle wäre das vielleicht etwas "overdressed" *mrcool

Deiner Beschreibung nach würde ich so vorgehen:

Gehe nach H1

Strg+PfeiNachUnten

Klick auf das Summen-Symbol

Aber vielleicht hättest du ja auch das gewusst ...

Hasso · 9. November 2013

Hallo Günther,

das sehe ich ähnlich wie du. Aber da der Titel des Beitrags lautete "VBA - Summe in fixer Spalte aber variabler Zeile" dachte ich mein Scherflein dazu beizuztragen.

Luschi · 9. November 2013

Hallo Hajo,

ich würde Dir dringend raten, Deine Vorschläge wirklich zu testen.
Da kommt ein wunderschöner 'Zirkelbezug'; bloß was der Fragesteller damit anfangen!

Gruß von Luschi
aus klein-Paris

Sandra_H · 10. November 2013

Moin,
und erstmal danke für die Antworten, werde es gleich mal testen...

Und nein, ich bin nicht so dusselig, dass ich mir ein Makro für _eine_ Tabelle bastel... Die wird ca. 1.000 mal erzeugt werden, nur halt immer in einer vorgeschriebenen Form...

Sandra_H · 10. November 2013

So, dann jetzt auch mal die Zeit zum Testen gefunden.
Im Prinzip was ich suchte...
Jetzt wird aber die Summe einmal errechnet, ich bräuchte aber ein Feld, dass die Summenformel enthält, also, wenn sich in der Tabelle darüber was ändert, dann soll er weiterhin rechnen...
Kann mir da noch jemand helfen?

GMG-CC · 12. Januar 2021

von Sandra_H

Und nein, ich bin nicht so dusselig, dass ich mir ein Makro für _eine_ Tabelle bastel...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

"… aber ich kann nicht erkennen, dass mit dem Makro eine Formel/Funktion bereits eingetragen wird." könnte die Fortsetzung sein.

Und ich (Günther) liebe alte Sprichworte wie: "Der Ton macht die Musik."

Hasso · 11. November 2013

Hallo Sandra, Code:

Option Explicit

Sub test()

Dim lngLetzteZeile As Long

With Worksheets("Tabelle1")
'letzte Zeile mit Daten in Spalte H ermitteln:
lngLetzteZeile = .Cells(Rows.Count, 8).End(xlUp).Row
'eine Zeile darunter die Summe eintragen:
.Cells(lngLetzteZeile + 1, 8).Formula = "=Sum(H1:H" & lngLetzteZeile & ")"
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sandra_H · 12. Januar 2021

von GMG-CC

" aber ich kann nicht erkennen, dass mit dem Makro eine Formel/Funktion bereits eingetragen wird." könnte die Fortsetzung sein.

Und ich (Günther) liebe alte Sprichworte wie: "Der Ton macht die Musik."
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und Du fandst meine Ton jetzt wenig musikalisch?
Das tut mir leid, wenn Du das irgendwie so empfunden haben solltest, war nicht meine Intention.
Ich fühle keinen Unterschied zwischen Deiner und meiner Formulierung...

Sandra_H · 12. Januar 2021

von Hasso

Hallo Sandra, Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Option Explicit

Sub test()

Dim lngLetzteZeile As Long

With Worksheets("Tabelle1")
'letzte Zeile mit Daten in Spalte H ermitteln:
lngLetzteZeile = .Cells(Rows.Count, 8).End(xlUp).Row
'eine Zeile darunter die Summe eintragen:
.Cells(lngLetzteZeile + 1, 8).Formula = "=Sum(H1:H" & lngLetzteZeile & ")"
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke! Werde es gleich Montag auf der Arbeit mal testen :-)

Office: Summe in fixer Spalte aber variabler Zeile

Summe in fixer Spalte aber variabler Zeile

Summe in fixer Spalte aber variabler Zeile

Summe in fixer Spalte aber variabler Zeile

Summe in fixer Spalte aber variabler Zeile

Summe in fixer Spalte aber variabler Zeile

Summe in fixer Spalte aber variabler Zeile - Similar Threads - Summe fixer Spalte

Summe addieren in anderem Format

Formel wenn Summe kleiner als null, dann null

Zellenformatierung und =Summe() funktionieren nicht

Kaffeekasse

Summe von Zeilen mittels PowerQuery

Summe aus Zellen, wenn Bedingungen in 2 Spalten stimmen

Summe negativer Werte mit INDEX und VERGLEICH