speichern
09.12.2002 13:11:17
Ralf
Habe jetzt das nächste Problem
Ich habe mir mit dem Macrorecorder ein Macro erstellt, womit ich die geöffnete arbeitsmappe unter dem namen
" Artikelliste "speichern möchte. Nun fragt er mich aber trotzdem noch ob ich die vorhandene Datei überschreiben möchte. Dies soll er mich nicht mehr fragen sondern automatisch machen.
Sub AutoForm76_BeiKlick()
Application.DisplayAlerts = False
For x = Worksheets.Count To 1 Step -1
If Sheets(x).Name <> "Artikelliste" Then
Sheets(x).Delete
End If
Next
Application.DisplayAlerts = True
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="c:\Eigene Dateien\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\Gerdes Ralf\Eigene Dateien\Artikelliste.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.Quit
End Sub