Fehler beim Verwenden der statischen Map in Excel VBA

Question

In meinen Fehlerhandler auf der GetCallOrPut = map(legOption) Zeile fallen. Der übergebene Wert ist = "C". Die Karte wird gerade initialisiert, wenn ich hindurchtrete und ich kann nicht herausfinden, was ich vermisse. Ich habe zwei andere Funktionen, die eine ähnliche Karte verwenden und dort keine Probleme haben. Irgendwelche Gedanken?

Public Function GetCallOrPut(ByVal legOption As String) As String 
    'Translates C to Call and P to Put in option Structure 

    Static map As Collection 

    If map Is Nothing Then 
     Set map = New Collection 
     map.Add "C", "Call" 
     map.Add "P", "Put" 
    End If 

    GetCallOrPut = map(legOption) 

End Function 

Answer 1

Der Schlüssel in einer Sammlung ist das zweite Argument.

verwenden auch Dim statt Statisch:

Public Function GetCallOrPut(ByVal legOption As String) As String 
    'Translates C to Call and P to Put in option Structure 

    Static map As Collection 

    If map Is Nothing Then 
     Set map = New Collection 
     map.Add "Call", "C" 
     map.Add "Put", "P" 
    End If 


    GetCallOrPut = map(legOption) 

End Function