VBA-Speichern unter geht nicht ; Bugg wo?
04.02.2005 14:49:42
urs
Wenn ich eine Datei geöffnet hatte und diese ohne Formeln (nur Werte) in einem öffentklichen Ordner speichern wollte, habe ich folgendes Macro benutzt.
Seit XP läuft es nicht mehr. Das Makro steht in der PERSONL.xls .
Was mache ich falsch? Wo versorgt man Makros, die auf alle Dateien angewendet werden können?
Besten Dank für Hilfe Gruss Urs
Sub Bibliospeichern()
ActiveWorkbook.Save
ChDir "Q:\Produkte\Datenblätter"
ActiveWorkbook.SaveAs Filename:= _
"Q:\Produkte\Datenblätter\" & ThisWorkbook.Name, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Cells.Select
Selection.Copy
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub