Zeile mit Formaten, Formeln und dynamische Summe
igoryg
ich brauche eure Hilfe. Ich habe eine Tabelle, hinter den verschiedenen grauen Zellen sind etliche Formate und Formeln hinterlegt. Die Weißen Felder sind meine Eingabefelder, die teilweise als DropDownBox angelegt sind.
Ich möchte nun ein Makro einfügen, das bei drücken der Schaltfläche eine komplette Zeile nach unten eingeführt wird. Dabei sollten die Formeln und die Formate von der oberen Zeile übernommen werden. Wichtig ist mir dabei viel mehr etwas anderes. Es sollen auch Summen der Spalten gebildet werden. Das heißt, wenn ich eine komplett neue Zeile einfüge, soll die Summe jetzt über 2 Zeilen gebildet werden, wenn also noch dritte Zeile dazu kommt, dann soll die Summe schon über 3 Zeilen gemacht werden. Es soll einfach eine dynamische Summe sein, d.h. je mehr Zeilen ich durch dieses Makro mit Hilfe der Schaltfläche einführe, desto mehr Zeilen in einer Spalte sollen zusammen addiert werden.
https://www.herber.de/bbs/user/70691.doc
Ich habe im Netz recherchiert und dabei diese Formeln gefunden:
Rows("17:17").Select
Selection.Insert Shift:=xlDown
Und
Sub FuegMirEineZeileImGleichenFormatWieDieLetzteAn()
Dim wksA As Worksheet
Dim lngLetzteZeileVorDerNaechstenLeerenZeile As Long
Set wksA = ActiveSheet
lngLetzteZeileVorDerNaechstenLeerenZeile = wksA.Cells(1, 1).End(xlDown).Row
wksA.Rows(lngLetzteZeileVorDerNaechstenLeerenZeile).Copy
Application.CutCopyMode = False
wksA.Rows(lngLetzteZeileVorDerNaechstenLeerenZeile + 1).Insert
End Sub
Frage wie soll ich den Kod verändern, damit komplette Zeile eingefügt wird, die Formate und Formlen aus der oberen Zeile übernimmt und dabei die dynamische Summe gebildet wird und zwar auch in denen Spalten, in denen schon davor Summe gebildet wurde
Anzeige