Formel in Zelle aktualisieren

Sub test() '--Sinngemäß-- Zeilenb = 3 letztezeile = wks1.Cells(Rows.Count, 1).End(xlUp).Row Set wks = ThisWorkbook.Sheets("Tabelle1") wks.Cells(Zeilenb - 1, 2).Formula = "=sum(b4:b" & Zeilenb - 4 & ")" wks.Rows(i).Cut wks.Rows(letztezeile + 1).Insert shift:=xlDown End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi
dein Makro ist so aber sowieso nicht funktionsfähig, den die Variablen wks1 und i haben keinen Wert.
Auch die Formel kann nicht funktioniern, den Zeilenb ist 3 und Zeilenb-4 wird -1, damit wird die Formel:
"=sum(b4:b" & Zeilenb - 4 & ")" zu "=sum(b4:b-1")" was aber keinen Sinn macht, da es keine negativen Zeilennummern gibt, zumindest nicht in Excel 2002, (wie das in Excel 2007 aussieht, weiß ich nicht.)
was deine Frage angeht, es ist völlig normal und von Excel so gewollt, daß die Formeln angepasst werden, wenn Zeilen ausgeschnitten oder eingefügt werden.
dh wenn du die Formel =Summe(B4:B9) hast und die Zeile 5 ausschneidest, dann wird die Formel automatisch abgeändert auf =Summe(B4:B8).
das ist auch in 99% der Anwendungsfälle das, was der Anwender braucht.
Sollte der Zellbezug hingegen immer fix B4:B9 sein, dann muss man die Formel anders schreiben und den Zellbezug über BEREICH.VERSCHIEBEN oder INDIREKT oder INDEX definieren.
in deinem Fall z.B =Summe(Indirekt("B4:B9"))
im Makro dann so:


....Formula = "=SUM(INDIRECT(""B4:B" & Zeilenb - 4  &"""))

Gruß, Daniel

Excel versucht ja, beim Ausschneiden die Zellbezüge neu zu berechnen und muss erahnen, was der Anwender machen will.
Mit dieser Vermutung kann Excel aber auch daneben liegen.
Wenn du jetzt die Zellen 1-3 ausschneidest, ist eigentlich das naheliegenste, daß sich der Summenbereich verkleinert.
schneidest dagegen die Zeile 4 aus, dann ist das die unterste Zelle im Summenbereich und Excel geht in diesem Fall davon aus, daß der Anwender den Summenbereich nicht verkleinern, sondern verschieben willst und die eingefügte Zelle in Zeile 6 die neue untergrenze der Summe ist. Weil allerdings die Summe in der gleichen Spalte steht, und du die Zeile unter die Summe kopierst, entsteht dann ein Zirkelbezug.
vermeiden kannst du das Problem auf 2 Arten.
1. du arbeitest nicht mit AUSSCHNEIDEN - EINFÜGEN, sondern mit KOPIEREN - EINFÜGEN und LÖSCHEN.
Das funktioniert, weil Excel beim Kopieren nicht davon ausgeht, daß der Summenbereich verschoben werden soll.
2. du vermeidest den Zellbezug auf A4 in der Summenformel und arbeitest mit folgender Formel:
=Summe(B1:Bereich.Verschieben(B5;-1;0))
dann ist die untere Grenze des Summenbereichs immer die Zelle ein über B5, egal was du löschst oder einfügst.
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

341 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel in Zelle aktualisieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

341 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread