Zelle ausfüllen wenn entsprechender Inhalt in anderer Zelle

[Misa]

Hallo Zusammen,

ich bin schon seit längerem auf der Suche nach einer Lösung für folgendes Problem... Vielleicht hat ja von euch jemand eine Idee?
Eventuell ist es ja auch gar nicht möglich....

Ich habe eine Excel die als Gefahrstoffverzeichnis dient. 
Im Bild hier unten soll Zelle C2 die Celle B2 nach H Sätzen durchsuchen und ein entsprechender Wert in C2 eingesetzt werden.

Steht in B2 etwa H222 oder H332 oder H225 sollte in C2 der Wert S1 eingetragen werden
Steht in B2 etwa H331 oder H370 dann soll in C2 Wert S2 eingetragen werden.
Steht in B2 etwa H456 oder H345 oder H339 soll in C2 der Wert S3 eingetragen werden.

Sind mehrere Bedienungen erfüllt (S1 und S2 und S3) dann soll immer der tiefere Wert (also S1) eingetragen werden.
(Bei dem S-Wert handelt es sich um eine Gefahr - Einstufung....)

Ich hoffe ich konnte mich verständlich ausdrücken.  :19:

[
Bild bitte so als Datei hochladen: Klick mich!
]

[UweD]

Kein Bild sichtbar  (besser ist auch eine Musterdatei)

[schauan]

Hallöchen,

im Prinzip hast Du die Lösung doch schon aufgeschrieben

=WENN(ODER(B2="H222";B2="H332";B2="H225");"S1";WENN(ODER(B2="H331";B2="H370");"S2";WENN(B2="H456";B2="H345";"B2="H339");"S3";"")

Das erweiterst Du dann noch um Deine Zusatzausgabe, also am Anfang WENN(ODER(die 7 B2-Varianten);"S1";...und hier der Rest

[Misa]

Danke schon einmal für die schnellen Antworten!  :19:
Anbei jetzt noch eine Musterdatei...

[UweD]

Hallo

Leg eine 2. Tabelle an


A........B
300......S1
310......S1
330......S1
H301.....S2
H311.....S2
H331.....S2
EUH070...S2
EUH029...S2
...


in ein Modul diese Function

PHP-Code:

Function SSSS(Hsaetze As String, RNG As Range, Sp As Integer) As String
    Dim Arr, KL As String, TMP As String, Z
    Arr = Split(Hsaetze, ";")
    For Each Z In Arr
        On Error Resume Next
        TMP = WorksheetFunction.VLookup(Trim(Z), RNG, Sp, 0)
        If Not TMP = "" Then
            
            If KL = "" Or TMP < KL Then KL = TMP
            
        End If
    Next
    SSSS = KL
End Function 


Aufrufen in der Zelle C2 dann so:

PHP-Code:

C2: =SSSS(B2;Tabelle2!A:B;2) 


LG UweD