in meiner Datei.xlsm habe ich einen Button, der per Klick zwei Backups der gesamten Datei sowie eines einzelnen Tabellenblattes anlegt.
Sub Schaltfläche100_Klicken()
Const sPath As String = "C:\Ordner\"
With ActiveWorkbook
.SaveCopyAs sPath & Format(Now, "YYYY-MM-DD") & "_" & .Name
.SaveCopyAs "C:\Ordner\Archiv\" & ActiveSheet.Name & ".xls"
End With
On Error Resume Next
Kill "C:\Ordner\Sheet1.xls"
On Error GoTo 0
Worksheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:="C:\Ordner\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close True
End Sub
Es kommt dann allerdings die Meldung:Die folgenden Features können in Arbeitsmappen ohne Makros nicht gespeichert werden:
- Excel 4.0-Funktion gespeichert in definiertem Namen.
Zum SPeicher einer Datei mit diesen Features klicken Sie auf 'Nein'. Wählen Sie dann einen Dateityp mit aktivierten Makros in der Liste 'Dateityp' aus. Klicken Sie auf 'ja', um die Datei als Arbeitsmappe ohne Makros zu speichern.
Im Grunde nix Schlimmes, aber die Meldung wegzuklicken nervt auf Dauer. Woran liegt das und wie lässt sich die Meldung umgehen?
Gruß
Chris