Sicherheitsabfrage bei Löschung von Tabellenblatt
18.02.2004 20:48:10
olaf
ich will die Sicherheitsabfrage beim Löschen von Tabellenblättern aus einem Macro heraus, umgehen.
Folgendes Problem:
Beim Speichern einer Datei soll unter Berücksichtigung des aktuellen Datums ab einem bestimmten Datum das Tabellenblatt xyz gelöscht werden. Soweit so gut ABER: trotz "screenupdating = false" kommt immer diese blöde Abfrage auf den Screen, ob denn das Tabellenblatt xyz wirklich und endgültig gelöscht werden soll.
Das Macro sieht folgendermaßen aus:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Application.ScreenUpdating = False
Dim a As Date, b As Date
b = "01.05.04"
a = Date
If a > b Then
Application.ScreenUpdating = False
Sheets("Übersicht").Delete
Application.ScreenUpdating = True
Else
End If
Sheets("Übersicht").Visible = False
End Sub
Und immer wenn das Tabellenblatt "Übersicht" gelöscht werden soll, kommt die Meldung.
Hat einer einen kleinen Tip für mich ??????????
Danke
Gruß ... Olaf
Anzeige