Bitte lacht Euch nicht kaput, aber bei mir fällt der Groschen nicht.
Wie muss ich das Macro ergänzen, damit es die Datei nicht unter XYZ abspeichert sondern unter dem richtigen Namen.
<pre>
Sub Bibliospeichern()
ActiveWorkbook.Save
ChDir "Q:\Produkte\Technik\Weissnorm\Datenblätter"
ActiveWorkbook.SaveAs Filename:= _
"Q:\Produkte\Technik\Weissnorm\Datenblätter\XYZ", 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</pre>
Vielen Dank für den Tip
Gruss urs