Office: Makro ausführen bei Wertänderung in Zelle

Hallo,

möcht folgendes Makro ausführen, wenn der Wert in D2 (Tabelle2) sich ändert

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Verlasse den Code, wenn die geänderte Zelle nicht B7 ist:
If Target.Address <> "$D$2" Then Exit Sub
    Range("E1:E14").Select
    Range("E1:E14").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1:F14"), Unique:=True
End Sub

allerding tut sich nicht´s, da der Wert aus Tabelle1 kommt (in D2 steht =Tabelle1!B11). Den Code im Blatt ausführen, mittels Button, ist kein Problem. Der Code befindet sich im Blatt2.
Wo ist der Fehler?

für sachdienliche Hinweise dankbar, silex1

 

Hallo!

Worksheet_Change springt dann an, wenn eine Zelle MANUELL geändert wird. Bei dir ändert sich die Zelle aber durch eine Berechnung.

 

Hallo Schatzi,

wieder was gelernt, aber noch verwirrter!
Kannst Du mir bitte den Code anpassen, da ich von VBA wenig Ahnung hab, und nicht weis, wie und was ich verändern müsste. Den die Filterung ist auch mit dem Recorder aufgezeichnet.

lg silex1

 

Hallo!

Änderst du denn Tabelle1!B11 manuell?
Dann hilft (hoffentlich) dieser Code im Modul von Tabelle1:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$11" Then Exit Sub
Sheets("Tabelle2").Range("E1:E14").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("Tabelle2").Range("F1:F14"), Unique:=True
End Sub

 

Hallo Schatzi,

DANKE; DANKE; DANKE!
Und woher wusstest Du (daher ein riesen Schatz) , dass ich B11 manuell ändere? Supie!

lg silex1