Heute einmal dasselbe Problem,dass Gestern Abend ein Neustart des PCs geregelt hat.
https://www.herber.de/bbs/user/143835.xlsm
Application.DisplayAlerts = False
blatt = "Graphen"
For Each wks In ActiveWorkbook.Worksheets
If wks.Name = blatt Then
'---------------Fehler bei Sheets.delete
Sheets(blatt).Delete
End If
Next
Sheets.Add
ActiveSheet.Name = blatt
Application.DisplayAlerts = True
Es sollten an sich ca 300 Iterationen davon gemacht werden, aber manchmal hat er einfach keine Lust und bringt mir die Fehlermeldung : Laufzeitfehler '-2147417848 (80010108)'
Die Methode Delete für das Objekt_Worksheet ist fehlgeschlagen
Und Ja die Dateien haben nach dem Löschen des Worksheet Graphen noch ein Worksheet.
Mit freundlichen Grüßen und Danke schon mal im Voraus
der Verzweifelte : )