---

Moin Leute,

ich möchte das Tabellenblatt "P" löschen, das klappt auch mit nachstehendem Befehl, jedoch kommt diese lästige Abfrage :
In den Arbeitsblättern, die sie löschen möchten..... Bitte Löschen klicken!
Wie kann ich diese Abfrage umgehen?
-------------------------------------
Beispielcode:

Sheets("P").Select
    ActiveWindow.SelectedSheets.Delete
--------------------------------------

Dann speichere ich das File und anschließen soll Excel geschlossen werden, ich bekomme aber nur das aktuelle Dokument geschlossen:

ActiveWorkbook.Close

Habt Ihr eine Idee wie ich das verbessern kann?

------------------
Gruß
    Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Application.EnableEvents = False

---

oder

Code:

---

Application.DisplayAlerts = False

---

ungetestet

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,

ich tippe auch auf .DisplayAlerts . Vor dem Löschen des Registers auf = False, danach gleich wieder auf = True stellen, um unangenehme Überraschungen zu vermeiden.

Excel beenden: Guck mal in die Hilfe zu Application.Quit.

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin, moin...

habe Eure Informationen getestet:

So funktioniert es einwandfrei.....

-----------------------------------
Application.DisplayAlerts = False
Sheets("P").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
-----------------------------------

Vielen Dank!
Ich wünsche noch eine arbeitsreiche Woche.

------------------
Gruß
    Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP