2009-11-02 8 views

Antwort

4

Versuchen Sie diesen Code als Beispiel. Der Schlüssel Linie ist ‚Application.CutCopyMode = False

Sub Test() 
    Range("A1").Copy 
    MsgBox "View Marching Ants" 
    Range("A2").Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 
End Sub