Microsoft Excel

Herbers Excel/VBA-Archiv

Dialog "permanently delete sheets" unterbinden

Betrifft: Dialog "permanently delete sheets" unterbinden von: Flo Karl
Geschrieben am: 14.03.2008 10:38:18

Hallo nochmal!

Ich habe ein makro, dass u.U. ein sheet löscht

Sub tu_was

      Sheets("tu").Delete

End Sub



--> Da gibt es eine Dialogbox (do you really want to permanently...), die mit ok zu beantworten wäre; kann ich das unterbinden oder automatisch mit OK beantworten lassen ?

Danke und schönes WE !

F

  

Betrifft: AW: Dialog "permanently delete sheets" unterbinden von: Erich G.
Geschrieben am: 14.03.2008 10:42:49

Hallo F oder Flo oder Karl,
probier mal

Sub tu_was()
   Application.DisplayAlerts = False
   Sheets("tu").Delete
   Application.DisplayAlerts = True
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort


  

Betrifft: AW: Dialog "permanently delete sheets /THANKS von: Flo Karl
Geschrieben am: 14.03.2008 10:44:32

funkt!

Vielen Dank

Flo


  

Betrifft: AW: Dialog "permanently delete sheets" unterbinden von: Rudi Maintaire
Geschrieben am: 14.03.2008 10:44:13

Hallo,

Sub tu_was
On Error GoTo ErrHandler
Application.displayalerts=false
      Sheets("tu").Delete
ErrHandler:
Application.displayalerts=True
End Sub


Gruß
Rudi

Eine Kuh macht Muh, viele Kühe machen Mühe


  

Betrifft: AW: Dialog "permanently delete sheets" unterbinden von: Silva
Geschrieben am: 14.03.2008 10:46:16

Hallo F,

probiers mal damit:

Application.DisplayAlerts = False '"Dialogboxen" unterbinden
Sheets("tu").Delete
Application.DisplayAlerts = True ' wieder einschalten

Gruss, Silva


 

Beiträge aus den Excel-Beispielen zum Thema "Dialog "permanently delete sheets" unterbinden"