Fehlermeldung beim Ausführen eines Visual Basic for Applications Makros in Excel: "Fehler beim Speichern der Methode 'SaveAs' des _Worksheet'".

Problembeschreibung

Wenn Sie ein Makro Visual Basic for Applications in Microsoft Excel ausführen, wird möglicherweise die folgende oder ähnliche Fehlermeldung angezeigt:

Ursache

Dieses Verhalten kann auftreten, wenn beide der folgenden Bedingungen zutreffen:

• Sie verwenden ein Makro Visual Basic for Applications, um ein Arbeitsblatt zu speichern.
  
  -und-

• Sie geben das Dateiformat als Konstante xlWorkbookNormal an.

Der folgende Code führt z. B. dazu, dass dieser Fehler auftritt:

Sub A()
   Dim myNewSheet As Worksheet
   Set myNewSheet = ActiveSheet
   FileNameBin = "c:\ABC"
   myNewSheet.SaveAs Filename:=FileNameBin, FileFormat:=xlWorkbookNormal
End Sub

Problemumgehung 

Microsoft stellt Programmierungsbeispiele nur zur Veranschaulichung zur Verfügung, ohne die Gewährleistung, die entweder ausgedrückt oder impliziert ist, einschließlich, aber nicht beschränkt auf, implizierte Garantien der Handelsierbarkeit und/oder Eignung für einen bestimmten Zweck. In diesem Artikel wird davon ausgegangen, dass Sie mit der gezeigten Programmiersprache und den Tools zum Erstellen und Debuggen von Prozeduren vertraut sind. Microsoft-Supportprofis können Ihnen helfen, die Funktionalität eines bestimmten Verfahrens zu erläutern, aber sie ändern diese Beispiele nicht, um zusätzliche Funktionen bereitzustellen oder Prozeduren zu erstellen, die Ihren speziellen Anforderungen entsprechen.
Wenn Sie nur über eingeschränkte Programmierkenntnisse verfügen, sollten Sie sich an einen Microsoft Certified Partner oder Microsoft Advisory Services wenden. Weitere Informationen finden Sie auf den folgenden Microsoft-Websites:

Microsoft Certified Partners – https://partner.microsoft.com/global/30000104

Microsoft Advisory Services – http://support.microsoft.com/gp/advisoryservice

Weitere Informationen zu den verfügbaren Supportoptionen und zur Kontaktaufnahme mit Microsoft finden Sie auf der folgenden Microsoft-Website:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Um dieses Verhalten zu ändern, ändern Sie die Dateiformatspezifikation von der Konstante xlWorkbookNormal in 1. Der Beispielcode funktioniert normal, wenn er in geändert wird:

Sub A()
   Dim myNewSheet As Worksheet
   Set myNewSheet = ActiveSheet
   FileNameBin = "c:\ABC"
   myNewSheet.SaveAs Filename:=FileNameBin, FileFormat:=1
End Sub

HINWEIS Obwohl Sie ein Arbeitsblatt speichern, werden alle Arbeitsblätter in der ausgewählten Arbeitsmappe gespeichert, wenn das Dateiformat auf xlWorkbookNormal oder 1 festgelegt ist.

Status

Microsoft hat bestätigt, dass es sich hierbei um ein Problem bei den in diesem Artikel genannten Microsoft-Produkten handelt.