Löschen Zelle nach dem Kopieren für 30 Sekunden

Question

Hier ist meine sehr einfache VBA-Code zum Kopieren und Einfügen bestimmter Bereich in Excel.

Private Sub CommandButton1_Click() 
    Application.ScreenUpdating = False 

    Sheets("sheet1").Range("A1:G12,A84:G110 ").Select 
    Selection.Copy 
    Sheets("sheet1").Range("A112:G150").PasteSpecial 
    Sheets("sheet1").Range("A112:G150").Copy 
End Sub 

Ich möchte diesen Bereich in Excel löschen (Sheets("sheet1").Range("A112:G150").Copy), nachdem er für 30 Sekunden kopiert wurde. Wie kann ich es tun?

Answer 1

könnten Sie Application.Wait verwenden für 30 Sekunden warten:

Private Sub CommandButton1_Click() 

    Sheets("sheet1").Range("A1:G12,A84:G110").Copy 
    Sheets("sheet1").Range("A112:G150").PasteSpecial 
    Sheets("sheet1").Range("A112:G150").Copy 

    Application.Wait Now() + 30/60/60/24 

    Sheets("sheet1").Range("A112:G150").Clear 
End Sub