Supportnet / Forum / Tabellenkalkulation

hi, habe eine tabelle in der jeweils zeilen gibt, in der eine summe gebildet werden soll. z.b. angefangen in D6 die summe von den letzten 3 Zeilen und das bis M6 dann D10 bis M10. usw. in d6 steht die summe von d3:d5. ist das möglich dass man ne schleife baut, so dass immer nach 3 weiteren zeilen eine summe gezogen wird. wäre nett, da es eine datenbank mit 1500 sätzen ist. Danke

Hi,

versuche es mit diesem Code. Dabei werden Summenformeln für die jeweiligen 3 vorhergehenden Zeilen erstellt

Sub summenzellen_einfuegen()
    Dim loZeile As Long
    Dim inZaehler As Integer
    Application.ScreenUpdating = False
    loZeile = 3
    inZaehler = 0
    With Worksheets("Tabelle1")
        Do While IsEmpty(.Cells(loZeile, 4)) = False
            If inZaehler = 3 Then
                .Cells(loZeile, 1).EntireRow.Insert
                .Cells(loZeile, 4).Formula = "=SUM(D" & loZeile - 3 & ":D" & loZeile - 1 & ")"
                .Cells(loZeile, 5).Formula = "=SUM(E" & loZeile - 3 & ":E" & loZeile - 1 & ")"
                .Cells(loZeile, 6).Formula = "=SUM(F" & loZeile - 3 & ":F" & loZeile - 1 & ")"
                .Cells(loZeile, 7).Formula = "=SUM(G" & loZeile - 3 & ":G" & loZeile - 1 & ")"
                .Cells(loZeile, 8).Formula = "=SUM(H" & loZeile - 3 & ":H" & loZeile - 1 & ")"
                .Cells(loZeile, 9).Formula = "=SUM(I" & loZeile - 3 & ":I" & loZeile - 1 & ")"
                .Cells(loZeile, 10).Formula = "=SUM(J" & loZeile - 3 & ":J" & loZeile - 1 & ")"
                .Cells(loZeile, 11).Formula = "=SUM(K" & loZeile - 3 & ":K" & loZeile - 1 & ")"
                .Cells(loZeile, 12).Formula = "=SUM(L" & loZeile - 3 & ":L" & loZeile - 1 & ")"
                .Cells(loZeile, 13).Formula = "=SUM(M" & loZeile - 3 & ":M" & loZeile - 1 & ")"
                inZaehler = -1
            End If
            loZeile = loZeile + 1
            inZaehler = inZaehler + 1
        Loop
        .Cells(loZeile, 4).Formula = "=SUM(D" & loZeile - 3 + inZaehler & ":D" & loZeile - 1 & ")"
        .Cells(loZeile, 5).Formula = "=SUM(E" & loZeile - 3 + inZaehler & ":E" & loZeile - 1 & ")"
        .Cells(loZeile, 6).Formula = "=SUM(F" & loZeile - 3 + inZaehler & ":F" & loZeile - 1 & ")"
        .Cells(loZeile, 7).Formula = "=SUM(G" & loZeile - 3 + inZaehler & ":G" & loZeile - 1 & ")"
        .Cells(loZeile, 8).Formula = "=SUM(H" & loZeile - 3 + inZaehler & ":H" & loZeile - 1 & ")"
        .Cells(loZeile, 9).Formula = "=SUM(I" & loZeile - 3 + inZaehler & ":I" & loZeile - 1 & ")"
        .Cells(loZeile, 10).Formula = "=SUM(J" & loZeile - 3 + inZaehler & ":J" & loZeile - 1 & ")"
        .Cells(loZeile, 11).Formula = "=SUM(K" & loZeile - 3 + inZaehler & ":K" & loZeile - 1 & ")"
        .Cells(loZeile, 12).Formula = "=SUM(L" & loZeile - 3 + inZaehler & ":L" & loZeile - 1 & ")"
        .Cells(loZeile, 13).Formula = "=SUM(M" & loZeile - 3 + inZaehler & ":M" & loZeile - 1 & ")"
    End With
    Application.ScreenUpdating = True
End Sub

Bis später,
Karin