PDA

Vollständige Version anzeigen : Cmb verknuepfen


Bubaco
05.07.2006, 10:33
hi leutz,

ich will in einer uf aus einer cmb einen wert auswaehlen. dieser wert hat eine bezeichnung. diese will ich dann in einer anderen cmb uebergeben (in der gleichen uf).

also ich will in einer uf einen wert aus einer cmb auswaehlen. dadurch soll dann in einer danebenliegenden cmb die bezeichnung dieses wertes angegeben werden.
dies soll auch anders herum funktionieren. also die bezeichnung auswaehlen und der wert soll dazu angezeigt werden.

ich habe die werte (wert und bezeichnung) in einem sheet eingepflegt (A2:A100; B2:B100).

hab schon vieles probiert, klappt aber alles nicht so wie ich will.

help me

gruss
michael

Hajo_Zi
05.07.2006, 10:41
Hallo Michael,

ich habe Deine Beschreibung 1 zu 1 umgesetzt.

Option Explicit

Private Sub ComboBox2_Change()
ComboBox1.AddItem ComboBox2
End Sub

Private Sub ComboBox1_Change()
ComboBox2.AddItem ComboBox1
End Sub


<img src="http://home.media-n.de/ziplies/images/grusz1.gif" align="middle" height="30" alt="Grußformel"><a href="http://home.media-n.de/ziplies/" target="_blank"><img border="0" src="http://home.media-n.de/ziplies/images/logo_hajo.gif" align="middle" height="30" alt="Homepage"></a>

Bubaco
05.07.2006, 11:52
o.k. meine beschreibung war nicht 1 a ...
den wert den ich aus der cmb1 entnehme der ist in einem sheet in der range(A2:A100). die beschreibung des wertes ist entsprechen in der range(B2:B100)

Bsp. ich waehle in der uf aus der cmb1 den wert 100 aus. der wert ist in dem sheet unter range(a5) wiederzufinden. die beschreibund des werte (100) ist dann entsprechend in der range(b5) enthalten. diese beschreibung sollte dann in der cmb2 angezeigt werden.

anders herum sollte es dann auch funktionieren. also ich waehle cmb2 eine beschreibung ( welche in der range (B5)steht) aus und entsprechend soll dann in der cmb1 der wert dazu stehen ( welche in der range (A5)steht).

gruss
michael

Hajo_Zi
05.07.2006, 11:57
Hallo MIchael,


Option Explicit

Private Sub ComboBox1_Change()
ComboBox2.ListIndex = ComboBox1.ListIndex
End Sub

Private Sub ComboBox2_Change()
ComboBox1.ListIndex = ComboBox2.ListIndex
End Sub

<a href="http://home.media-n.de/ziplies/" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Bubaco
05.07.2006, 12:16
wie immer Hajo "ohne worte"

hammer

danke

gruss
michael