Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: Question am November 15, 2011, 08:56:43 Vormittag
-
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
-
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
-
Ich habe das gleiche Problem. Wie hast du es gelöst?
-
damit gehts:
' 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