Hi!
Ich bin ja nicht sicher, was du mit "flimmern" meinst, aber vielleicht ist es das:
Select Case Application.CutCopyMode
Case Is = False
MsgBox "Es ist weder der Ausschneide- noch der Kopiermodus aktiviert."
Case Is = xlCopy
MsgBox "Der Kopiermodus ist aktiviert."
Case Is = xlCut
MsgBox "Der Ausschneidemodus ist aktiviert."
End Select
mfg
WB
|