Nur aktuelle Tabelle "Speichern unter" mit Dialog
13.12.2016 22:08:09
Marc
Ich versuche verzweifelt per VBA in einem Makro folgendes zu realiseren.
Das nur Aktuelle Sheet "Rechnung" soll als neue Datei gespeichert werden und dies am liebesten mit dem Dateinamen aus "F3" dieses sheets und am bestimmten Ort.
Die Idee wäre aber das ich noch das Dialogfeld speichern unter sehe un ev. den Dateinamen noch zu ergänzen.
Soweit bin ich gekommen aber, dies macht aber immer MappeXX als Datei und der Dateiname habe ich auch nicht hin gekriegt:
Sub SpeichernUnter()
Application.ScreenUpdating = False
ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\Arbeit\Verot.xls"
ChDrive "C:\"
ChDir "C:\Arbeit\"
ActiveWorkbook.GetSaveAsFilename fileFilter:=("Exceldateien (*.xlsm), *.xlsm")
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
Kann mir jemand helfen?
Anzeige