Hallo zusammen,
in meinem Makro wird ein Tabellenblatt gelöscht. Dabei erscheint dann der Warnhinweis, ob die Tabelle tatsächlich gelöscht werden soll. Ich möchte nun diesen Warnhinweis ausschalten bzw. mit "OK" positiv bestätigen, so dass der Anwender zu diesem Hinweis nicht aktiv werden muss.
Normal geht das mit
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
, falls man die Anwendung auf dem Rechner aufruft und dort laufen lässt. Bei mir stellt sich das Problem, dass die Anwendung aus dem Internet aufgerufen werden soll und da gibt es wohl ein Problem mit dieser Anweisung. Ich verwende Excel 2000 und IE 7, das Problem besteht aber wohl auch bei Vorgängerversionen des IE. Da verschiedene Nutzer Zugriff haben, muss die Lösung auch auf Excel 97 bzw. XP funktionieren.
Versucht habe ich auch schon
DoEvents
Application.SendKeys "{ENTER}", True
ActiveWindow.SelectedSheets.Delete
, um so das OK des Warnhinweises durch VBA bestätigen zu lassen, klappt aber auch nur auf dem Rechner und nicht bei Aufruf über das Internet.
Bei
On Error Resume Next
Application.DisplayAlerts = False
On Error GoTo 0
ActiveWindow.SelectedSheets.Delete
On Error Resume Next
Application.DisplayAlerts = True
On Error GoTo 0
das gleiche, kappt nur auf dem Rechner.
Hat jemand eine Idee, wie man das Problem lösen könnte ?
Hinweis: Bin kein VBA Selbstprogrammierer sondern kopiere mir meistens VBA Code und gestalte ihn dann passend um.
Vielen Dank schon mal im Voraus.
Hub