Excel VBA Combo Box Index nicht Wert zurück

Question

Ich habe ein Kombinationsfeld in Excel 2007 eingerichtet, das seine Listenelemente aus einem anderen Blatt sammelt. Wenn ich versuche, über ein Makro auf den Wert des ausgewählten Elements zuzugreifen, wird nur der Indexwert und nicht der tatsächliche Wert zurückgegeben.

DateDropDown = Sheets("Input Form").Shapes("APPDateDropDown").ControlFormat.Value 

Der Wert in dem Kombinationsfeld wird als „Jan-12“ aufgeführt, aber wenn ich den Code oben DateDropDown ausgeführt wird, wie 37 (der Index des Elements) zurückgegeben.

Wie bekomme ich es, um den Wert "Jan-12" zurückzugeben?

Answer 1

With Sheets("Input Form").Shapes("APPDateDropDown") 
    DateDropDown = .ControlFormat.List(.ControlFormat.ListIndex) 
End With