"Speichern unter" Dialog einbauen
06.05.2020 17:24:47
Tina
ich habe ein Makro aufgezeichnet, um das aktive Arbeitsblatt einer Arbeitsmappe als Wertedatei zu speichern. Das klappt.
Die Datei wird aber von anderen genutzt, der Code muss deshalb den Abfragedialog "Speichern unter" statt des jetzt vorhandenen Pfades haben.
Danke schon mal für die Hilfe!
Sub Makro4()
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ChDir "\\shomucpwfs01.moviantogroup.com\homes$\ewaldc\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"\\shomucpwfs01.moviantogroup.com\homes$\ewaldc\Desktop\Teofarma Sales report top 5 _
customers MONAT.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub