Activecell niet wijzigen

  • Onderwerp starter Onderwerp starter RBE
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

RBE

Nieuwe gebruiker
Lid geworden
20 feb 2013
Berichten
1
Ik probeer een functie in excel te maken, waarbij een berekening moet worden gemaakt op basis van de waarde van de naast gelegen cellen, zie onderstaand voorbeeld.
Kolom A lengte, Kolom B Breedte en kolom C de Functie Area

Function Area()
Lengte = ActiveCell.Offset(0, -1)
Breedte = ActiveCell.Offset(0, -2)
Area = Lengte * Breedte
End Function

Dit werkt goed, maar als ik een lengte of breedte wijzig, wordt de Area niet gewijzigd.
Nu heb ik geprobeerd om Application.Volatile toe te voegen. Als ik nu een lengte of breedte wijzig verschijnt een foutmelding. (ik denk dat de functie is gebaseerd op de actieve cel en bij het wijzigen van een lengte of breedte is de actieve cell niet langer de cel waarin de functie staat waardoor de verwijzingen misgaan. Is het mogelijk dat de area wel correct wordt geupdate zonder de functie te veranden in Area(lengte as Integer, Breedte as Integer)?
 
Het is niet verstandig gereserveerde VBA namen te gebruiken voor macro's functies, variabelen....
 
Eens. Maar waarom niet gewoon een bestaande methode met een Excel-formule:
=INDIRECT("R"&RIJ()&"K"&KOLOM()-1;ONWAAR)*INDIRECT("R"&RIJ()&"K"&KOLOM()-2;ONWAAR)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan