Sheet löschen ohne Nachfrage
14.11.2002 15:57:52
Christian
Folgender Code funktioniert nur wenn das Sheet "Daten" existiert.
Wenn nicht, dann hält das Makro trotz On error resume next an.
Woran liegt das?
On Error Resume Next
ActiveWorkbook.Sheets("Daten").Delete
On Error GoTo 0
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)