worksheetchange

[hans1974]

hallo,
Ik had graag 3 waarden willen laten wegschrijven als de cel waarde E19 verandert ( tijdswaarde) (gele cel en de 2 rode cellen)
eventueel per 15 minuten.


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E19")) Is Nothing Then
Exit Sub
Else
run "tabelVullen1"
End If
End Sub

Deze code gerbuik ik om de macro te starten als cel E19 verandert. maar het lukt niet.
Kan er iemand mij even mee helpen?
Alvast bedanktBekijk bijlage Book1.xlsm

 

[Cobbe]

Je wijzigt ook niet E19 maar A2.
Het is A2 die E19 aanstuurt, dus:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
 tabelVullen1
End If
End Sub

 

[hans1974]

bedankt voor de snelle reactie ,
als ik dit doe dan gebeurt er iets met die andere macro en krijg ik steeds een foutmelding en gaan die gegevens van de andere macro gewoon weg?