SUMME INDIREKT VERGLEICH nur in Zeile 1 möglich

Hallo!
Zur Erstellung einer Vorlage für Ablaufpläne und der Bildung von Zwischensummen jeder Phase dachte ich an die Verwendung folgende Formel in D1:
=WENN(A1="P";SUMME(INDIREKT("C1:C"&VERGLEICH("M";A2:A5000;0)));"")
(Die Tabelle wird mittels Button - je nach Bedarf - um eine Zeile erweitert. Die Formeln und Formatierungen werden in jeder neuen Zeile des Plans mitkopiert.)
Aufbau einer einfachen Beispieltabelle:
A: Typ (P - Phase; AP - Arbeitspaket; M - Meilenstein)
B: Beschreibung
C: Einzelkosten der AP
D: Zwischensumme je Phase
Jede Phase besitzt 1 bis n AP und endet mit einem M. Nur AP verursachen Kosten.
Nun mein Problem:
Wenn ich die oben beschriebene Formel in der Zeile 1 eintrage, funktioniert diese zwar, doch addiert von C1 bis z. B. C5 (in A6 steht ein M) und nicht von C2 bis C5. Wenn z. B. in der Zeile 7 eine neue Phase beginnt, dann addiert die Formel:
=WENN(A7="P";SUMME(INDIREKT("C1:C"&VERGLEICH("M";A8:A5006;0)));"")
nicht die Werte von C8 bis zum nächsten M (z. B. in A13) sondern von C1 bis C6. Und auch wenn ich in der Zeile 1 als Überschriftszeile (z. B. Typ, Beschreibung, EP und Summe) nutzen möchte, funktioniert die Formel (nun in D2) nicht mehr. Dann addiert die Formel:
=WENN(A2="P";SUMME(INDIREKT("C1:C"&VERGLEICH("M";A3:A5001;0)));"")
noch immer die Werte von C1 bis C5 obwohl das M nun in A7 steht.
Wie muss ich die Formel ändern, damit diese nicht nur in der Zeile 1 funktioniert und warum ist das überhaupt so?
Vielen Dank für eure Hilfe im Voraus.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo AH,
ich hab dir in dein Makro eine Korrektur eingebaut. Das Makro ist aber unabhängig davon, welche Formel Du verwendest, von daher nimm dann die Formel die Werner mit Index baut, die ist besser, das Makro geht dann trotzdem.


Sub Zeile_einfügen_inkl_Format_und_Formeln()
Dim llast As Long
With ActiveSheet
'Blattschutz aufheben
.Unprotect
.Rows(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row).Insert (xlShiftDown)
'kopieren (feste Werte werden auch kopiert)
.Rows(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row - 2).Copy
'Formatierung einfügen
.Rows(.Shapes(Application.Caller).TopLeftCell.Row - 1).PasteSpecial Paste:= _
xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'kopieren (feste Werte werden auch kopiert)
.Rows(.Shapes(Application.Caller).TopLeftCell.Row - 2).Copy
'Formeln einfügen
.Rows(.Shapes(Application.Caller).TopLeftCell.Row - 1).PasteSpecial Paste:= _
xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'feste Werte loeschen
.Rows(.Shapes(Application.Caller).TopLeftCell.Row - 1).SpecialCells(xlCellTypeConstants) _
.ClearContents
Application.CutCopyMode = False
'neue korrektur
llast = .Cells(.Rows.Count, 4).End(xlUp).Row  'letzte Zeile in Spalte D
.Range("D2").AutoFill Destination:=Range("D2:D" & llast), Type:=xlFillDefault
'Blatt schützen
.Protect
End With
End Sub

Was ich gemacht habe ist, dass ich den Formelfehler, der in der letzten Zeile durch das insert enstanden ist mit autofill wieder korrigiert habe. Problem könnte sein, dass wen ndu eine sehr Datei hast, dass es dauern könnte, dan neinfach aus
.Range("D2").AutoFill Destination:=Range("D2:D" & llast), Type:=xlFillDefault
dies machen
.Range("D" & llast - 2).AutoFill Destination:=Range("D" & llast - 2 & ":D" & llast), Type:=xlFillDefault
Gruß
yummi

Beliebteste Forumthreads (12 Monate)

SUMME INDIREKT VERGLEICH nur in Zeile 1 möglich

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread