Excel VBA: DisplayAlert kann nicht während Drag & Drop deaktiviert werden?

Question

Ich versuche, ein bestimmtes Drag & Drop-Ereignis in VBA zu erfassen, und möchte das Popup "Es gibt bereits Daten hier. Möchten Sie es ersetzen?" während dieser Veranstaltung.

Ich habe das grundlegende Ereignis eines Drag & Drop von Zelle [D1] in Zelle [E1] erfasst, aber aus irgendeinem Grund kann ich das Popup nicht deaktivieren. Weiß jemand warum?

Vielen Dank.

Option Explicit 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    If Not Intersect(Target(1, 1), [D1]) Is Nothing Then 
     MsgBox "selected " & Target.Address & " - " & Target(1, 1).Value 
     Application.DisplayAlerts = False 
    End If 

End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 

    If Not Intersect(Target(1, 1), [E1]) Is Nothing Then 
     MsgBox "changed " & Target.Address & " - " & Target(1, 1).Value 
    End If 

End Sub 

Answer 1

Versuchen Sie, diese - es funktioniert auf meinem 2013 Excel:

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target(1, 1), [E1]) Is Nothing Then 
     MsgBox "changed " & Target.Address & " - " & Target(1, 1).Value 
    End If 
End Sub 

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    If Not Intersect(Target(1, 1), [D1]) Is Nothing Then 
     MsgBox "selected " & Target.Address & " - " & Target(1, 1).Value 
     Application.AlertBeforeOverwriting = False 
    Else 
     Application.AlertBeforeOverwriting = True 
    End If 
End Sub 

Dies verwendet die SelectionChange Ereignis dem Benutzer die Auswahl D1 zu fangen und deaktiviert die Benachrichtigung für Application.AlertBeforeOverwriting. Jede andere Auswahl stellt sicher, dass sie aktiviert ist. Das Ziehen des Werts verursacht ein anderes SelectionChange, das die Warnung für jedes andere Überschreiben jetzt wieder aktiviert.

Sie sollten auch Ereignisse verwenden, um Benutzer in D1 zu blockieren und dann zu einem anderen Blatt zu wechseln oder dieses zu schließen, da die Warnmeldungen deaktiviert bleiben könnten.

Answer 2

Warum Sie

Application.DisplayAlerts = False 

nach dem Drag gelegt hat und Code fallen lassen? Bewege es davor.