PDA

Vollständige Version anzeigen : speichern eines Sheets


fischli
31.07.2012, 15:15
Hallo,

habe ein kleines Problem, ich möchte ein Sheet aus einer Tabelle, als xlsm
per VBA speichern.
leider klappt das bei mir nur als komplettes Workbook
Benutze folgenden Code:
Worksheets("MHD").SaveAs Filename:= _
"N:\Department\Mi-ta\gemeinsame Daten\Sekret\Bestand\" & Ende & ".xlsm", FileFormat _
:=xlOpenXMLWorksheetsMacroEnabled, CreateBackup:=False
wie muss der richtig heissen.


Schon mal Danke

Rudi Maintaire
31.07.2012, 16:10
Hallo,
du musst das Sheet vorher in eine neue Mappe kopieren.
Sub aaa()
Sheets("MHD").Copy
With ActiveWorkbook
.SaveAs "N:\Department\Mi-ta\gemeinsame Daten\Sekret\Bestand\" & Ende , xlOpenXMLWorkbookMacroEnabled
.Close
End With
End Sub

Gruß
Rudi