Ab Excell 2003 Probleme mit VBA-Scipt
24.01.2005 11:45:58
urs
folgender Script läuft seit der Umstellung auf Excel 2003 nicht mehr.
Der Script steht in der Persönlichen Arbeitsmappe.
Sub Bibliospeichern()
ActiveWorkbook.Save
ChDir "Q:\Produkte\Technik\Weissnorm\Datenblätter"
ActiveWorkbook.SaveAs Filename:= _
"Q:\Produkte\Technik\Weissnorm\Datenblätter\" & ThisWorkbook.Name, _
FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Cells.Select ' Kopieren um danach nur
Selection.Copy
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Von einer geöffneten Datei aus, habe ich dieses Makro aufgerufen um diese Datei einerseits am ursprünglichen Ort als auch mit nur WERTEN in der Bibliothek abzuspeichern.
Jetzt bekomme ich eine Fehlermeldung, weil versucht wird die Datei unter der Persönlichen arbeitsmappe zu speichern. Das war früher nicht so!!
Was kmuss ich jetzt berücksichtigen. Oder gibt's einen einfacheren Code?
Vielen Dank für Euer mitwirken. Gruss urs
Anzeige