Summe aus bestimmten Bereich

Hallo liebes Forum,
hier ist wahrscheinlich meine vorletzte Frage zu meinem ersten VBA-Projekt.
Nachdem ich die Vergleichsgeschichte jetzt langsam aber sicher verstanden habe, suche ich nach der Lösung für ein Problem, dass ich nicht beim Namen nennen kann.
Mit hilfe des beigefügten Bildes, versuche ich es zu umschreiben:
Userbild

Jedes Mal, wenn sich in Spalte A die Leitungsnummer ändert, möchte ich in Spalte K (genau da wo jetzt immer die Null steht) die Summe aller Leitungslängen (aus Spalte E) mit der selben Leitungsnummer ausrechnen. Sprich: Alle Längen zwischen den dicken Trennstrichen sollen summiert und jeweils in der letzten Zelle über dem Trennstrich aufgeschrieben werden.
Mein Code (siehe unten) ist soweit,
dass ich erkenne, wann sich die Leitungsnummer ändert
das ich den Platz wählen kann, wo das Ergebnis stehen soll
Was mir fehlt:
das Wissen, wie ich die Formel =summe(E3:E8) so anwenden kann, dass der Bereich der ersten Berechnung automatisch auf die anderen Bereiche, also auf die anderen Leitungsnummern, übernommen wird.
Mein Code sieht so aus:

Sub Leitung_Gesamtlaenge()
' berechnet die Gesamtlänge der Leitung für jede Leitungsnummer
Columns("K:K").Select
Selection.NumberFormat = "#,##0"               ' Formatiert die Zielspalte als Zahl
Dim Zeilen_Zahl As Integer                          ' belegte Zeilen
Dim i As Integer                                    ' Zähler aktuelle Zeile
Dim l As Integer                                    ' Zähler aktuelle Zeile - 1
Dim Wert As Integer                                 ' Wert = Summe aller Leitungslängen  _
einer Leitungsnummer
Sheets("Tabelle1").Activate
Zeilen_Zahl = Cells(Rows.Count, "A").End(xlUp).Row
For i = 4 To Zeilen_Zahl
l = i - 1
If Range("A" & l)  Range("A" & i) Then
Range("K" & l).Select
' ActiveCell.FormulaR1C1 =                    ' 
Ich danke euch vielmals!

Hallo Tim,
möchte mich zwar nicht unbedingt in eine bereits laufende Unterhaltung einmischen, aber ggf. ist Chris nicht mehr online, daher ein Nachtrag von mir:
Du Schreibst: das funktioniert Einwandfrei
Das kann meiner Meinung und Tests nach nicht sein, denn die jeweils letzte Zeile dürfte keine Summe erhalten..
Du müsstest die Schleife wie folgt ändern:
For i = 4 To Zeilen_Zahl
l = i + 1
If Range("A" & l) Range("A" & i) Then
Range("K" & i).Formula = "=SUMIF(A:A,A" & i & ",E:E)"
End If
Next i
Nun noch kurz zur Erklärung des VBA-Eintrages
der erste Teil "=SUMIF(A:A,A" ist der konstante Teil und wie Du schon richtig vermutet hast
=SummeWenn(A:A,A
das dritte A steht für den Buchstaben A der Zelladresse die sich zusammensetzt aus
Spalte A und jetzt folgend dem Inhalt der Variable i (in der neuen Formel). Die Variable wird verknüpft über jeweils ein Leerzeichen, verbunden mit dem &
Der Rest ",E:E)" ist dann wieder der konstante Teil für die Spalte E....
Das bedeutet, wenn i = 4 wäre, lautet die eingetragene Formel =SummeWenn(A:A,A4;E:E)
Ich hoffe, das war halbwegs verständlich ausgedrückt
Gruß Rolf

Forumthread: Summe aus bestimmten Bereich

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial