Wert nicht übernehmen, wenn...

[silex1]

Hallo,

dann so?
=WENN(WENN(ZÄHLENWENN(A1:$A$20;"Rechnung");1;0)+(A1="Teilwert")+(A2<>"")<3;A1;"")

[miamitony]

Hi silex1,

bisher hat deine Formel ganz gut geklappt. Nun hab ich aber einen Sonderfall:

A1 = Teilwert
A2 = Rechnung
A3 = Teilwert
A4 = Storno
A5 = Teilwert
A6 = Rechnung
A7 = Teilwert
A8 =
A9 =
A10 = Rechnung
A11 = Teilwert
A12 = Teilwert

So sollte es aussehen
A1 =
A2 = Rechnung
A3 =
A4 = Storno
A5 =
A6 = Rechnung
A7 =
A8 =
A9 =
A10 = Rechnung
A11 = Teilwert
A12 = Teilwert


Ich habe in manchen Fällen mehrere Rechnungen mit Teilwerten dazwischen. Bei deiner Formel berücksichtigt der nur die ersten Rechnungen von A1 - A6. Auch leere Zeilen erkennt die Formel leider nicht.
:20:

Gruß miamitony

[silex1]

Hallo,

die Formel ist etwas lang, war wohl noch zu früh für mich... :15:

Die ist kürzer:
=WENN(UND(ZÄHLENWENN(A1:$A$20;"Rechnung");A1="Teilwert");"";A1)

Die Nullwerte per Zellformat ausblenden
Standard;;

[miamitony]

Hi Zusammen,

nachdem die Formel so wunderbar klappt, könnt ihr mir vielleicht auch zeigen wie das als VBA Code aussehen würde?  :49: 
Bin gerade dabei mich etwas in VBA einzuarbeiten.

Danke

[schauan]

Hallöchen,

eine Variante wäre, das Einfügen der Formel mit dem Makrorekorder aufzuzeichnen und das dann mit Application.Evaluate(...formel…) zu verwenden. Geht allerdings nicht mit jeder Formel