Automatisch Tabelle erstellen

[duckman15]

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

[schauan]

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.