Vernieuwen nadat in cel waarde komt te staan uit besturingselement

[mstaijen]

Ik heb een sheet waar ik een besturingselement heb met 5 mogelijkheden, na selecteren van de 1e keuze verschijnt er in cel I3 een 1.
Op basis van die waarde heb ik een stukje VBA geschreven die rijen 7 tm 9 verbergt.
ECHTER
Wanneer ik bv de waarde via het besturingselement wijzig naar de 5e keuze en er in I3 een 5 verschijnt gebeurt er niets.
Wanneer ik in I3 handmatig een waarde plaats 1 of 2 tm 5 dan worden de regels 7 tm 9 wel verborgen (1) of zichtbaar (2,3,4,5).
Heb hieronder de kode staan die ik gebruik. Heb ook al
Application.ScreenUpdating = False
Application.ScreenUpdating = True
geprobeerd, maar ook dat lost niets op. De onderstaande kode heb ik in het blad Menu staan.


Wie kan mij helpen, het zal wel iets heel makkelijks zijn, maar ben door mijn ideeen heen.

Groet,
Marcel.


Private Sub Worksheet_Change(ByVal Target As Range)
If Range("i3") = 1 Then
Rows("7:9").EntireRow.Hidden = True

Else
If Range("i3") > 1 Then
Rows("7:9").EntireRow.Hidden = False

End If
End If

End Sub

 

[OctaFish]

Het is gebruikelijk om een voorbeeldbestandje te posten, én je code tussen CODE tags te zetten. Of heb je liever dat we de situatie eerst zelf nabouwen? Gaat wél van jouw tijd af .

 

[mstaijen]

Oke, duidelijk.
Hierbij het testdeel als xlsm.

gr. Marcel.

 

[edmoor]

Het wijzigen van een cel door een besturingselement triggert niet het Worksheet_Change event.
Wat je wilt kan zo:

 

[mstaijen]

Edmoor hartelijk bedankt, voor de snelle reactie en de uitleg het doet precies wat ik wil. Dus het moet in 2 stappen gebeuren. Ga ermee aan het stoeien.

Zijn er nog meer besturingselementen waardoor het Worksheet_Change event niet wordt getriggert?.


Gr,
Marcel

 

[edmoor]

Dat geldt voor alle Worksheet besturingselementen die een cel interactie doen.

 

[mstaijen]

Edmoor,
Je hebt het in de VBA over Vervolgkeuzelijst19_BijWijzigen, neem aan dat je deze informatie krijgt door op Eigenschap te klikken, maar die keuze zie ik niet als ik op de keuzelijst ga staan.
Hoe kan ik dit toch bekijken?

Gr,
Marcel.

 

[edmoor]

Klik er met rechts op en kies dan : Macro toewijzen