Makro per Makro einfügen
08.05.2015 14:29:43
Pan
kann mir auch jemand sagen wie ich dieses Makro so verändere, dass ein weiteres in dieser Datei vorhandenes Makro ("Reservierung") auch in die neu erstellte Datei eingefügt wird?
Danke für die Hilfe
Sub Speichern_Neu()
Dim P As String
Sheets(Array("Blatt1", "Blatt2", "Blatt3", "Blatt4", "Blatt5")).Select
Sheets("Blatt3").Activate
Sheets(Array("Blatt1", "Blatt2", "Blatt3", "Blatt4", "Blatt5")).Copy
P = "S:\Service\Serviceleitung\"
ActiveWorkbook.SaveAs Filename:=P & Format(Range("D1"), "yyyy_MM_dd, dddd"), FileFormat:= _
xlOpenXMLWorkbookMacroEnabled
End Sub
Anzeige