Summewenns mit Lücken im Kriterienbereich

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Fehlende_Werte_in_Spalte_auffüllen() Dim RR, Z With ActiveSheet RR = .Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes For Each Z In .Range("A1:A" & RR).SpecialCells(xlCellTypeBlanks) If Z.Row > 1 Then Z.Value = Cells(Z.Row - 1, Z.Column) End If Next Z For Each Z In .Range("B1:B" & RR).SpecialCells(xlCellTypeBlanks) If Z.Row > 1 Then Z.Value = Cells(Z.Row - 1, Z.Column) End If Next Z End With End Sub

…solltest, Peter,
wird's ausgesprochen heftig, wenn du VBA in jedweder Form vermeiden wolltest. Eine mögliche Fml, die aber (besonders bzgl Spalte C) nur auf die gezeigte Struktur passt, wäre folgende 1231 Zeichen umfassende singulare (1zellige) MatrixFml:
K6[:K9]: {=SUMME(WENN(J6=RECHTS(INDEX(WAHL(SPALTE(A$1:C$1);WECHSELN(1^ZEILE(B$6:B$18);1;"a");WENN(ZEILE(B$6:B$18)-5<VERGLEICH("b";B$6:B$18;0);"";WECHSELN(1^ZEILE(B$6:B$18);1;"b"));WENN(ZEILE(B$6:B$18)-5<VERGLEICH("c";B$6:B$18;0);"";WECHSELN(1^ZEILE(B$6:B$18);1;"c")));;1)&INDEX(WAHL(SPALTE(A$1:C$1);WECHSELN(1^ZEILE(B$6:B$18);1;"a");WENN(ZEILE(B$6:B$18)-5<VERGLEICH("b";B$6:B$18;0);"";WECHSELN(1^ZEILE(B$6:B$18);1;"b"));WENN(ZEILE(B$6:B$18)-5<VERGLEICH("c";B$6:B$18;0);"";WECHSELN(1^ZEILE(B$6:B$18);1;"c")));;2)&INDEX(WAHL(SPALTE(A$1:C$1);WECHSELN(1^ZEILE(B$6:B$18);1;"a");WENN(ZEILE(B$6:B$18)-5<VERGLEICH("b";B$6:B$18;0);"";WECHSELN(1^ZEILE(B$6:B$18);1;"b"));WENN(ZEILE(B$6:B$18)-5<VERGLEICH("c";B$6:B$18;0);"";WECHSELN(1^ZEILE(B$6:B$18);1;"c")));;3))&RECHTS(INDEX(WAHL(SPALTE(A$1:B$1);WECHSELN(1^ZEILE(C$6:C$18);1;"1");WENN(ZEILE(C$6:C$18)-5<VERGLEICH(2;C$6:C$18;0);"";WENN(ZEILE(B$6:B$18)-5<VERGLEICH("b";B$6:B$18;0);WECHSELN(1^ZEILE(C$6:C$18);1;"2");WECHSELN(1^ZEILE(C$6:C$18);1;"1"))));;1)&INDEX(WAHL(SPALTE(A$1:B$1);WECHSELN(1^ZEILE(C$6:C$18);1;"1");WENN(ZEILE(C$6:C$18)-5<VERGLEICH(2;C$6:C$18;0);"";WENN(ZEILE(B$6:B$18)-5<VERGLEICH("b";B$6:B$18;0);WECHSELN(1^ZEILE(C$6:C$18);1;"2");WECHSELN(1^ZEILE(C$6:C$18);1;"1"))));;2));D$6:D$18))}
Viel Spaß! Morrn, Luc :-?

Hi
mit Originären Exclformlen wird es aufwendig das zu lösen, wenn du die Lückenzellen nicht auffüllen willst.
Das Auffüllen der Lücken geht einfach und hätte viele Vorteile, die Liste wird dadurch:
- sortierbar
- filterbar
- per Formel oder Pivot-Tabelle auswertbar.
Wenn du die Optik erhalten willst, kannst du ja nach dem einfügen der Formel die schriftfarbe der Zellen mit formel gleich der Hintergrundfarbe setzen.
wenn du das partout nicht tun willst, ist die wahrscheinlich einfachste Lösung eine kleine selbstgeschribene Funktion zur Auswertung.
Schau dir mal das Beispiel an. Die Funktion wird parametrisiert wie SummeWenns, dh als erster Parameter die Summenspalte, danach immer Abwechselnd die Bedingungsspalte und die Bedingung.
der Code ist erstmal einfach und kurz gehalten, bspw ist nur der einfache Vergleich mit "=" implementiert.
https://www.herber.de/bbs/user/108207.xlsm
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Summewenns mit Lücken im Kriterienbereich

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Summewenns mit Lücken im Kriterienbereich

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread