SaveAs im Makro

Question

Hallo allerseits,
was mus hinter "saveas" damit sich das entsprechende Fenster öffnet?

ThisWorkbook.ActiveSheet.Copy
ActiveWorkbook.saveas

mfg

Wolfgang

Answer 1

Hallo Wolfgang,

bei mir funzt dieses Makro:

[code]Sub Speichern_unter()
    Workbooks.Open Filename:=Dateiname
    Application.GetSaveAsFilename
End Sub[/code]

Gruß

Maik

Answer 2

Hallo Wolfgang,

hier mal ein Beispielcode für Excel ab Version 2007:

[code]Sub Speichern_unter_neuem_Namen()
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:="C:\Test.xlsm", fileFilter:="Excel-Arbeitsmappe mit Makros, *.xlsm")
If Neuer_Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
End Sub
[/code]

oder für Excel bis 2003

[code]Sub Speichern_unter_neuem_Namen()
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:="C:\MeinOrdner\Test.xls", fileFilter:="Excel-Arbeitsmappe, *.xls")
If Neuer_Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
End Sub[/code]

Gruß

M.O.

Answer 3

Hallo,

da war ich wohl etwas zu langsam :-).

Gruß

M.O.

Answer 4

Hallo ihr beiden,

vielen Dank für eure Antworten. Die erste genügte mir schon. Die zweite sehe ich mir später näher an, ob die sinnvolle Ergänzungen enthält.

mfg

Wolfgang