ActiveX aansturing VBA

[lemonstreet25]

Kenners,

In mijn vorige 2 vragen hebben jullie mij verteld hoe ik de input van een ActiveX element middels VBA kan aansturen. Nu lukt het mij niet om het geleerde in de praktijk te brengen; zie bijgaande sheet. Ik doe iets (ongetwijfeld stompzinnigs) fout...maar wat?Bekijk bijlage Beoordelingssheet Algemeen test.xlsm

 

[ExcelAmateur]

Bedoel je het zo?

Je was vergeten om in de eigenschappen de LinkedCell te zetten.

 

[alphamax]

Wat is de praktijk, wat is de oorzaak en wat is het gevolg.
Een bestand zonder uitleg is waardeloos.

 

[lemonstreet25]

ExcelAmateur,

Dat was stompzinnige fout nummer 1. Alphmax wijst mij nu op stompzinnige fout nummer 2:

De bedoeling is dat de ActiveX elementen gebruik maken van de waarden in cellen B19 en C19 voor resp. Min. waarde en Max. waarden (VBA code)

Met excuses voor de omissie

Luc

 

[VenA]

Een wijziging in de uitkomst van een formule roept geen change event aan. Je zal dus de wijzigingen in de broncellen moeten bekijken. Bv zo

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B14:C18")) Is Nothing Then Exit Sub
Select Case Target.Column
    Case 2
      ScrollBar1.Min = [b19]
      ScrollBar2.Min = [b19]
    Case 3
      ScrollBar1.Max = [c19]
      ScrollBar2.Max = [c19]
End Select
End Sub

 

[ExcelAmateur]

Zo beter?

Ik denk dat VenA het juiste heeft.

 

[ExcelAmateur]

Ik heb de code van VenA er even voor je ingezet + 2 Scrolbars.

 

[lemonstreet25]

TOP!! Dank jullie wel.