SaveCopyAs xlsm als xlsx

[Lucker11]

Hallo zusammen,

Ich habe eine Programmdatei mit Makros logischerweise als .xlsm vorliegen. Jetzt möchte ich die Ergebnisse dieser Makroauswertung als .xlsx abspeichern. Mit dem Befehl SaveCopyAs funktioniert das abspeichern zwar, jedoch kann ich diese Datei dann nicht öffnen, da die Datei beschädigt ist.

Nur der SaveAs Befehl hilft mir da nicht weiter, da der Code nach dem abspeichern noch weiterlaufen soll und das natürlich in der xlsm Datei

Kann mir da jemand helfen?

Dankeschön für Eure Hilfe,
Max

[Steffl]

Hallo Max,

könntest Du deinen Code posten?

[Lucker11]

Code:

ThisWorkbook.SaveCopyAs „Text.xlsx“

Die Datei wird erstellt aus der Text.xlsm

[Steffl]

Hallo Max,

mache es als SaveAs und füge noch die darauf folgende Codezeile ein

Code:

ThisWorkbook.SaveAs „Text“, 51
ActiveWorkbook.Close False

[Kuwer]

Hallo Max,

teste mal das:

Code:

Sub aaa()
  Dim strDatei As String
  strDatei = ThisWorkbook.FullName
  Application.DisplayAlerts = False
  With ThisWorkbook
    .Save
    .SaveAs "Text", 51
    Workbooks.Open strDatei
    .Close
  End With
  Application.DisplayAlerts = True
End Sub

Gruß Uwe