[excel 2003] Twee drop down lists koppelen

[zimbab]

Ik heb op twee verschillende worksheets een drop down list staan met plaatsnamen er in. Nu wil ik graag dat als ik op sheet 1 een andere naam kies dat deze verandering in sheet 2 automagisch wordt overgenomen. Hoe krijg je dat in hemelsnaam voor elkaar?

Zal vast heel simpel zijn.......

[WillyF]

Onderstaande in Excel 2000 uitgeprobeerd. Ik weet niet of het ook in Excel 2003 werkt, maar je kan het allicht uitproberen.

Aangenomen dat:

• Op Blad1 één keuzelijst staat
• Op Blad2 één keuzelijst staat
• Dat de inhoud van beide keuzelijsten precies gelijk is

Dan kun je het volgende doen:

1. Rechtsklik op de keuzelijst (op blad1)
2. Kies Macro toewijzen ...
3. Kies Nieuw
4. Je komt dan in het VBA scherm terecht, waar je onderstaande code kwijt kunt.

code:

Sub Keuzelijst1_BijWijzigen()
    
    Dim oLijst1 As Object
    Dim oLijst2 As Object
    Dim LijstIndex As Integer

    Set oLijst1 = wsBlad1.Shapes(1).ControlFormat
    Set oLijst2 = wsBlad2.Shapes(1).ControlFormat
    
    LijstIndex = oLijst1.ListIndex
   
    oLijst2.ListIndex = LijstIndex

End Sub

Je keuzelijst kan natuurlijk anders heten.
Het werkte ook bij Vervolgkeuzelijsten.

[zimbab]

Bedankt! Maar helaas is je moeite voor niks geweest.....sorry. In de trein naar huis kwam ik tot de briljante ingeving dat het helemaal niet nodig is om op het tweede blad een keuzelijst te hebben. Als nummer twee immers hetzelfde moet doen als nummer één waarom zou ik dan nog de mogelijkheid moeten hebben om de tweede dmv een keuzelijst te veranderen? Dus maar een gewone koppeling van gemaakt. Ik zat weer eens onnodig moeilijk te denken.....maar ja, na zo'n hele dag studeren krijg je dat wel eens.