Office: (Office 2019) VBA: 2 Tabellenblätter Inhalte kopieren und in eine Excelmappe einfügen und als .xlsm speichern

Hallo Excel-Freaks,

ich bin gerade mit einem Code beschäftigt und komme nicht weiter.
Gewünscht wäre ein Makro:
Zwei Tabellenblätter Inhalte kopieren und in eine Excelmappe einfügen und als .xlsm speichern

mein Code bisher:

Worksheets("Blatt1").Visible = True
Worksheets("Blatt2").Visible = True
Worksheets(Array("Blatt1", "Blatt2")).Copy
With ActiveWorkbook
.SaveAs Filename:=pfad & dateiname & ".xlsx", FileFormat:=xlOpenXMLWorkbook
.Close SaveChanges:=False
End With

In der erstellten Datei sind Verknüpfungen dabei. Deshalb sollten nur Inhalte kopiert werden und die Datei als .xlsm abgespeichert werden.

Wie müsste der Code denn aussehen? Was müsste ich ändern?
Mal Dank vorab!

DonMicha

 

Hi Micha,

ungetestet:

Code:

Worksheets("Blatt1").Visible = True
Worksheets("Blatt2").Visible = True
Worksheets(Array("Blatt1", "Blatt2")).Copy
With ActiveWorkbook
    With .Worksheets("Blatt1")
        .Cells.Copy
        .Range("A1").PasteSpecial Paste:=xlValues
    End With
    With .Worksheets("Blatt2")
        .Cells.Copy
        .Range("A1").PasteSpecial Paste:=xlValues
    End With
    .SaveAs Filename:=pfad & dateiname & ".xlsx", FileFormat:=xlOpenXMLWorkbook
    .Close SaveChanges:=False
End With

---

 

Hallo Beverly,
vielen Dank! Es funktioniert soweit gut.
Nur die Dateiendung hätte ich gerne auf .xlsm!
Wie würde der Code dann aussehen?
Gruß Michael

 

Hi Michael,

du kennst doch sicher den Makrorekorder von Excel? Damit kann man die gewünschten Befehle aufzeichnen, so auch den Befehl, wie man eine Datei im Format XLSM abspeichert - versuche es einfach mal auf diesem Weg. Wenn du dann noch Fragen hast, darfst du sie gerne hier posten.

---

 

ui... auf den Gedanken bin ich gar nicht gekommen
.SaveAs Filename:=pfad & dateiname & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

vielen Dank Beverly