|
Hallo,
ich habe ein Makro geschrieben, das aus einem Arbeitsbuch heraus eine ausgefüllte Rechnung als Exceldatei (xlsm) und als PDF speichern soll. Tut es auch. Es hinterläßt aber nach Scriptausführung im Arbeitsbuch auf der Rechnung zwei ineinander verschobene Schaltflächen (Schaltfläche1 und Schaltfläche2).
Was habe ich grundsätzlich falsch gemacht. Weiss jemand eine Lösung? Hier ist der Code:
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
ActiveSheet.Buttons.Add(564, 155.25, 66, 13.5).Select
ActiveSheet.Buttons.Add(508.5, 156.75, 66, 13.5).Select
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
|