Clever-Excel-Forum

(15.07.2015, 10:38)BoskoBiati schrieb: [ -> ]Hallo,

das Ganze ließe sich auch mit Formeln bewerkstelligen:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H
1	Firma	Kostenstelle	Jahr		3	4	3	36
2	Fa. A	Kst 1	1995		Fa. A	Kst 1	1995
3	Fa. A	Kst 1	1996		Fa. B	Kst 2	1996
4	Fa. A	Kst 1	1997		Fa. C	Kst 3	1997
5	Fa. A	Kst 2	1995			Kst 4
6	Fa. A	Kst 2	1996
7	Fa. A	Kst 2	1997
8	Fa. A	Kst 3	1995
9	Fa. A	Kst 3	1996
10	Fa. A	Kst 3	1997
11	Fa. A	Kst 4	1995
12	Fa. A	Kst 4	1996
13	Fa. A	Kst 4	1997

Zelle	Formel
E1	=ANZAHL2(E2:E21)
F1	=ANZAHL2(F2:F21)
G1	=ANZAHL2(G2:G21)
H1	=E1*F1*G1
A2	=WENN(ZEILE(A1)>$H$1;"";INDEX(E:E;KÜRZEN((ZEILE(A1)-1)/$F$1/$G$1;)+2))
B2	=WENN(ZEILE(B1)>$H$1;"";INDEX(F:F;REST(KÜRZEN((ZEILE(B1)-1)/$G$1;);$F$1)+2))
C2	=WENN(ZEILE(C1)>$H$1;"";INDEX(G:G;REST(ZEILE(A1)-1;$G$1)+2))

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Ah jetzt versteht ihr was ich meine !!
Super vielen Dank auch an dich ::) ich gucke mal welche Variante besser in mein Workbook passt.

Vielen Dank euch !! Wirklich super

Hallo Ralf,

danke für die Korrektur. Da hatte ich wohl den finalen Stand nicht erwischt Die Eintragungen reichen je 1x
statt z.B.

          Cells(lRow, 4).Value = arrGRA(iCnt4 - 1)
          Cells(lRow, 4).Value = arrGRA(iCnt4 - 1)
          Cells(lRow, 5).Value = arrGRB(iCnt4 - 1)
          Cells(lRow, 5).Value = arrGRB(iCnt4 - 1)

nur
          Cells(lRow, 4).Value = arrGRA(iCnt4 - 1)
          Cells(lRow, 5).Value = arrGRB(iCnt4 - 1)

Die Überschriften waren bereits im Beispiel enthalten, hat daher vermutlich einen Zweck. Vielleicht kommen da später Zusammenfassungen der jeweils untergeordneten Daten hin.