Vorlage.xltm speichert nicht als Datei.xlsm ab

[Glausius]

Hallo Freunde,

ich habe hier für einen uns Bekannten ein Excelprojekt con Excel 2003 auf Excel 2013 über- bzw. umgesetzt.

Nun stehe ich aber vor einem Problem!
Mit der folgenden Codezeile in einem recht umfangreichen Code soll die als Vorlage.xltm geladene Datei unter einem anderen Namen abgespeichert werden:
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Testdatum & ".xlsm" - die dazu benötigten Daten sind alle vollständig und richtig vorhanden, das Testdatum ist eine Jahreszahl.
Leider bricht der Code an dieser Stelle ab und bringt folgende Fehlermeldung:

   

Sage ich NEIN auf diese Meldung, erscheint die folgende:

   

und nach DEBUGGEN bin ich im VBA-Code und diese Zeile ist angemalt:

   

Ich kann mir darauf einfach keinen Reim machen und finde, woran das liegen kann. In dem letzten Bild sieht man auch im linken Fensterteil, dass die geöffneten Dateien alle Makros hinterlegt haben.

Warum will Excel eine Makrodatei nicht als Makrodatei abspeichern und verweigert den Dienst? Kann da jemand helfen?

[Kuwer]

Hi Günter,

die Antwort gibt Dir doch schon die Intellisense.

   

Gruß Uwe

[Glausius]

Hallo Uwe,

halte mich für doof, aber ich kann mit deiner Antwort leider so gar nichts anfangen - offensichtlich scheint da ein Parameter zu fehlen, aber ich verstehe nicht welcher und wie er lauten muss!
Kannst du das bitte präzisieren?

[Steffl]

Hallo Günter,

mal mit der Angabe des Fileformatparameter

Code:

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Testdatum, Filetyp:=52

Ist aber ungetestet.

[Glausius]

Hallo Steffl,

leider führt dein Vorschlag auch nicht zum Ziel!

Excel "meckert": Fehler beim Kompilieren, Benanntes Argument nicht gefunden - und markiert Filetyp:=.

[MisterBurns]

Filetyp <> Filetype  :05:

[Kuwer]

Hallo Berni,

leider auch nicht ganz richtig.

Gruß Uwe

[snb]

PHP-Code:

Sub M_snb()
  Workbooks.Add("G:\OF\beispiel.xltm").SaveAs "G:\OF\snb_" & Format(Date, "yyyymmdd") & ".xlsb", 50
End Sub 


Verwende Workbooks.Add statt Workbooks.Open wenn du eine Vorlage benützt

[MisterBurns]

War nur geraten :)

[schauan]

Hallöchen,

ActiveWorkbook.SaveAs Filename:="C:\Test\meinname.xlsm", FileFormat:=52

bzw. ohne extention

ActiveWorkbook.SaveAs Filename:="C:\Test\meinname", FileFormat:=52