in einer EXCEL-Datei soll das Einfügen von Zwischenspeicherinhalten aufgrund von Kopieren oder Verschieben verhindert werden und der gesamte Vorgang einschließlich dem evtl. erfolgten Ausschneiden rückgängig gemacht werden.
Hierzu habe ich in VBA den Befehl in den Tabellenobjektbereich der Datei eingetragen:
Private Sub object_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, _
ByVal Action As fmAction, ByVal Data As DataObject, ByVal X As Single, _
ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As fmShiftState)
FuellVerwHinweisMeld6
Application.Undo
End Sub
Leider funktioniert das Einfügen trotzdem. Woran liegt das?Evtl. kann auch folgender Befehl sinnvoll sein, der aber so auch nicht funktioniert:
Private Sub object_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, _
ByVal Data As DataObject, ByVal X As Single, ByVal Y As Single, _
ByVal DragState As fmDragState, ByVal Effect As MSForms.ReturnEffect, _
ByVal Shift As fmShiftState)
FuellVerwHinweisMeld6
Application.Undo
End Sub
Vielen Dank für Euere Hilfe, Goofi