Office: Gliederungsebenen mit Zwischensummen automatisch

Code:

1.1.1    1
1.1.2    -2
1.1.3    4
1.2    8
1.3.1.1    16
1.3.1.2    32
1.3.2.1    64
1.3.2.2    128
1.3.2.3    -256
1.3.3    512
2.1    -1024
2.2    2048

Obige originäre Daten (A2:B13) sollen mit Zwischensummen pro Ebene versehen werden (D2#:)

Code:

1    507,00
   1.1    3,00 ----
      1.1.1    1,00 ---- ----
      1.1.2    -2,00 ---- ----
      1.1.3    4,00 ---- ----
   1.2    8,00 ----
   1.3    496,00 ----
      1.3.1    48,00 ---- ----
         1.3.1.1    16,00 ---- ---- ----
         1.3.1.2    32,00 ---- ---- ----
      1.3.2    -64,00 ---- ----
         1.3.2.1    64,00 ---- ---- ----
         1.3.2.2    128,00 ---- ---- ----
         1.3.2.3    -256,00 ---- ---- ----
      1.3.3    512,00 ---- ----
2    1.024,00
   2.1    -1.024,00 ----
   2.2    2.048,00 ----

In der anhängenden Datei sind die Einrückungen korrekt (keine Sorge). Die nachfolgende Formel ist dort auch dokumentiert.

D2#: =LET(q;A2:B13;r;SPALTENWAHL(q;1);s;SPALTENWAHL(q;2);
x;SORTIEREN(VSTAPELN(
LET(x;SORTIEREN(EINDEUTIG(LINKS(r;LÄNGE(r)-2)));
HSTAPELN(x;NACHZEILE(ISTZAHL(SUCHEN("_"&x;"_"&MTRANS(r)))*MTRANS(s);LAMBDA(a;SUMME(a)))));q));
a;SPALTENWAHL(x;1);b;SPALTENWAHL(x;2);c;LÄNGE(a)-LÄNGE(WECHSELN(a;".";));
HSTAPELN(WIEDERHOLEN(" ";c)&a;TEXT(b;"#.##0,00"&WIEDERHOLEN(" ----";c))))