Macro starten met keuzelijst

[kezel]

Ik wil via een vaste keuzelijst een macro starten. Op zich krijg ik dat wel voor elkaar via de volgende code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("B2") = "Keuze 1" Then
Application.Run "Macro1"
End If

If Range("B2") = "Keuze 2" Then
Application.Run "Macro2"
End If

If Range("B2").Value = "Keuze 3" Then
Application.Run "Macro3"
End If

End Sub

Het probleem waar ik tegenaan loop, is dat bij elke verandering op dit werkblad de macro's gestart worden. Ik wil eigenlijk dat alleen een verandering in Cel B2 het starten van een macro veroorzaakt. Wie helpt mij verder?

Kees

 

[Gremail]

Volgens mij kun je Private Sub Worksheet_Change(ByVal Target As Range) gewoon vervangen door
Private Sub ListBox1_Change()

 

[kezel]

Hoi Gerrit,

Bedankt voor je reactie. Heb ik geprobeerd, maar dan werken de macro's niet meer.

Groeten,

Kees

 

[Gremail]

Zet het bestandje er anders even bij, ik heb het nl. getest en werkt prima.

 

[kezel]

Bij deze. Ik werk overigens met Excel 2000, misschien dat dat nog verschil maakt.

 

[Gremail]

Hallo,

ik heb de keuzelijst als besturingselement gepakt. Nu ik het gezien heb is een combobox net zo handig.

hoe je met een keuzelijst doet die je via validatie maakt weet ik niet.
zo werkt tie in ieder geval.

 

[kezel]

Hoi Gerrit,

Bedankt, deze benadering werkt, dus ga ik die gebruiken.

Groeten,

Kees