Excel Arbeitsmappe separat speichern mit VBA?

Hallo,

habe bei meiner Exceldatei 10 Arbeitsmappen und ich möchte eine Arbeitsmappe davon separat als Datei abspeichern sodass ich unten nur mehr eine Arbeitsmappe stehen habe.

Habe mir hierfür einen einen Knopf erstellt und mit VBA den Knopf programmiert. Wenn ich ihn drücke, dann habe ich es bereits geschafft, dass die Mappe sich als PDF exportiert aber als Excel ist nicht möglich. Hier ist mein Code:

Sub EXCEL_erstellen()

Dim DateiName As String

DateiName = Range("AB3") & Range("AB2")

Range("A1:T61").ExportAsFixedFormat Type:=xlTypeXPS, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

Answer 1

[IchMalWiederXY]

Hier der Code um 'genau ein' Blatt aus einer Excel Datei zu speichern:
Public Sub sbCreate_Tabelle1()
    
    ActiveWorkbook.Sheets("Tabelle1").Select
    ActiveWorkbook.Sheets("Tabelle1").Copy
    ActiveWorkbook.SaveAs Filename:= _
        "C:\tem\test.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub

Answer 2

[Suboptimierer]

Zeichne am besten den Speichern-Unter-Befehl auf und übernimm dann den relevanten Code.