Macro uitvoeren wanneer een bepaalde celwaarde wordt gewijzigd

[tThye]

Goedemorgen,

Ik heb voor mijn afstudeeropdracht een macro gemaakt die een lijst met gegevens naar een ander tabblad kopieert. Nu wil ik een 'loop' eraan toevoegen dat deze macro moet worden uitgevoerd wanneer een waarde in een bepaalde cel wordt aangepast. Ik heb in een Excel bestand het probleem toegevoegd.

Ik hoop dat jullie mij kunnen helpen. Alvast bedankt!

Groeten,

Mark

Bekijk bijlage Excel.xls

 

[Cobbe]

Zet deze code achter Blad1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Cells(4, 2)) Is Nothing Then Exit Sub
Macro1
End Sub

Cobbe

 

[tThye]

Dag Cobbe,

Bedankt voor de code die je hebt toestuurt. Eén probleem. Ik kan de cel B4 niet meer wijzigen. Wanneer ik deze aanklik wordt automatisch de macro uitgevoerd. Hoe zorg ik ervoor dat deze macro pas wordt uitgevoerd nadat ik cel B4 heb gewijzigd?

Groeten,

Mark

 

[Cobbe]

Ge kunt wel eens gelijk hebben.
Wijzig dan maar de code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Cells(4, 2)) Is Nothing Then Exit Sub
Macro1
End Sub

Cobbe

 

[tThye]

Hij werkt naar behoren. Bedankt Cobbe! :thumb:

Gegroet!