wenn Blatt existiert, löschen und neu erstellen
15.02.2005 17:39:13
Reinhard
ich krieg das nicht gebacken,
Sub umform()
Dim wks as Worksheet
For Each wks In ThisWorkbook.Worksheets
If wks.Name = "Ergebnis" Then wks.Delete
Next wks
ActiveWorkbook.Sheets.Add.Name = "Egebnis" ' hier 1004 weil ja Baltt "Ergebnis" noch existiert
End Sub
Das wks.Delete im Then Zweig wird nie ausgeführt , auch wenn Blatt "Ergebnis" existiert? darauf dann 1004-Fehler in der markieretn Zeile.
Warum das denn, glaube habe ähnlichen Code schon oft benutzt.
Grad nix verstehe :-(
Danke für Tipps
Reinhard
Anzeige