VBA SaveAs Fehler - Warum?!
04.12.2018 14:27:27
Bernd
ich habe ein Problem mit der "SaveAs"-Methode und komme einfach nicht auf die Ursache des Fehlers.
Mein Code zum Speichern sieht folgendermaßen aus:
' Kopie unter neuem Dateinamen speichern
strPfad = ThisWorkbook.Path
If Right(strPfad, 1) "\" Then strPfad = strPfad & "\"
With Sheets("WR2_Deckblatt")
newLSV = Left(.Cells(23, 2), Application.WorksheetFunction.Find _
(Chr10), .Cells(23, 2), 1) - 1)
newLSV = Replace(newLSV, " ", "_")
newDateiname = "GAP-Analyse_" & newLSV & "_" & Format(Date, "YYYYMMDD") & ".xlsm"
newFile = strPfad & newDateiname
End With
ThisWorkbook.SaveAs Filename:=newFile, FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
ReadOnlyRecommended:=True
' Kopie unter neuem Dateinamen speichern ENDE
Er läuft fehlerfrei durch, erzeugt mir auch die neue Datei, aber wenn ich diese öffnen möchte bekomme ich eine Meldung von Excel:
"Wir haben ein Problem bei einigen Inhalten in 'Dateiname' erkannt.
Sollen wir so viel wie möglich wiederherstellen? Wenn Sie die Quelle dieser
Arbeitsmappe vertrauen, klicken sie auf 'Ja'."
Ich kann nur Ja oder Nein auswählen. Bei Ja wird repariert, aber das zerschießt mir die komplette Formatierung, Formeln und Makros in der Datei.
Bei Nein wird die Datei nicht geöffnet.
Habe ich im Code einen Fehler, oder woran kann das liegen?
Ja, ich bin mir bewusst, dass man eineige Variablen garnicht benötigt, aber ich habe zur Fehlerfindung versucht jede Wertermittlung als separate Variable aufzudröseln um so dem Fehler auf die Schliche zu kommen. Bisher erfolglos... :-(
Danke und Grüße, Bernd
Anzeige