Office: (Office 2016) Zellen in abhänigkeit von anderen Zellen kopieren

Hallo,
ich Suche nach einer einfachen Möglichkeit ein Output von einem Modell zu vereinfachen/ mir die gewünschte Information herauszukopieren. Hierbei wir Unmengen an Information produziert die leider nicht als brauchbare Tabelle ausgegeben wird.
Ich suche nach einer Möglichkeit bestimmte Zellen aus dieser Tabelle zu kopieren sobald bestimmte Inhalte gefunden werden.
Alles steht in einer Spalte und lässt sich nicht auf mehre Spalten übertragen, macht auch nichts da man den Text später via Suchen&Ersetzen entfernen kann.
Was ich versuche zu kopieren, in der Reihenfolge wie es in der Datei steht:
Die Zelle mit <CAS Num: Zahl> (im Beispiel File A2, A166, A 339 usw.) in Spalte F kopieren
Und wenn die Zelle mit Text <Level III Fugacity Model (MCI Method)> gefunden wird (im Beispiel A 128, A 296, A 469, usw.) soll die Zelle unterhalb mit Text <Air Zahl Zahl Zahl> (im Beispiel A131, A 304, A 472) in Spalte F kopieren (für eine andere Datei sollte ich die Zeilen mit Text <Air Zahl Zahl Zahl> und <Water Zahl Zahl Zahl> und <Soil Zahl Zahl Zahl> kopieren).

In Spalte F sollte das dann so aussehen:
CAS Num: 000107-21-1
Air 1.19 16.4 1000
CAS Num: 000112-80-1
Air 0.133 1.3 1000
CAS Num: 000141-32-2
Air 5.57 12.7 1000
usw.
Falls ein Wert nicht gefunden wird sollte die Zelle leer bleiben oder ein 0 geht auch.

Leider hat jeder Stoff (CAS NUM) verschiedene Eigenschaften und die Zellen die ich kopieren will stehen nicht in regelmäßigen Abständen zueinander (manchmal fehlt die zu kopierende Information auch oder es steht noch zusätzliche Information unter dem Such begriff (vgl. Beispiel A296), komme daher zu keiner Formel die mir das kopieren kann.
Kann mir jemand bei dem Problem helfen? Ich sollte das nämlich für > 400 CAS NUM anwenden

Gruß Stella

 

Hallo Stella,

ich habe dir in der beiliegenden Excel-Datei in einem allgem. Codemodul das VBA-Makro "SpalteF_Erstellen" eingefügt.
Es wirkt sich immer auf die Spalte A des aktiven Arbeitsblattes aus und erstellt dort in Spalte F die von dir gewünschten Informationen.

Durch Drücken der Tastenkombination Alt-F8 kann es nach Klick auf den "Ausführen"-Button gestartet werden.

 

Hallo Anton Exl,
vielen herzlichen Dank, du hast mir gerade einen Berg an Arbeit abgenommen. Und auch vielen Dank für die eingefügten Erklärungen, so kann ich das Makro auf andere Suchbegriffe umschreiben, falls nötig.

Grüsse,
Stella