Herbereken bereik wanneer celwaarde veranderd door besturingselement.

[Gijsbert1]

Beste,

Bekijk bijlage dossiers 20160512 test.xlsm

Ik ben op zoek naar een mogelijkheid om een deel van een werkmap, welke op "handmatig doorrekenen" staat toch door te rekenen.
Dit doorrekenen moet enkel gebeuren als cel B1 veranderd na gebruik van de schuifbalk. (bewust geen activeX besturingselement)
Het doorrekenen mag slechts plaatsvinden in de sheet "planning" en dan enkel de kolommen E-BG (zie voorbeeld). Dit ivm de grootte, ruim 20MB, van de originele werkmap waar ik mee werk!

Ik heb geprobeert met deze code in VBA maar het lukt me niet! Het lijkt erop dat VBA dit niet als een wijziging ziet omdat deze wordt gegenereerd door een schuifbalk.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target.Address, Range("B1")) Is Nothing Then
       Columns("E:BG").Calculate
    End If
End Sub

Nu roep ik zelf steeds een los macrootje op de de kolommen E-BG te herberekenen nadat ik de schuifbalk heb gebruikt, maar ik wil dit graag automatiseren!

Wie kan mij uit de brand helpen?

 

[Haije]

Gijsbert,

koppel de macro Doorrekenen eens aan je schuifbalk.

 

[Gijsbert1]

Pffftttt..... En waarom was ik daar zelf niet opgekomen?
hihi...bedankt Haije :thumb:

Toch blijf ik me afvragen waarom mijn (veel te moeilijke) methode niet lukt. Wat deed ik fout?

In ieder geval erg bedankt!