Supportnet / Forum / Tabellenkalkulation
Zeilen einfügen
Frage
Hallo!
Ich muß in eine vorhandene Excel-Tabelle, in der Beträge aufaddiert werden, ab und zu neue Zeilen einfügen. Die Tabelle besteht im wesentlichen aus einer Spalte, in der die zu addierenden Beträge stehen (also z. B. Spalte A) und einer Spalte B, in der die Summen stehen. Der in der Zelle B5 ausgewiesene Wert wird also beispielsweise durch die Formel =B4+A5 ermittelt. Wenn ich jetzt vor der (alten) Zeile 5 eine neue Zeile einfügen muß, wird die alte Zeile 5 ja zur neuen Zeile 6 und die obige Formel verändert sich zu =C4+B6.
Wie kann ich erreichen, daß in einem solchen Fall die Formel automatisch auf die eigentlich gewünschte Angabe =C5+B6 verändert wird?
Vielen Dank!
Antwort 1 von Saarbauer
Hallo,
man könnte einfach sagen nich die neue Zeile vor zeile 5 einfügen, sondern vor Zeile 4, dann wird es wie gewünscht erledigt.
Ich glaube aber es wäre nur das Problem verschoben, da dann es zwischen Zeile 3 und 4 das gleiche Problem gibt.
Mir ist keine Funktion bekannt womit dieses Problem automatisch zu lösen ist. Bei mehreren Zellen könnte man nur mit "Ersetzten durch ..." arbeiten
Gruß
Helmut
man könnte einfach sagen nich die neue Zeile vor zeile 5 einfügen, sondern vor Zeile 4, dann wird es wie gewünscht erledigt.
Ich glaube aber es wäre nur das Problem verschoben, da dann es zwischen Zeile 3 und 4 das gleiche Problem gibt.
Mir ist keine Funktion bekannt womit dieses Problem automatisch zu lösen ist. Bei mehreren Zellen könnte man nur mit "Ersetzten durch ..." arbeiten
Gruß
Helmut
Antwort 2 von piano
Hallo
Hier ein Makro zum Einfügen wo die Formeln erhalten bleiben:
Es genügt nur eine Zelle der Zeile anzuklicken.
Am besten über eine benutzerdefinierte Symbolleiste aufrufen!
Gruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -
Hier ein Makro zum Einfügen wo die Formeln erhalten bleiben:
Sub EinfügenZeile()
Dim Zelle As Object
Zeile = ActiveCell.Row
Formel1 = Cells(Zeile, 3).Formula
Formel2 = Cells(Zeile + 1, 3).Formula
Selection.EntireRow.Activate
Selection.Insert Shift:=xlDown
Cells(Zeile, 3).Formula = Formel1
Cells(Zeile + 1, 3).Formula = Formel2
End Sub
Es genügt nur eine Zelle der Zeile anzuklicken.
Am besten über eine benutzerdefinierte Symbolleiste aufrufen!
Gruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -

