PDA

Vollständige Version anzeigen : linkedcell + dropdown


andi_bln
30.03.2012, 10:09
Hallo,

habe ein Problenm,
wie unten zu sehen habe ich ein Dropdow und möchte den Wert( Text !!! ) in in den Range Linkedcell habe, dort erscheint aber nur der Listindex + 1
Irgendwas mache ich falsch, weiß jemand was ?


Andreas



Sub test()

Dim olb As DropDown, Rn As Range
On Error Resume Next

For Each olb In ActiveSheet.DropDowns
olb.RemoveAllItems
olb.Delete
Next

Set Rn = Range("A1")

With Rn
Set olb = ActiveSheet.DropDowns.Add(.Left, .Top, .Width, .Height)


End With
With olb


.AddItem "ich bin doof "
.AddItem "bin noch dööfer"
.LinkedCell = Range("A3").AddressLocal(False, False)

End With



End Sub

Beverly
30.03.2012, 11:00
Hi Andy,

wenn du Formular-Kombinationsfelder verwendest, erhältst du in der Zellverknüpfung immer den Listindex. Du kannst höchstens dem Kombinationsfeld ein Makro zuweisen, welches den ausgewählten Wert einträgt:
Sub Eintrag()
Range("A3") = ActiveSheet.Shapes(Application.Caller).ControlFormat.List(ActiveSheet.Shapes(App lication.Caller).ControlFormat.ListIndex)
End Sub
<hr width="20%" align="left"><img src="http://excel-inn.de/images/grusz.gif" height=35" align="left" alt="Grußformel"><a href="http://excel-inn.de/" onclick="window.open(this.href);return false"><img border="0" src="http://excel-inn.de/images/logo1.gif" height=35" align="middle" alt="Beverly's Excel - Inn"></a>