Dropdownbox auslesen
17.08.2005 13:52:04
Ingo
Sub Dropdown6_BeiÄnderung()
Dim wsSheet As Worksheet
Set wsSheet = ActiveSheet
Sheets("Tabelle1").Cells(1, 1) = wsSheet.Shapes("Dropdown 6").OLEFormat.Object.Value
End Sub
Wenn ich das ganze so mache, bekomme ich nur den Index des DropDowns, also 1,2,3 usw.
Was müsste ich dadran ändert, damit der text zum entsprechenden Index ausgegeben wird?
MfG
Ingo
Anzeige