Re: Makro: Werte übertragen und Werte suchen
21.07.2002 21:40:37
Charlie
Hallo, Rolf!Also, das Herumkopieren kannst Du Dir - wenn ich die Angaben richtig verstanden habe - ersparen.
Folgendes Makro (Einfügen in das Klassenmodul der Tabelle1) wird automatisch ausgeführt, wenn in den Spalten D oder E eine Eingabe gemacht wird und überträgt den Wert aus Spalte B der Tabelle2 in die Spalte F (beginnend ab Zelle F2, ohne Beachtung der Eingabezeile). Gibt es den eingegebenen Wert in Tabelle2, Spalte A nicht, wird ein Hinweis angezeigt.
Ohne Makro geht's, wenn der gefundene Wert in der gleichen Zeile in Spalte F angezeigt werden soll, in der er in Spalte D oder E vorkommt:
=WENN(NICHT(ISTNV(INDEX(Tabelle2!A2:B14;VERGLEICH(D2;Tabelle2!A2:A14;0);2)));INDEX(Tabelle2!A2:B14;VERGLEICH(D2;Tabelle2!A2:A14;0);2);WENN(NICHT(ISTNV(INDEX(Tabelle2!A2:B14;VERGLEICH(E2;Tabelle2!A2:A14;0);2)));INDEX(Tabelle2!A2:B14;VERGLEICH(E2;Tabelle2!A2:A14;0);2);"Wert nicht vorhanden!"))
Zuerst wird der Wert aus Spalte D gesucht und wenn gefunden, der dazugehörige Wert aus Tabelle2, Spalte B in Spalte F (gleiche Zeile) übernommen. Gibt es den Wert aus Spalte D nicht, wird der Wert aus Spalte E geprüft. Wenn gefunden, wird der dazugehörende Wert aus Tabelle2, Spalte B in Spalte F (gleiche Zeile) übernommen. Gibt es auch diesen Wert nicht, wird der Hinweistext "Wert nicht gefunden!" angezeigt.
Die Formel einfach in Zelle F2 einfügen, den Bereich Tabelle2!A2:B14 anpassen und runterkopieren.
Ich hoffe, dass ich Dich richtig verstanden habe!
Viel Erfolg,
Charlie