ich verzweifel gerade beim Aktivieren bzw. Deaktivieren des CellDragAndDrop
Ausgangssituation:
fogender Code steht in "DieseArbeitsmappe":
Private Sub Workbook_Activate()
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
End Sub
Wie zu sehen, möchte ich das Drag And Drop in der aktuellen Arbeitsmappe unterbinden und in allen anderen geöffneten Arbeitsmappen soll es weiterhin funktionieren - klappt soweit auch wie gewünscht.
Jetzt ein großes ABER:
Möchte ich aus einer anderen Arbeitsmappe (einen markierten Bereich) in diese Arbeitsmappe kopieren oder Ausschneiden, so ist das nicht mehr möglich. Der KopierRahmen (bzw. der Fokus) wird beim Ausführen von Application.CellDragAndDrop entfernt.
Wenn jemand von euch eine Idee hat, wie man dieses Problem(chen) lösen könnte, so wäre ich euch sehr dankbar.
Liebe Grüße