Bitte nochmal HILFE bei Tabellen zusammenführen!!

Liebe Excelprofis,
ich habe mit meinem Problem früher schon mal angefragt, aber leider nicht die Lösung bekommen. Wer kann mir helfen?
vielen Dank im vorraus
Brutus
https://www.herber.de/bbs/user/68180.xls
Ich habe 13 Tabellenblätter, jedes Blatt steht für eine Klasse ( K1 bis K13)
In jedem Blatt steht
A1 = Spaltenüberschrift Fach
B1 = Spaltenüberschrift Name
C1 = Spaltenüberschrift Stunden
von A2 bis A64 die Fächer ( Mathe, Englisch u.s.w) Fester Wert
von B2 bis (je nach dem wieviele Fächer(Unterrichte) die jeweilige Klasse hat) der Name
Meier, Müller etc! änderbarer Wert dabei kann es sein das z.B. B24 und andere keinen Namen enthält, weil das Fach Sport in dieser Klasse nicht unterrichtet wird, entsprechend auch keine Stunden( das kann ich dann filtern mit Nicht leere)
von C2 bis entsprechend Spalte Name
- Solange ich nur die Stunden in einer anderen Tabelle summieren will, geht das mit Summe Wenn, das habe ich hingekriegt!
- Wenn ich aber die Fächer und die entsprechende Klasse dazu haben will, gibts das Problem!
Ich möchte gerne in Tabelle ALLES ,
A1 = Spaltenüberschrift Name A2 bis A46 stehen die Namen Meier Müller etc fester Wert
B1 = Spaltenüberschrift Summe wird automatisch berechnet
C1 = Spaltenüberschrift Klasse1- hier soll die Klasse angezeigt werden, in der der Unterricht stattfindet z.B.K1(Tabelle K1) oder eins
D1 = Spaltenüberschrift Fach1 hier soll das Fach stehen, das der Kollege in Klasse eins unterrichtet
E1 = Spaltenüberschrift Stunden1 hier sollen die Stunden stehen, die der Kollege in Klasse eins entsprechend dem Fach gibt.
Wenn jetzt ein Kollege ein oder zwei zusätzliche Fächer in einer Klasse unterrichtet, dann müssten die Werte entsprechend in Spalte F, G, H und so weiter stehen(F1 = Spaltenüberschrift Klasse2 G1 = Spaltenüberschrift Fach2 H2 = Spaltenüberschrift Stunden2 (es kann bis zu 18 dreier Spalten gehen)
Ich versuche mal eine Frage zu formulieren:
Schreibe mir in Tabelle ALLES die Werte, die du in Tabelle K1 bis K13 findest, die mit dem Namen Meier zu tun haben. Und zwar in die Zeile, die in Tabelle ALLES mit Meier (A25)beginnt ( also die Werte, die in Tabelle K1 bis K13 in Spalten stehen, sollen in Tabelle ALLES in Zeilen stehen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Sub GetResult() Dim wks As Worksheet Dim i&, j&, lngL& Dim strN$, strS$ Dim hshRes As Object Dim vntRes, vntKey Set hshRes = CreateObject("Scripting.Dictionary") For Each wks In ThisWorkbook.Worksheets If wks.Name Like "KL*" Then With wks For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row strN = .Cells(i, 2).Value 'Name strS = .Cells(i, 1).Value 'Subject lngL = .Cells(i, 3).Value 'Lessons If Not hshRes.exists(strN) Then hshRes(strN) = strN & ";;" & .Name & ";" & strS & ";" & lngL & ";" Else hshRes(strN) = hshRes(strN) & .Name & ";" & strS & ";" & lngL & ";" End If Next End With End If Next i = 2 With ThisWorkbook.Sheets("Alles") .Rows(2).Resize(.Rows.Count - 1).Clear For Each vntKey In hshRes.Keys vntRes = Split(hshRes(vntKey), ";") .Cells(i, 1).Resize(, UBound(vntRes)).Value = vntRes For j = 4 To UBound(vntRes) - 1 Step 3 .Cells(i, 2) = .Cells(i, 2) + vntRes(j) Next i = i + 1 Next End With End Sub

Hallo Brutus,
wie schon von Rene angemerkt, der Weg, wie du hier die Daten aufbereitest, ist eigentlich nicht so richtig der Weg, den man bei der Datenverarbeitung/Aufbereitung gehen sollte. Du hasst hier die Daten auf viele Tabellen verteilt (hier die Tabellen der Klassen) und jetzt versuchst du mühselig übergeordnete Auswertungen zu machen. Der vernüftige/richtige Ansatz ist. Alle Daten in einen Topf (hier eine Exceltabelle) bzw. besser mehrere Töpfe, die über Schlüsselinformationen mit einander verknüpft sind. Aus diesem Topf werden dann die jeweils relevanten Daten ausgelesen - datenbanktechnisch: abgefragt - und in Berichten ausgegeben.
Das Hauptwerkzeug wäre hier also eine Datenbank-z.B. Access- mit relational organisierten Datentabellen.

Struktur:
Lehrkörper
- Basistabelle mit Stammdaten (Personal-Nr. (Key) Name, etc)
- Untertabelle Ausbildung Weiterbildung mit Personal-Nr. für Relation zu Stammdaten
- Untertabelle Unterrichtsfächer  mit Personal-Nr. für Relation zu Stammdaten
Klassen
- Basistabelle mit Stammdaten (KlasseNr (Key) Bezeichung, Klassenlehrer (PersonalNr für  _
Relation), RaumNr)
- Untertabelle Fächer mit Lehrerzuordnung über Personal-Nr., RaumNr
- UnterUntertabelle Unterrichtszeiten (Wochentage-Tage-Uhrzeiten)
- UnterUntertabelle Klassenarbeiten
- Untertabelle Klassenveranstaltungen
Schulgebäude
- Raumliste mit RaumNr als Key
Schüler
- Basistabelle mit Stammdaten mit KennNr als Key und KlasseNr für relationale Beziehung
- ggf. Untertabelle Klasse-Fächer (z.B. bei reformierter Oberstufe)
- Untertabelle Daten pro Schuljahr
Auswahltabelle Unterrichtsfächer

Aus so einem Datenpool lassen sich dann per Datenabfragen unterschiedlichste Informationen zusammenstellen und in Berichte ausgeben.
Es ist schon ein sehr ungewöhnlicher Weg, die Daten in der Form in Excel aufzubereiten, um sie dann nach Access einzulesen und in einem Report zu drucken.
Die individuelle Zusammenstellung pro Lehrkraft kann man auch in Excel realisieren. Dazu muss dann in einer For-Next-Schleife die im Blatt ALLES zusammengestellte Info für jede Lehrkraft in ein entsprechend eingerichtetes Ausgabe-Tabellenblatt übertragen und gedruckt werden. In der hochgeladenen Datei ist ein Beispiel.
https://www.herber.de/bbs/user/68436.xls
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

Bitte nochmal HILFE bei Tabellen zusammenführen!!

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

91 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bitte nochmal HILFE bei Tabellen zusammenführen!!

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

91 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread