In diesem Beispiel wird der Status des Ausschneide- bzw. Kopiermodus in einem Meldungsfeld angezeigt.
Select Case Application.CutCopyMode Case Is = False MsgBox "Not in Cut or Copy mode" Case Is = xlCopy MsgBox "In Copy mode" Case Is = xlCut MsgBox "In Cut mode" End Select