Goedendag

Ik ben VBA-code tegengekomen die heel goed werkt om een ​​macro in Excel te activeren bij het klikken op een specifieke cel. Zie hieronder:


Optie Expliciet

Privé subwerkblad_SelectionChange (ByVal-doel als bereik)
Als Selectie. Telling = 1 Dan
Als niet snijden (doel, bereik ("D4")) is niets dan
Bel Mijn Macro
End If
End If
End Sub


Ik probeer nog 3 van dergelijke scenario's aan dezelfde code toe te voegen, maar ik heb geen ervaring met coderen, dus het oplossen van problemen heeft me nergens gebracht. Zie het onderstaande voorbeeld van wat ik probeer te doen en corrigeer de code indien mogelijk:


Optie Expliciet

Privé subwerkblad_SelectionChange (ByVal-doel als bereik)
Als Selectie. Telling = 1 Dan
Als niet snijden (doel, bereik ("D4")) is niets dan
Bel MijnMacro1
End If
End If
Als Selectie. Telling = 1 Dan
If Not Intersect(Target, Range("E10")) Is dan niets
Bel MijnMacro2
End If
End If
Als Selectie. Telling = 1 Dan
If Not Intersect(Target, Range("G23")) Is dan niets
Bel MijnMacro3
End If
End If
Als Selectie. Telling = 1 Dan
If Not Intersect(Target, Range("J33")) Is dan niets
Bel MijnMacro4
End If
End If
End Sub



Ik verwachtte dat de verschillende macro's die ik heb gemaakt (die goed werken) automatisch zouden worden uitgevoerd wanneer op de cellen die in de code werden vermeld, werd geklikt


Alle hulp wordt zeer op prijs gesteld!