Antworten geht wieder nicht...
24.07.2002 01:48:25
Charlie
Hallo, Mäxchen!Es wäre immer gut, wenn Du angibst, welche Lösung (Formel, VBA) Du bevorzugen würdest. Ich habe Dir zur 1. Frage beide Lösungen angeboten. Bei der 2. Frage bin ich dann von VBA ausgegangen.
Ja, es geht auch mit Formeln. Für die Namen musst Du eine 2-spaltige Liste anlegen: 1. Spalte enthält die Werte, 2. Spalte die Namen. Ich habe diese Liste "Namenliste" benannt.
Zelle D4
=WENN(ISTLEER(C4);"";WENN(NICHT(ISTNV(VERGLEICH(C4;$C$16:$C$24;0)));"Wert in Zelle C"&VERGLEICH(C4;$C$16:$C$24;0)+15&" vorhanden!";WENN(NICHT(ISTNV(VERGLEICH(C4;$C$28:$C$36;0)));"Wert in Zelle C"&VERGLEICH(C4;$C$28:$C$36;0)+27&" vorhanden!";SVERWEIS(C4;Namensliste;2))))
und bis zur Zelle D15 runterkopieren.
Zelle D16
=WENN(ISTLEER(C16);"";WENN(NICHT(ISTNV(VERGLEICH(C16;$C$4:$C$15;0)));"Wert in Zelle C"&VERGLEICH(C16;$C$4:$C$15;0)+3&" vorhanden!";WENN(NICHT(ISTNV(VERGLEICH(C16;$C$28:$C$36;0)));"Wert in Zelle C"&VERGLEICH(C16;$C$28:$C$36;0)+27&" vorhanden!";SVERWEIS(C16;Namensliste;2))))
und bis zur Zelle D24 runterkopieren.
Zelle D28
=WENN(ISTLEER(C28);"";WENN(NICHT(ISTNV(VERGLEICH(C28;$C$4:$C$24;0)));"Wert in Zelle C"&VERGLEICH(C28;$C$4:$C$24;0)+3&" vorhanden!";SVERWEIS(C28;Namensliste;2)))
und bis zur Zelle D36 runterkopieren.
Was passiert?
1) Ist die Zelle in C (gleiche Zeile) leer, liefert die Formel ebenfalls "Leer".
2) Ist der eingegebene Wert in einem der beiden Vergleichsbereiche vorhanden, wird ein Hinweis angezeigt, in welcher Zelle er bereits existiert.
3) Gibt es den Wert in keinem der Vergleichsbereiche, wird anhand des Eingabewertes aus der Namensliste der zugeordnete Name angezeigt.
Und bitte meine "Kritik" nicht falsch verstehen, aber wir hätten uns bei Angabe der bevorzugten Lösung viel Zeit ersparen können.
Viel Erfolg,
Charlie