|
Hallo,
die hast Du Dir ja selbst reingeproggt:
'...
ActiveSheet.Buttons.Add(564, 155.25, 66, 13.5).Select
ActiveSheet.Buttons.Add(508.5, 156.75, 66, 13.5).Select
'...
also raus damit dann sollte es gehen:
Sub NeueRgSpeichernUndPDF()
'
' NeueRgSpeichernUndPDF Makro
'
Dim RechnungsNum As String
RechnungsNum = Range("e9")
Dim AuftragGeber As String
AuftragGeber = Range("e10")
With ActiveSheet
Sheets("Rechnung").Select
Application.CutCopyMode = False
Sheets("Rechnung").Copy
ActiveWorkbook.SaveAs Filename:="S:\Rechnungen_und_Optionen\Rechnungen\2014\" + RechnungsNum + "_" + AuftragGeber + ".xlsm", FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"S:\Rechnungen_und_Optionen\Rechnungen\2014\RechnungsPDFs\" + RechnungsNum + "_" + AuftragGeber + ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End With
End Sub
Gruß,
|