Prüfen ob ein Sheet existiert
15.11.2002 10:00:12
Christian
Bzw. Wie kann ich ein Sheet löschen falls es existiert ?
Bei folgendem Code hält das Programm an wenn "Daten" nicht vorhanden ist. Und das obwohl ich "On Error Resume Next" drin habe.
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Daten").Activate
ActiveWorkbook.Sheets("Daten").Delete
On Error GoTo 0
Application.DisplayAlerts = True
Anzeige