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