1
Excel / Antw:Application.CellDragAndDrop lässt sich nicht mehr aktivieren
« am: März 23, 2015, 13:55:30 Nachmittag »
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
Menü
An- und Abmelden
Partner / Links