Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon eddy_ vom 22.01.2019, 20:44 Options

summenschleife

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

Antwort schreiben

Antwort 1 von Beverly vom 23.01.2019, 10:40 Options

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken