Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 21:22:24
In vorhandener Formel Jahreszahl mit einbeziehen
08.05.2024 21:15:37
Koordinaten im XY-Diagramm per Cursor ändern.
08.05.2024 19:10:09
doppelte Zeile gem. mehrerer Bedingungen löschen?
08.05.2024 17:16:08
Randomize, RND, Timer() , (@Onur, Opawinni)
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
112to116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
112to116
112to116
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bei Zeile einfügen per VBA Summenformel anpassen

bei Zeile einfügen per VBA Summenformel anpassen
12.04.2002 17:43:41
Klaus
wie kann ich erreichen, dass eine Summenformel im Tabellenblatt z.B. Zelle A1: '=Summe(A2:A10)' nach dem einfügen einer Zeile nach der 10ten Zeile sich in '=Summe(A2:A11)' ändert!


Für den Fall, dass die Summe unter der Liste steht hab ich hier im Forum mal eine geniale Lösung gelesen:

=SUMME(A1:BEREICH.VERSCHIEBEN(A12;-1;0))

nur kann ich diese Lösung nicht übertragen. Schade, denn ich muss eine ziemlich umfangreiche, bereits vorhandene Arbeitsmappe erweiterbar gestalten, bei der die Summen über den zu summierenden Listen stehen.

VIELEN DANK schon mal für jede Hilfe!



10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: bei Zeile einfügen per VBA Summenformel anpassen
12.04.2002 17:58:13
Hajo
Hallo Klaus

ich löse solche Sachen immer wie folgt zwischen der Zeile wo die Summe steht z.B. Zeile 30 und den Daten lasse ich immer eine Zeile frei (=Summe(A1:A29) und füge vor der Leerzeile die neue Zeile ein, dann wird die Formel automatisch geändert.

Gruß Hajo

Re: bei Zeile einfügen per VBA Summenformel anpassen
12.04.2002 17:58:14
MRR
Muss die Summe direkt unter der letzten Zeile stehen? Oder wäre es denkbar, dass Du oberhalb der Summenzeile eine - evtl. ganz schmale - Zeile einblendest, oberhalb der neue Zeilen eingefügt werden? Dann könnte die Summe von vornherein =SUMME(A2:A11) lauten. Werde vor Zeile 11 neue Zeilen geschaffen, ist die Formel auf dem aktuellen Stand.
Matthias
Anzeige
Re: bei Zeile einfügen per VBA Summenformel anpassen
12.04.2002 18:00:28
Hajo
Hallo Matthias

das ist schon Extrem die Antwort in so einem kurzen Abstand und dann haben wir beide noch die gleiche Idee.

Gruß Hajo

Re: bei Zeile einfügen per VBA Summenformel anpassen
12.04.2002 18:09:20
MRR
Stimmt - Du bist immer so schnell...
Matthias
Re: bei Zeile einfügen per VBA Summenformel anpassen
12.04.2002 18:10:18
Klaus
Idee funktioniert, wobei ich ungern mit toten Zeilen oder Hilfszellen in denen irgendwelche temporären Werte gepackt sind arbeite!

übrigens:
die Summe muss ÜBER der ersten Zeile stehen, wenn sie direkt unter der Liste stehen würde hätte ich ja die geniale Lösung ohne Leerzeile (hab allerdings wie ich gerade gesehen habe, bei meinem Posting in der Formel A12 statt A11 geschrieben)

Klaus

Anzeige
Re: bei Zeile einfügen per VBA Summenformel anpassen
12.04.2002 18:13:31
Hajo
Hallo Klaus

wenn sie in der ersten Zeile steht und du willst alle Werte der Spalte addieren warum nicht gleich
=Summe(A2:A65536)

Gruß Hajo

Re: bei Zeile einfügen per VBA Summenformel anpassen
12.04.2002 18:19:18
Klaus
dann teste doch mal meine Formel aus dem Forum hier!
In Zelle A11: =SUMME(A1:BEREICH.VERSCHIEBEN(A11;-1;0))
bewirkt eine Aufsummierung von A1:A10 und wenn zwischen A10 und Formel in A11 eine Zeile eingefügt wird, rückt die Formel nach A12 und sieht dann so aus:
=SUMME(A1:BEREICH.VERSCHIEBEN(A12;-1;0))

Das klappt auch ohne Leerzeile, nur in meinem Fall steht sie Summe leider NICHT unter, sondern über der zu summierenden Liste!

Eine Leerzeile belassen und verstecken löst zwar mein Problem, ich finde jedoch die andere Methode eleganter und dachte vielleicht kann mir ja jemand einen Tip geben, wie ich diese anpassen kann!

Trotzdem DANKE!

Anzeige
Re: bei Zeile einfügen per VBA Summenformel anpassen
12.04.2002 18:22:34
Klaus
Servus Hajo,

mit A1:A10 war nur ein Beispiel. In der Spalte sind ca. 100-120 Summen über einzelne Positionen, die erweiterbar sein sollten!

Ansonsten siehe mein Posting unten!

Universallösung:
12.04.2002 18:35:54
Jürgen
Hallo Klaus,

so kannst du die ursprüngliche Summe A2:A10 durch einfügen von Zeilen davor oder danach anpassen lassen!

=SUMME(BEREICH.VERSCHIEBEN(A1;1;0):BEREICH.VERSCHIEBEN(A11;-1;0))

Servus!

DAAAAAAAAAAAAAAAAAANKEEEE !!!
12.04.2002 18:42:06
Klaus
genial, manchmal bin wohl einfach zu dämlich :-)
so ist es die optimale Lösung!

schönes Wochenende!

311 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
Zeile einfügen und dann die Formeln eintragen?
Selma

Hallo Leute,
wie kann ich beim Einfügen einer neue Zeile per VBA die Formel in die Zellen der eingefügte Zeile eintragen?
Sub Insert_Task() Rows(ActiveCell.Row + 1).Insert Shift:=xlUp Rows(ActiveCell.Row + 1).Select End Sub
Beispiel für die Formeln der aktive Zeile 40:
D40 =...
16.09.2008 22:51:11
Thread-ID: 1010207
6 Beiträge
Formel in nächste Zeile ziehen
Michael

Hallo zusammen hab mal wieder ein Problem
Möchte eine Formel in die nächste Zeile ziehen.
C:\----\Spiels\[001.xls]BL-Tabelle'!$B$4;"")
In der nächsten Zeile sollte dann aus 001.xls ein 002.xls erscheinen dies sollte so sein bis Zeile 200
Kann mir hierbei jemand helfen schon jetz...
24.09.2008 11:02:28
Thread-ID: 1011987
4 Beiträge
Anzeige
Schleife nächste Zelle +1
Michael

Hallo!
Wie schaff ich es in die letzte zelle zu gehen und den wert + 1 in die nächste zelle zu schreiben,
Muss ich dann mit offset arbeiten?
Mein Code!
Gruß Michael
Sub zeileLetztePlusEins() Dim zeile As Integer Dim zeileMax As Integer Dim WertZeile As Long With Sheets("...
02.02.2009 09:39:26
Thread-ID: 1046079
7 Beiträge
Objekt in Formel verwenden
Michael

Schönen Sonntagmorgen,
ich möchte mit der Bedingung, dass ein Objekt angezeigt wird oder eben nicht (innerhalb eines If-Tests) eine Berechnung durchführen.
Weiß jemand, wie ich das in die If-Formel einbaue? Die "Shapes"-Eigenschaft wie im VBA ist es offensichtlich nicht...
Wäre supe...
15.02.2009 10:45:00
Thread-ID: 1050847
5 Beiträge
AutoFill zieht Formel auch in ausgeblendete Zeilen
Andreas

Hallo Herber Fans,
hat jemand folgendes Phänomen vielleicht selbst schon einmal erfahren.
1. Manuell: Ich habe eine Formel, die nicht auf alle Zeilen ausgeweitet werden soll. Setzte also einen Filter und ziehe die Formel herunter. Nur die sichtbaren Zellen bekommen die Formel, die die v...
16.03.2009 19:33:58
Thread-ID: 1060902
2 Beiträge
Aktuelles Datum in Formel (mit Inputbox)
StefanS

Hallo zusammen,
habe folgendes Problem:
Mittels der Formel =ZÄHLENWENN(Daten!E:E;" Meine nächste Idee wäre, das Datum mittels Inpubox abzufragen (Eingabe erfolgt durch User).
Sub Auswertung() Dim datum As String datum = InputBox("Datum") Range("B7").Select ActiveCell.FormulaR1C1 =...
21.04.2009 12:49:15
Thread-ID: 1070034
4 Beiträge
OHNE VBA Wert aus Zelle +71
Tom

Hallo zusammen,
kann mir jemand sagen ob es die Möglichkeit gibt über eine Formel beim runter ziehen eines Zellbezugs den Wert des Bezugs um 71 Spaltenb zu verschieben?
Beispiel:
Tabelle1 hat in der A1 Zelle einen Wert, in der A72 Zelle wieder einen und nach weiteren 71 Zeilen wiede...
17.06.2009 00:09:09
Thread-ID: 1082093
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
5
3
2
6
4
1
3
4
3
6
3
6
12
2
11
2
4
3
3
2
5
7
1