VBA - Do action if table changes

[cozzagiorgi]

Hi,

I am working on a (seemingly) simple macro wich should look if my "Tabelle1" is changed. If yes, it should do something. This is my macro, but I get a Runtime error 424, what am I doing wrong?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub


    If Not Intersect(Target, ["Tabelle1"[]]) Is Nothing Then


        Application.EnableEvents = False
    Range("H2").Select
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Range("A2").Select
    Selection.End(xlDown).Select


End If


Application.EnableEvents = True


End Sub

Thanks for your help!

 

[cozzagiorgi]

I have only one script of this type in this sheet, so that shouldn't be a problem.

What I am trying to do is:
Watch Range F:F of Tabelle1, if there are any changes in F:F it clears range H:H and writes a new formula in order to update my data. Thats all.

Clearing the range, writing the formula etc works. But I don't know how I can tell VBA to do that only when there are changes in the range F:F.

 

[cozzagiorgi]

There is only one of those scripts on this sheet. So no problem there

I want to watch range F:F, if something changes in this range it clears range H:H and puts a formula in there.

The clearing and the formula are not a problem. But I just cant get it to watch the range F:F, right now it watches the complete sheet.

 

[cozzagiorgi]

OOps double post sorry.

 

[My Aswer Is This]

This is beyond my knowledgebase.
I will continue to monitor this thread to see what I can learn.

 

[cozzagiorgi]

Seems like I wasnt very clear in this thread, but you answered my question here:
https://www.mrexcel.com/forum/excel-questions/1061104-vba-do-action-if-changes-particular-range.html

Thanks a lot!

 

[My Aswer Is This]

Seems like I wasnt very clear in this thread, but you answered my question here:
https://www.mrexcel.com/forum/excel-questions/1061104-vba-do-action-if-changes-particular-range.html

Thanks a lot!

I guess I was not understanding your question.
Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.
If you need more help let us know