Excel - wenn ein Bereich von Zellen entspricht einem Wert aus einer Liste Ich möchte den Wert einer anderen Zelle

Question

Ich versuche, eine Formel zu schreiben, die den Wert einer Zelle zurückgibt, wenn ein Bereich von Zellen gleich einem Wert in ist eine Liste.

Zum Beispiel:

A1 = Orange 
    B1:B5 = My Data 
    If B1:B5 = Red, Blue, or Green, display the value from A1 

Vielen Dank für Ihre Hilfe!

Answer 1

Dim a as Range, listValues() as string 'array of string 
Dim str as string, i as integer 


str = "Red;Blue;Green" 
listValues = Split(str,";") 'split str using ";" 
for i= Lbound(listValues) to Ubound(listValues) 'loop thru the array 
    Set a = ActiveSheet.UsedRange.Find(what:=listValues(i), lookat:=xlWhole) 
    if Not a Is Nothing Then 
     'value found 
     a.value = Range("A1").value 
    end if 
next i 

Ich habe @Davesexcel ‚s Auflösung angepasst, überprüfen seine ein: How to avoid using select in VBA for variable cell ranges?

Diese Auflösung von RonDeBruin schön ist auch:

http://www.rondebruin.nl/win/s9/win006.htm

Answer 2

Setzen Sie Ihre Werte einige, wo in eine Spalte:

Dann wird eine einfache Formel in C1:

=IF(ISNUMBER(MATCH(B1,E:E,0)),$A$1,"") 

Wenn eine Übereinstimmung gefunden wird, wird es seine Zeilennummer zurück. Das If testet, ob es sich um eine Nummer oder einen Fehler handelt. Wenn es sich um eine Zahl handelt, wird eine Übereinstimmung gefunden und der Wert in A1 zurückgegeben. Andernfalls wird eine leere Zeichenfolge zurückgegeben.