VBA Worksheet_SelectionChange funktioniert nicht

Question

Mein VBA ist ein bisschen rostig, so habe ich Probleme beim Erstellen einer Anwendung, die automatisch einige Zellen aktualisiert, wenn der Wert einer Zelle geändert wird.

Ich habe mit diesem grundlegenden Unterprogramm gestartet wird, auf einer Worksheet Seite befindet:

Private Sub Worksheet_Change(ByVal Target As Range) 

Application.EnableEvents = True 
If Not Intersect(Target, Target.Worksheet.Range("A1")) Is Nothing Then 
    MsgBox "Lorem Ipsum" 
End If 

End Sub 

Dieses Unterprogramm ein Meldungsfeld Pop-up sollte Lorem Ipsum, wenn der Wert der Zelle A1 modifiziert wird.

Dies funktioniert jedoch nicht. Ich konnte nicht herausfinden, wo das Problem liegt. typische Probleme (Unterprogramm in einem Modul, EnableEvents gewendet False) sollte nicht mit dem obigen Code passieren; Ich habe auch versucht, Target.Worksheet.Range("A1") zu Range("A1") zu ändern.

Weiß jemand woher kommt das Problem?

Answer 1

Das Problem ist, dass, wenn ausgeschaltet sind, die Worksheet-Ereignisse nicht ausgelöst werden und Ihr Code keine Chance erhalten wird.

es wieder einzuschalten, geben Sie Application.EnableEvents = True in dem Direkt-Fenster

Nun sollte ohne Probleme laufen Sie den Code wie unten

gezeigt.

Answer 2

Ich kopierte Ihren Code und es funktionierte wie erwartet. Beachten Sie jedoch, dass Sie manuell Zelle A1 auf der Arbeitsblatt, wo der Code auf die MsgBox aufstehen müssen. Recalculation has no bite on the worksheet change event.