Hallo,
Ik heb een Excel-file met veel formules, werkbladen en macro's. Op één van die tabbladen heb ik een cel G9 waarin een analysenummer staat. Op cel F23 staat de prijs van de analyse. Deze cel bevat geen formules, zodat we in uitzonderlijke omstandigheden de prijs manueel kunnen intikken. In cel I23 (buiten het afdrukbereik) staat de berekende standaard prijs (berekend via formule).
Nu is de bedoeling, als je een nieuw analysenummer kiest (dus cel G9 wijzigt), dat hij in cel F23 standaard de prijs overneemt van cel I23, zodat onze manuele wijzigingen dan ongedaan worden. Ik gebruik onderstaande code, maar dit werkt echter niet zodra er formules e.d. automatisch berekend worden. Blijkbaar moet je automatische herrekeningen uitschakelen, maar ik weet niet hoe ik dit moet doen, zeker aangezien hij cel I23 wel moet uitrekenen. Kan iemand mij helpen?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$9" Then
Range("F23").Value = Range("I23").Value
End If
End Sub
Ik heb een Excel-file met veel formules, werkbladen en macro's. Op één van die tabbladen heb ik een cel G9 waarin een analysenummer staat. Op cel F23 staat de prijs van de analyse. Deze cel bevat geen formules, zodat we in uitzonderlijke omstandigheden de prijs manueel kunnen intikken. In cel I23 (buiten het afdrukbereik) staat de berekende standaard prijs (berekend via formule).
Nu is de bedoeling, als je een nieuw analysenummer kiest (dus cel G9 wijzigt), dat hij in cel F23 standaard de prijs overneemt van cel I23, zodat onze manuele wijzigingen dan ongedaan worden. Ik gebruik onderstaande code, maar dit werkt echter niet zodra er formules e.d. automatisch berekend worden. Blijkbaar moet je automatische herrekeningen uitschakelen, maar ik weet niet hoe ik dit moet doen, zeker aangezien hij cel I23 wel moet uitrekenen. Kan iemand mij helpen?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$9" Then
Range("F23").Value = Range("I23").Value
End If
End Sub