nachdem eine Arbeitsmappe per Makro bearbeitet wurde, möchte ich diese Arbeitsmappe als XLSX speichern um alle Formulare, Module etc. daraus zu entfernen.
Dies soll ohne Nachfrage seitens Excel geschehen.
Public Sub Bereinigen()
'überflüssige Tabellen entfernen
'Arbeitsmappe als xlsx speichern
Dim ws As Worksheet
Dim strName As String
Dim curWb As String
Dim curWbDir As String
Dim NewName As String
strName = "weinkeller_jahresabschluss_"
For Each ws In ThisWorkbook.Sheets
If Not (LCase(ws.Name) Like strName & "*") Then ws.Delete
Next
ActiveSheet.Range("A1").Select
curWb = ActiveWorkbook.Name
curWbDir = ActiveWorkbook.Path
ChDir curWbDir
'Namen festlegen und Speichern
Windows(curWb).Activate
NewName = "Jahresabschluss_" & vJahr
ActiveWorkbook.SaveAs Filename:=curWbDir & "\" & NewName, FileFormat:=51, Password:="", _
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
' Fileformat:=51 = xlOpenXMLWorkbook (Endung "xlsx")
End Sub
Wenn ich den Code ausgeführt habe und die Mappe schliesse, erscheint aber immer noch die Frage, ob die Datei ohne Module gespeichert werden soll.Funktioniert das, was ich vorhabe überhaupt? Von der Logik würde ich tatsächlich sagen "Nein", da ich ja einen Code ausführe und ihn sozusagen zur Selbsteliminierung zwinge.
Kann mir jemand etwas dazu sagen?
Gruß,
Peter