EXCEL IF Bedingung in VBA erstellen

Hallo Zusammen,

Wie kann ich mehrere If Bedingungen in VBA abbilden und diese dann durch einen Button in Excel ausführen?

Ich habe eine IF Bedingungen in Excel erstellt, aber ich verliere die Übersicht, ich würde es gerne in VBA abbilden.

Könnt ihr mir bitte helfen? Das u.a. ist nur ein Beispiel.

=IF(ISNUMBER(FIND("SCBV",EZ2)),"Montag",IF(ISNUMBER(FIND("TRBV",EZ2)),"Dienstag",IF(ISNUMBER(FIND("TWBV",EZ2)),"Mittwoch",IF(ISNUMBER(FIND("TTBV",EZ2)),"Donnerstag",IF(ISNUMBER(FIND("TVBV",EZ2)),"MORGEN",IF(ISNUMBER(FIND("VZBV",EZ2)),"FRÜH",IF(ISNUMBER(FIND("VZBT",EZ2)),"NACHMITTAG",IF(ISNUMBER(FIND("PUBV",EZ2)),"MITTAG",IF(ISNUMBER(FIND("VYBV",EZ2)),"NEU",IF(ISNUMBER(FIND("VZAV",EZ2)),"HAUS",IF(ISNUMBER(FIND("RCBV",EZ2)),"NACHT",IF(ISNUMBER(FIND("RCBW",EZ2)),"NACHTT",IF(ISNUMBER(FIND("QRBV",EZ2)),"MALE",IF(ISNUMBER(FIND("QRBW",EZ2)),"HUBERT",IF(ISNUMBER(FIND("QTBV",EZ2)),"THOMAS",IF(ISNUMBER(FIND("QVBW",EZ2)),"THOMASa",IF(ISNUMBER(FIND("QVBV",EZ2)),"THOMASaa",IF(ISNUMBER(FIND("ZYVJ",EZ2)),"TD4",IF(ISNUMBER(FIND("HQVH",EZ2)),"THOMASb",IF(ISNUMBER(FIND("HQCH",EZ2)),"neuue",IF(ISNUMBER(FIND("ZYTV",EZ2)),"Bernd",IF(ISNUMBER(FIND("ZZTV",EZ2)),"Melanie",IF(ISNUMBER(FIND("IUTV",EZ2)),"Melanie",IF(ISNUMBER(FIND("HSCH",EZ2)),"Gregor",IF(ISNUMBER(FIND("HSVH",EZ2)),"MAX",IF(ISNUMBER(FIND("JCMJ",EZ2)),"Schuster",IF(ISNUMBER(FIND("JCDJ",EZ2)),"Mario",IF(ISNUMBER(FIND("JCCJ",EZ2)),"Nexu",IF(ISNUMBER(FIND("JCZJ",EZ2)),"Conny",IF(ISNUMBER(FIND("JCXJ",EZ2)),"Boris",IF(ISNUMBER(FIND("JCPJ",EZ2)),"Rain",IF(ISNUMBER(FIND("JCHJ",EZ2)),"Meld",IF(ISNUMBER(FIND("JCWJ",EZ2)),"NIX",IF(ISNUMBER(FIND("ZYAJ",EZ2)),"NEUOYY",IF(ISNUMBER(FIND("PUBT",EZ2)),"SIsss4",IF(ISNUMBER(FIND("JCYJ",EZ2)),"MEIEE",IF(ISNUMBER(FIND("VYBT",EZ2)),"SF4",IF(ISNUMBER(FIND("VZAT",EZ2)),"NEUTOO",IF(ISNUMBER(FIND("SQVH",EZ2)),"NEUEEEE",IF(ISNUMBER(FIND("IUVJ",EZ2)),"MONDEE",IF(ISNUMBER(FIND("TSVH",EZ2)),"NISCCH",IF(ISNUMBER(FIND("JCEJ",EZ2)),"NEUEUEEE",IF(ISNUMBER(FIND("JCBJ",EZ2)),"MONSSD",IF(ISNUMBER(FIND("OLVH",EZ2)),"NEBDEE",IF(ISNUMBER(FIND("HSCH",EZ2)),"NEUNDE")))))))))))))))))))))))))))))))))))))))))))))

Vielen Dank!!

Function findValue(rngSearch As Range)
    Dim dic As Object, keys As Variant, f As Range
    Set dic = CreateObject("Scripting.Dictionary")  
    'Werte und deren Entsprechung hinzufügen  
    dic.Add "SCBV", "Montag"  
    dic.Add "TRBV", "Dienstag"  
    'usw. .....  

    keys = dic.keys
    For i = 0 To dic.Count - 1
        'Suche Key in der Suchzelle  
        Set f = rngSearch.Find(keys(i), LookIn:=xlValues, LookAt:=xlPart)
        'Wenn Wert gefunden wurde geben den entsprechenden Wert aus dem Dictionary zurück  
        If Not f Is Nothing Then
            findValue = dic.Item(keys(i))
        End If
    Next
    Set dic = Nothing
End Function

=INDEX(Sheet2!$B$2:$B$66;VERGLEICH(1; --ISTZAHL(FINDEN(Sheet2!$A$2:$A$66;EZ2));0);1)

=INDEX(Sheet2!$B$2:$B$66;MATCH(1; --ISNUMBER(FIND(Sheet2!$A$2:$A$66;EZ2));0);1)

=INDEX(Values;MATCH(1; --ISNUMBER(FIND(Keys;EZ2));0);1)