Marko zum Ausfüllen mit Hilfstabelle
03.10.2021 16:13:41
Maria
ich sitze an meiner Abschlussarbeit, habe leider gar keine VBA-Kenntnisse, aber die leise Hoffnung, dass mir ein Makro viele Stunden mühsame Arbeit erspart. Es wäre total schön, wenn mir jemand helfen könnte. Folgendes Problem:
Ich habe eine Excel-Datei (Datei 1: Versuchsflächendaten.xlsx), in der sind über viele Jahre tausende Daten zu Insekten an 4 verschiedenen Waldstandorten aufgenommen worden, daher 4 Tabellenblätter (Ort1, Ort2, Ort3, Ort4). Jede Zeile ist ein Fall, also ein gefundenes Insekt. Die Tabellen beinhalten einige Angaben/Spalten: wo, wann, welcher Fallentyp, Schutzstatus etc. und je eine Spalte für die genaue Bestimmung des Insekts nach Ordnung, Familie, Gattung und Art.
Für meine Fragestellung, ob sich die Artzusammensetzung im Verlauf der Jahre hin zu wärmeliebenden Arten geändert hat, fehlt mir in Datei 1 bisher die Angabe, ob die einzelnen Arten eher warme/trockene Standorte bevorzugen. Daher habe ich eine Referenztabelle (Datei 2: Oekologie.xlsx) erstellt, in der alle Insekten nach Gattung und Art aufgelistet sind und jede Art eine verbale und nummerische Zuordnung der Wärmevorliebe bekommen hat (soweit ermittelbar). Auszug:
A B C D
Gattung Art Oek_verbal Oek_num
Acupalpus flavicollis hygrophil 1
Acupalpus meridianus mesophil 2
Agonum dolens hygrophil 1
Die Infos Oek_verbal und Oek_num aus der Referenztabelle der Datei 2 sollen nun in alle 4 Tabellenblätter der Datei 1. Dort in Datei 1 gibt es diese beiden Spalten an Stelle P und Q, die natürlich aber noch leer sind. Die Angaben Gattung und Art stehen in der Datei 1 in allen 4 Blättern an Stelle I und J. Ich benötige also eine Makro, dass die Datei 1 (Versuchsflächendaten.xlsx, Ort1, Ort2, Ort3, Ort4) nach der Kombination Gattung und Art durchsucht und die Spalten I und J entsprechend der Datei 2 (Oekologie.xlsx, Tabelle1) Spalte C und D ausfüllt.
Ich hoffe, ich habe mein Anliegen verständlich niedergeschrieben und jemand kann mir so ein Marko basteln oder diesbezüglich Tipps geben. Vielen herzlichen Dank und beste Grüße vom Schreibtisch,
Maria