Guten Abend,
kleines Problem- beim Speichern... sitze nun schon Tage am gleichen Problem.
Es soll aus der Mappe mittels einer Befehlsschaltfläche die "Tabelle1", das "Deckblatt" und die Tabelle "Bearbeiten" in einer neuen Datei unter einem frei zu vergebenen Dateinamen - und frei zu vergebenen Speicherort - im Format XLSX abgespeichert werden. Am liebsten würde mir das Speichermenü "Speichern unter" hier gefallen- Wie könnte ich da meinen Code hier anpassen?
Mein aufgezeichnetes Makro mag aber das nicht so richtig ausführen.
Sub speichern_xlsx()
' speichern_xlsx Makro
' Tabelle1 , Bearbeiten und Deckblatt speichern in xlsx
Sheets("Deckblatt").Select
Sheets("Deckblatt").Copy
Windows("Vorlage .xlsm").Activate
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy Before:=Workbooks("Mappe8").Sheets(1)
Windows("Vorlage .xlsm").Activate
Sheets("Bearbeiten").Select
Sheets("Bearbeiten").Copy After:=Workbooks("Mappe8").Sheets(2)
ActiveWorkbook.SaveAs Filename:="D:\Desktop\123.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
End Sub
Vielleicht kann jemand helfen?
MfG Leon