Löschen Sie ein Arbeitsblatt neu erstellen und mit dem gleichen Blatt Namen

Ich bin derzeit versuchen zu löschen ein Arbeitsblatt und auto erstellen Sie ein neues Arbeitsblatt mit dem gleichen Namen.

Bin ich mit dem code unten. Allerdings, wenn ich den code ausführen, der windows-pop-up erscheint Fragen mich, um den Löschvorgang zu bestätigen, ich will, dies zu verhindern und zu entfernen und ersetzen Sie mit einem neuen Blatt. Ich möchte vermeiden, Senden-Schlüssel für diesen. 

ThisWorkbook.Sheets("Process Map").delete
ThisWorkbook.Sheets.Add.Name = "Process Map"
InformationsquelleAutor Adrian Gornall | 2014-02-07
  1. 5

    Versuchen Sie, die DisplayAlerts auf False (dann true zurück, wenn es das ist, was Sie wollen, als die Standard-Einstellung.

    Application.DisplayAlerts = False
On Error Resume Next 
ThisWorkBook.Sheets("Process Map").Delete 
On Error Goto 0 
Application.DisplayAlerts = True
ThisWorkbook.Sheets.Add.Name = "Process Map"

    Oder ohne Fehlerbehandlung:

    Application.DisplayAlerts = False
ThisWorkBook.Sheets("Process Map").Delete 
Application.DisplayAlerts = True
ThisWorkbook.Sheets.Add.Name = "Process Map"
    • Keine Sorge, wenn es funktionierte, könnte Sie die Antwort akzeptieren, damit andere wissen, dass es funktioniert für Ihre situation (und hilft mir ein wenig, als gut). Vielen Dank und alles gute.
    • Done mate, vielen Dank nochmal!
    • Was bedeutet der Fehler-handling zu tun?
    • Im Fall der code-Zeile funktioniert nicht, weiter geht es sowieso
    InformationsquelleAutor AER
Schreibe einen Kommentar