Selection change

[stefano]

Beste,

in bijlage een voorbeelbestand.

Wanneer in een keuzelijst met invoervak het antwoord ja geselecteerd wordt dan zou in de tweede keuzelijst het antwoord neen moeten verschijnen. Ik heb dit geprobeerd via onderstaande code.
Het enige wat vervelend is is dat ik eerst ergens willekeurig in het werkblad moet klikken vooraleer het antwoord in de twee de keuzelijst aangepast wordt. Kan ik zoiets 'forceren'?

dank voor jullie respons.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [a1].Value = 1 Then
[b1].Value = 2
End If
If [a1].Value = 2 Then
[b1].Value = 1
End If
End Sub

 

[edmoor]

Een wijziging van een cel door dat object triggert niet het Change event.
Doe het eens zo:
Bekijk bijlage selection change.xlsm

Dat is dit in een Module:

Sub Vervolgkeuzelijst1_BijWijzigen()
    Cells(1, 2) = IIf(Cells(1, 1) = 1, 2, 1)
End Sub

 

[stefano]

Dat is het, dank je wel ED!