Dateiendung .xls
18.09.2008 10:52:34
Ernst
wenn ich diesen Code ausführe funktioniert alles bis auf das die Sicherungs Kopie keine .xls Endung hat.
Woran kann das liegen ?
Private Sub CommandButton4_Click()
Dim JaNein As Variant, wks As Worksheet
JaNein = MsgBox("Sind Sie wirklich sicher ?", vbYesNo, "Sicherheitsabfrage")
If JaNein = 6 Then ' Ja
Set wks = Sheets("Untergestell")
With ThisWorkbook
.SaveCopyAs "x:\archiv\" & Left(.Name, Len(.Name) - 4) & Format(Now, "YYYYMMDDhhmmss")
End With
wks.Range("B3:C100,F3:G100,J3:K100").ClearContents
End If
End Sub
Wäre für Lösungsvorschläge dankbar
Lg.Ernst