• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Macro aanroepen

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

JHH

Gebruiker
Lid geworden
18 aug 2015
Berichten
72
Goedemiddag,

ik probeer een macro aan te roepen bij het wijzigen van een waarde in bepaalde cellen. Ik heb deze code gevonden, maar er gebeurd bij mij niks.
heeft iemand een idee hoe dat kan?

de macro "test" zelf werkt wel als ik deze handmatig activeer.

alvast bedankt.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("A2:C2")) Is Nothing Then
   Call test
   End If
End Sub
 
Plaats anders even je bestand. Staat deze macro wel op het specifieke tabblad binnen VBA?
 
Probeer dit eens.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("A2:C2")) Is Nothing Then test
   
End Sub
 
Bij mij werkt het prima
 
Ik heb excel opnieuw opgestart (er stond veel open) en nu werkt het wel.

bedankt voor de hulp!
 
Dat er veel open staat zou niet uit mogen maken. Stond Application.EnableEvents wel op True?
 
Nee, dat stukje tekst komt helemaal niet voor in mijn macro, Maar het werkt nu wel goed.

allen bedankt voor de hulp.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan