Hallo zusammen,

ich habe schon mehrere Foren durchsucht, aber leider noch keine Lösung für eine Makro gefunden.

Folgendes Thema: Bestimmte Zellen aus Tabelle2 in Tabelle1 kopieren

Ich habe in Tabelle2 eine sehr große Liste. Ziel ist es nur die gefüllten Felder zu finden und in Tabelle1 zu kopieren.
In Spalte A und B sind bestimmte Untersuchungspunkte teilweise nummeriert oder nicht nummeriert (z.B. 1.1.1 Vernetzung).
Ab Spalte C (Tabelle2), Zeile 2, stehen Abteilungen. In Zeile 3 darunter die entsprechende Fachgruppe. In den Spalten danach werden Arbeitspunkte aufgeführt.
Ist eine Abteilung für den Punkt 1.1.1 (Spalte A) zuständig, wird eine 1 eingetragen und bei den zu bearbeitenden Arbeitspaketen ebenfalls eine 1. Eine Kommentarspalte gibt es auch.
Mehrere Abteilungen/Fachgruppen können aber auch z.B. den Punkt 1.1.1. aus Spalte A bearbeiten. Die Spalten (Arbeitspakete) nach den Abteilungen sind meist gleich aber können auch mehr oder weniger enthalten.

Ziel soll es sein, nur die Abteilungen/Fachgruppen in Tabelle 1 zu kopieren, die diesen Punkt auch bearbeiten. Kurz gesagt, alle was in der Zeile ausgefüllt ist. Aber pro Abteilung soll nur eine Zeile (aus Platzgründen beim Drucken) in Tabelle1 beschrieben werden. Im Fall mehrerer Fachgruppen soll dann eine neue Zeile in Tabelle1 eingefügt werden. Der Abteilungsname und Fachgruppenname sollen auch in bestimmte Zellen geschrieben werden.

Erwähnen möchte ich noch, dass neue Arbeitspakete hinzukommen könnten oder reduziert werden. Es sollte also Tabelle1 alle in Tabelle2 enthaltenen APs übernehmen. Also variabel agieren.

Meine Idee wäre, "unsichtbar" in Zeile 1 über den Abteilungen ein "x" zu schreiben. Das Makro könnte dann in jeder Zeile nach dem ersten "x" in Zeile 1 suchen und schauen ob in der Schnittzelle (z.B. Punkt 1.1.1. und Spalte 4) eine 1 steht. Wenn ja, kopiere den Wert der folgenden Zellen (Tabelle2) in die Zellen (Tabelle1) wo die Arbeitspaketnamen gleich sind. Mache das solange bis das nächste "x" in Zeile 1 kommt (=neue Abteilung). Findet er beim nächsten "x" in der Schnittzelle den Wert 1, füge eine neue Zeile in Tabelle1 ein und verfahre wie vorher.
Und dieses Vorgehen bis zur letzten Zeile der Tabelle2.

Ich hoffe ich konnte es etwas bildlich darstellen. Kann mir jemand hierbei weiterhelfen. Leider ist Termindruck hinter der Aufgabe.

Vielen Dank vorab! Sven