Speichern mit VBA
27.10.2017 11:56:16
Werner
Bin nicht der Profi in Sachen Makro. Versuche in einer Mehrseitigen Excel-Mappe einzelne Tabellenblätter zu kopieren und dann als neu zu speichern.
Das funktioniert eigentlich nur muss ich beim speichern der 2 Neuen Tabellen immer manuell auf speichern drücken.
Da gibt es doch sicher eine Makro-Funktion dazu. Mein Makro sieht so aus:
Sub Löschauftrag()
' Löschauftrag Makro
' Tastenkombination: Strg+d
Sheets("Freigabe-und Einlagerungspr.").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Zollanmeldung").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Schiffsinnenvermessung").Select
ActiveWorkbook.Save
Dim Name1
Name1 = Application.GetSaveAsFilename("G:\03.xxxxg\xxxx\xxxx\xx\xxxx\" & Range("K5") & "_" & _
Range("C4") & "_" & Range("C8") ".xlsm", fileFilter:="Microsoft Excel-Arbeitsmappe (*.xlsm), *.xlsm")
If Name1 False Then
ActiveWorkbook.SaveAs Name1, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
Sheets("Zollanmeldung").Select
Sheets("Zollanmeldung").Copy
Dim Name
Name = Application.GetSaveAsFilename("G:\xxxxx\xxxxx\xxxxx\xxxx" & Range("S3") & ".xls", _
fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
If Name False Then
ActiveWorkbook.SaveAs Name, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSendMail).Show ("Muster@Muster.com")
Application.DisplayAlerts = True
ActiveWorkbook.Close savechanges:=False
End If
Sheets("WAU-Nr.").Select
ActiveWorkbook.SaveAs Filename:=("G:\03.Lagerverwaltung\xxxx\xxxx\xxxx\xxxx. mit makro Neu. _
xlsm")
End Sub
Schon jetzt ein grosser Dank für eine Lösung!
