Danke für Eure Antwort, Gruß, Andreas
Appliction.CutCopyMode = false
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CutCopyMode = False 'Hat das runterkopieren in der ganzen Arbeitsmappe abgeschaltet _
End Sub
Private Sub Worksheet_Aktivate(ByVal Target As Range)
Application.CutCopyMode = False 'Hat das runterkopieren in der ganzen Arbeitsmappe abgeschaltet
End Sub
Private Sub Worksheet_Deactivate(ByVal Target As Range)
Application.CutCopyMode = True
End Sub
Option Explicit
Private Sub Worksheet_Activate()
Application.CutCopyMode = False
End Sub
Private Sub Worksheet_Deactivate()
Application.CutCopyMode = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode Then
Application.CutCopyMode = False
End If
End Sub
Private Sub Worksheet_Activate()
Application.CutCopyMode = False
Application.CellDragAndDrop = False
End Sub
Private Sub Worksheet_Deactivate()
Application.CutCopyMode = True
Application.CellDragAndDrop = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode Then
Application.CutCopyMode = False
End If
End Sub