Addition jeder n-ten Zeile in variablen Bereich
03.09.2018 15:51:44
Jessi
Ich habe ein kleines Problem.. und zwar möchte ich jede 5. Zeile in einer Spalte addieren. Ich habe eine Gruppe, die aus mehreren Elementen mit den Untergruppen a,b,c,d,e bestehen. Wichtig ist hier eigentlich nur, die Spalte C. Sie hat prinzipiell immer den gleichen Aufbau:
Bezeichnung
a
b
c
d
e
summe a
summe b
summe c
summe d
summe e
Fortschritt
Das Problem ist, dass die Anzahl der Elemente a,b,c,d,e variabel ist.
Das bedeutet, dass nur einmal die Zeilen a,b,c,d,e vorkommen können, aber auch x-mal.
z.B.
Gruppe 123 (Spalte A) hat 7 Elemente (Spalte B), die jeweils a,b,c,d,e (Spalte C)enthalten
Gruppe 789 hat nur 4 Elemente, die jeweils a,b,c,d,e enthalten. Es soll bei Summe a jedoch nur die Summe der jeweiligen Gruppe berechnet werden (also von "Bezeichnung" bis "Fortschritt") mit egal wievielen Elementen.
Deshalb habe ich bereits folgenden Code geschrieben, der einen Bereich zwischen "Bezeichnung" _ und "Fortschritt" eingrenzt:
With Workbooks("Zieltabelle.xlsm").Worksheets("Tabelle1")
LZZiel = .Cells(Rows.Count, 3).End(xlUp).Row
For I = 1 To LZZiel
If .Cells(I, 3).Value = "Bezeichnung" Then
Startzeile = I
For J = I To LZZiel
If .Cells(J, 3).Value = "Fortschritt" Then
Endzeile = J
For Startzeile = Startzeile + 1 To Endzeile Step 5 '+1 damit in Zeile "a"
Summe = Summe + Cells(Startzeile, 4)
Next
.Cells(Endzeile - 5, 4) = Summe '-5 damit in Zeile "Summe a"
Exit For
End If
Next J
Exit For
End If
Next I
End With
Nun werden jedoch immer alle Gruppen durchlaufen und miteinander verrechnet. Die Summe jeder 5.Zeile soll aber immer gruppenweise berechnet werden. Leider komme ich nicht auf meinen Fehler. Ich hoffe, ihr könnt mir helfen & Danke im Voraus !
Viele Grüße
Christina
Anzeige