Office: Dynamische Summenformel

Hallo,

ich möchte ein Makro,das in der Spalte 12 in die Zwischensummezellen(blau) Summenformeln entsprechend der Länge zwischen Bausteinen einfügt.
Sprich das Makro fügt in die Zelle L2 die Formel =SUMME(L3:L4) bzw. in die Zelle L8 die Formel =SUMME(L9:L12) usw.
Um es besser zu verdeutlichen habe ich ein Screenshot angehängt.

Bedanke mich im Voraus.

 

Hallo!

Teste mal sowas:

Code:

Sub test()
Dim Ende&, i&, x&
Ende = Range("L65536").End(xlUp).Row + 1
x = 3
For i = x To Ende
  If Cells(i, 12) = "" Then
    Cells(i, 12) = WorksheetFunction.Sum(Range(Cells(x, 12), Cells(i - 1, 12)))
    x = i + 1
  End If
Next i
End Sub

 

Der Code funktioniert nur ist es nicht die erwünschte Lösung.

Ich habe bereits eine Lösung (allerding ist ein Fehler, der zum Laufzeitfehler führt drin, den ich nicht beheben kann) gehabt, nur diese gibt auch nur das Ergebnis als Wert und nicht die erwünschte Formel in der Summenzelle.Die eigentliche Stückliste hat 7000 Zeilen. Es wäre schön, wenn eine Formel in der Zelle drinnen ist, so dass jede Änderung(preisliche) in der Stückliste auf die Zwischensumme wirkt.

Das hier ist meine Lösung, nur mit dem Problem des Laufzeitfehlers.

Sub Summenzeile()

Dim Startzähler As Integer
Dim Summenzelle As Integer
Dim Summmenzeilen As Integer

With Tabelle1

Startzähler = 8
Summenzelle = 8
Summenzeilen = 9

Do Until .Cells(Startzähler, 2).Value = ""

Startzähler = Startzähler + 1

Do Until .Cells(Startzähler, 2).Value = "Zwischensumme Baustein"


.Cells(Summenzelle, 12).Value = .Cells(Summenzelle, 12).Value + .Cells(Summenzeilen, 12).Value
.Cells(Summenzelle, 19).Value = .Cells(Summenzelle, 19).Value + .Cells(Summenzeilen, 19).Value
.Cells(Summenzelle, 38).Value = .Cells(Summenzelle, 38).Value + .Cells(Summenzeilen, 38).Value
.Cells(Summenzelle, 39).Value = .Cells(Summenzelle, 39).Value + .Cells(Summenzeilen, 39).Value
.Cells(Summenzelle, 40).Value = .Cells(Summenzelle, 40).Value + .Cells(Summenzeilen, 40).Value
.Cells(Summenzelle, 41).Value = .Cells(Summenzelle, 41).Value + .Cells(Summenzeilen, 41).Value
.Cells(Summenzelle, 42).Value = .Cells(Summenzelle, 42).Value + .Cells(Summenzeilen, 42).Value
.Cells(Summenzelle, 43).Value = .Cells(Summenzelle, 43).Value + .Cells(Summenzeilen, 43).Value
.Cells(Summenzelle, 44).Value = .Cells(Summenzelle, 44).Value + .Cells(Summenzeilen, 44).Value
.Cells(Summenzelle, 45).Value = .Cells(Summenzelle, 45).Value + .Cells(Summenzeilen, 45).Value
.Cells(Summenzelle, 46).Value = .Cells(Summenzelle, 46).Value + .Cells(Summenzeilen, 46).Value


Summenzeilen = Summenzeilen + 1
Startzähler = Startzähler + 1

Loop

Summenzelle = Startzähler
Summenzeilen = Summenzeilen + 1
Loop

End With

End Sub

 

Hallo!

Dieser Code schreibt dir die Formeln:

Code:

Sub test()
Dim Ende&, i&, x&
Ende = Range("L65536").End(xlUp).Row + 1
x = 3
For i = x To Ende
  If Cells(i, 12) = "" Then
    Cells(i, 12).Formula = "=Sum(" & Cells(x, 12).Address & ":" & Cells(i - 1, 12).Address & ")"
    x = i + 1
  End If
Next i
End Sub

 

Zunächst bedanke ich mich vielmals für die schnelle Antwort.

Nur eine kleine Erweiterung bräuchte ich noch.
In Zelle L2 sollte die Summe aus Zellen L3 und L4 stehen.In L5 die Summe aus L6 und L7.Es wird also nach unten aufsummiert.

 

Das hatte ich komplett überlesen...

Code:

Sub test()
Dim Ende&, i&, j&
Ende = Range("L65536").End(xlUp).Row
For i = 2 To Ende
  If Cells(i, 12) = "" Then
    For j = i + 1 To Ende
      If Cells(j, 12) = "" Then Exit For
    Next j
    Cells(i, 12).Formula = "=Sum(" & Cells(i + 1, 12).Address & ":" & Cells(j - 1, 12).Address & ")"
  End If
Next i
End Sub