Application.CellDragAndDrop lässt sich nicht mehr aktivieren

[Question]

Hallo,

ich habe ein größeres VBA-Projekt, in dem ich beim Programmstart die Funktion CellDragAndDrop mit folgendem Befehl deaktiviere: Application.CellDragAndDrop = False

In der Ereignisprozedur Workbook_BeforceClose schalte ich die Funktion mit dem Befehl Application.CellDragAndDrop = True wieder ein.

Obwohl das Programm ohne Fehlermeldung oder Hinweis abläuft, ist das Cell Drag and Drop unter ->Datei -> Optionen -> Erweitert -> Ausfüllkästchen und Drag & Drop von Zellen aktivieren nicht angehakt, also nicht wieder aktiviert.

Wenn ich das gleiche in einer leeren Arbeitsmappe nur mit den beiden genannten Befehlen mache, dann funktioniert es einwandfrei. Was könnte also in meinem umfangreichen Projekt dazu führen, dass beim Beenden die Funktion nicht eingeschaltet wird?

Betroffen sind alle Versionen von Excel 2003 - Excel 2010

Vielen Dank für euere Tipps

Question

[Question]

Hallo,

ich konnte das Problem selber lösen, hat sich somit erledigt.
Das Problem, war dass noch eine Ereignisprozedur aufgerufen wurde, die vor dem Setzen des Hakens das Programm bereits beendet hat.

Habe den Code geändert und nun funktioniert es.

Viele Grüße

Question

[Copp3rKn0b]

Ich habe das gleiche Problem. Wie hast du es gelöst?

[Copp3rKn0b]

damit gehts:

Code: [Auswählen]

' Unter dieser Arbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Vor dem Schließen wieder aktivieren
Application.CellDragAndDrop = True
End Sub

Private Sub Workbook_Deactivate()
' Bei einem Wechsel wieder aktivieren für andere Mappen
Application.CellDragAndDrop = True
End Sub

' In die betreffende Tabelle
Private Sub Worksheet_Deactivate()
'Für einen Wechsel innerhalb der Mappen aktivieren
Application.CellDragAndDrop = True
End Sub

Private Sub Worksheet_selectionChange(ByVal Target As Range)
        Application.CellDragAndDrop = False
End Sub