Bericht über mehrere Tabellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christoph,
... anderen Funktionen im Wesentlichen mit zwei Formeln (keine MATRIXformeln aber eben mit Matrixfunktionalität) in einer entsprechenden Tabellenform.
Diese Tabelle hätte dann für jede Klasse die gleiche Struktur und kannst Du somit im Ergebnistabellenblatt leicht (auch mittels relativ einfachen Formeln) zusammenfassen und hast dann dort eine gute Grundlage für eine flexible wie anschauliche PIVOTauswertung.
Zur Veranschaulichung meines Lösungsvorschlages habe ich das Datenbeispiel von Luc übernommen.
Meine Formel AB3 nach unten in AC kopieren und die Formel in AD3 (mit benutzerdefinierten Zahlenformat: "x";;) nach rechst und unten.
8a

Klasse

Fach

Daten

Fach

Name

Vorname

Alpha

Beta

Gamma

Delta

Epsilon

Vau

Klasse

Name

Vorname

Alpha

Beta

Gamma

Delta

Epsilon

Vau

Hinz

Heinz

Hinz

Heinz

Kunz

Kurt

Meier

Marie

Meier

Marie

Müller

Michel

Müller

Michel

Schulze

Sarah

Formeln der Tabelle

Zelle	Formel
B1	=TEIL(ZELLE("Dateiname";$A$1); FINDEN("]";ZELLE("Dateiname";$A$1))+1;31)
AA3	=WENN(AB3="";"";B$1)
AB3	=WENNFEHLER(INDEX(A:A;AGGREGAT(15;6;ZEILE($A$3:$A$39)/(MMULT(($C$3:$H$39=0)*1;ZEILE(A$1:A$6)^0)>0)/($A$3:$A$39>0); ZEILE(A1))); "")
AD3	=($AB3<>"")SUMMENPRODUKT(($A$3:$A$39&$B$3:$B$39=$AB3&$AC3)($C$2:$H$2=AD$2)*($C$3:$H$39=0))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Werner
.. , - ...

…Christoph;
weil du es versäumt hast ein Bsp deiner Datenstruktur hochzuladen, musste ich mir etwas ausdenken. Aber als Xl-Guter wirst du meine Lösung wohl deinen Gegebenheiten anpassen können… ;-]
Bsp einer QuellTabelle:

	A	B	C	D	E	F	G	H
1	Klasse	8a	Fach
2	Name	Vorname	Alpha	Beta	Gamma	Delta	Epsilon	Vau
3	Hinz	Heinz	3	3	5	6		4
4	Kunz	Kurt	2	1	5	1	6	3
5	Meier	Marie	2		3		3	2
6	Müller	Michel	1	4		2	3	5
7	Schulze	Sarah	6	4	1	2	5	1
8	B1:=TEIL(Splint(ZELLE("dateiname");"]";2;2;1);4;3)

Die Fml in B1 ist nicht wesentlich und kann bei Bedarf mit Xl-StandardFktt nachempfunden wdn.
Hierauf baut dann die nachfolgende Lösung auf. Jedes weitere Blatt muss dabei direkt angesprochen wdn, was bei 13 Blättern wohl kein sonderliches Problem sein sollte:

	A	B	C	D	E
1	Klasse	Schüler hat keine Note in		→ alternativ: Schüler-Bemerkung	→ dito, ohne Leerzeilen
2	8a	Heinz Hinz	Epsilon	Heinz Hinz hat keine Note in Epsilon	Heinz Hinz hat keine Note in Epsilon
3	8a	Kurt Kunz			Marie Meier hat keine Note in Beta, Delta
4	8a	Marie Meier	Beta, Delta	Marie Meier hat keine Note in Beta, Delta	Michel Müller hat keine Note in Gamma
5	8a	Michel Müller	Gamma	Michel Müller hat keine Note in Gamma
6	8a	Sarah Schulze			*E2:E6:*
7	A2:A6: {=Tab8a!B1}		B2:B6: {=Tab8a!B3:B7&" "&Tab8a!A3:A7}		{=MTRANS(VSplit(VJoin(D2:D6;"\|";-1);"\|"))}
8	C2:C6: {=VJoin(WENN(ISTLEER(INDEX(Tab8a!C3:C7;ZEILE(1:5)):INDEX(Tab8a!H3:H7;ZEILE(1:5)));Tab8a!C2:H2;"");", ";-1)}
9	D2:D6: {=WENN(VJoin(WENN(ISTLEER(INDEX(Tab8a!C3:C7;ZEILE(1:5)):INDEX(Tab8a!H3:H7;ZEILE(1:5)));Tab8a!C2:H2;"");", ";-1)="";"";Tab8a!B3:B7&" "&
10	Tab8a!A3:A7&" hat keine Note in "&VJoin(WENN(ISTLEER(INDEX(Tab8a!C3:C7;ZEILE(1:5)):INDEX(Tab8a!H3:H7;ZEILE(1:5)));Tab8a!C2:H2;"");", ";-1))}

Die verwendeten UDFs VJoin und VSplit sind im Archiv vorhanden und in bisher letzter Version in dieser Datei zu finden.
Gruß, Luc :-?
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bericht über mehrere Tabellen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread