Daten aus mehreren Tabellenblättern zusammenführen

Hallo zusammen,
nachdem mein unter https://www.herber.de/forum/messages/1316004.html gestelltes Problem erfolgreich gelöst wurde und ich das Skript vom Beispiel ebenso erfolgreich in meine "große" Tabelle implementiert habe, stehe ich vor dem nächsten Problem:
ich mache die Einsatzplanung für jeden Tag der Woche in einem eigenen Tabellenblatt. Jetzt möchte ich in der Zusammenfassung gerne auch die Arbeitszeiten aus den verschiedenen Wochentagstabellenblättern zusammengeführt haben. Also zuerst der Name des Mitarbeiters, dann Arbeitszeit und Pausen von Montag, in den nächsten Spalten daneben die Zeiten von Dienstag undsoweiter. Naiv wie ich bin, dachte mir, einfach das Ganze ab "With Sheets(...)" für die weiteren Tabellenblättern mit angepassten Ausgangsspalten noch ein paar mal durchlaufen zu lassen. Aber dann kommen die Zeiten für die folgenden Tagen zwar in den richtigen Spalten raus, die Ausgabenzeilen gehen aber da weiter, wo die Ausgabe vom vorherigen Tabellenblatt aufhörte (also ganz unten, nach dem letzten Namen der Liste).
Mein Lösungsansatz war, dass ich die Ausgabenzeilenposition beim zweiten (und weiteren) Durchgang "resetten" muss, habe aber keinen Schimmer, wie ich das hinbekomme.
Ich hatte auch mal versucht, die Zusammenfassung der Wochentage in jeweils ein Sub zu stecken und die dann in einer Sammel-Sub nacheinander aufzurufen, das schien aber auch nicht die Lösung zu sein.
Anbei noch die Mustertabelle, mit dem von Klaus M.vdT. erstellten Skript. Im Tabellenblatt "Zusammenfassung" ist dann auch zu sehen, wo die Daten am Ende raus kommen sollen.
https://www.herber.de/bbs/user/85648.xls

Hi,
alle Wünsche erfüllt hoffe ich :-)
https://www.herber.de/bbs/user/85660.xlsm
Damits nicht einfach die pfannenfertige Lösung ist und der stille Mitleser noch etwas lernt, hier mal in kürze die Änderungen:


Sub AlleTage()
ErsterDurchlauf = True
Call ÜbersichtErstellen("Montag", 2, 3)
Call ÜbersichtErstellen("Dienstag", 4, 5)
Call ÜbersichtErstellen("Mittwoch", 6, 7)
End Sub
Sub ÜbersichtErstellen(EingabeBlatt As String, ColAusgabeArbeit As Long, ColAusgabePause As Long)

Das Sub "AlleTage" ruft das ausführende Sub "Übersicht erstellen" wiederholt auf. Die Definition der Ausgabe-Spalten sowie des Input-Blattes habe ich in das CALL geholt!
Da die Namen nur einmal geschrieben werden müssen, dies aber leider bereits im Sub verankert ist, hätte ich die Namen-schreiben Prozedur komplett herausfiletieren müssen und einmal seperat aufrufen. Dazu war ich aber zu faul :-) Daher gibt es eine globale boolean-Variable, die beim ersten Call TRUE ist:

Public ErsterDurchlauf As Boolean
Sub AlleTage()
ErsterDurchlauf = True
Call ÜbersichtErstellen("Montag", 2, 3)
End Sub
Sub ÜbersichtErstellen(...)
With Sheets(AusgabeBlatt)
'Namen schreiben
If ErsterDurchlauf Then .Cells(RowAusgabeLast, ColAusgabeName).Value = r.Value
End With

nach dem ersten Durchlauf wird die Variable auf FALSE gesetzte (ganz unten im Makro). Dadurch werden ab Dienstag einfach keine Namen mehr in die Zusammenfassung geschrieben.
Das Problem, dass die Zeiten in Blöcken immer weiter runter geschrieben wurden, lag hieran:


With Sheets(AusgabeBlatt)
'letzte Zeile feststellen
RowAusgabeLast = .Cells(.Rows.Count, ColAusgabeNamen).End(xlUp).Row + 1

Es suchte sich immer in der Namens-Spalte die nächste freie Zeile. Kleine Logikänderung:


With Sheets(AusgabeBlatt)
'letzte Zeile feststellen
RowAusgabeLast = .Cells(.Rows.Count, ColAusgabeArbeit).End(xlUp).Row + 1

Und auch das klappt wieder!
Anmerkung:
in "Zusammenfassung" hast du in Zeile 1 verbundene Zellen gehabt. Ich predige immer gerne, dass verbundene Zellen NIE einen Nutzen haben und IMMER Probleme Verursachen *), daher habe ich die herausgeschmissen! Du wirst in der Datei sehen, dass die Wochentage immer noch mittig über ihrem Bereich stehen wie vorher. Zauberei? Nein, rechtsclick-ZellenFormatiern-HorizontalÜberAuswahlZentrieren!
Grüße,
Klaus M.vdT.
*) Disclaimer Verbundzellen: Ausnahme HTML-gerechte Tabellenumwandlung sowie Namensmanager-Matrixformeln der zweiten Matrixebene. Wenn ich das nicht schreibe, schimpft Luc mit mir

Daten aus mehreren Tabellenblättern zusammenführen

Forumthread: Daten aus mehreren Tabellenblättern zusammenführen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial