Application.displayalerts bringt ab und an Fehler
Uppe
ich habe ein Teilprogramm, welches meine Exceldatei unter neuem Namen speichert und alle Tabellenblätter bis auf eines löschen soll.
Das Speichern an sich funktioniert. Leider kommt oft (aber nicht immer) die Fehlermeldung "Die Methode Displayalerts ... ist fehlgeschlagen."
Wie kann ich diese Fehlermeldung vermeiden?
Sub Speichern()
strPath = strPfadname
strDateiname = strDateiname & ".xls"
vntPathAndFile = Application.GetSaveAsFilename( _
InitialFileName:=strPath & strDateiname, filefilter:="Microsoft Excel-Arbeitsmappe (*.xls), *. _
xls", Title:="Speichern als")
If vntPathAndFile = False Then
MsgBox "Speichern abgebrochen!"
Exit Sub
Else
strOriginal = ThisWorkbook.FullName
ActiveWorkbook.SaveAs vntPathAndFile
'Blätter löschen
For Each ws In ActiveWorkbook.Worksheets
If ws.Name "Tabelle1" Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next ws
End if
End Sub
Uppe