Outsider77
Erfahrenes Mitglied
Hallo! Ich möchte in ein bestehendes Excel-Blatt einen CommandButton einfügen,
der beim Anklicken dann folgenden Code ausführt:
Wie kann ich das realisieren? Danke
der beim Anklicken dann folgenden Code ausführt:
Code:
Private Sub PDF_erstellen_Click()
ActiveWorkbook.SaveAs FileName:="G:\FS-" + Right(Range("C2"), 2) + "-DIM\Fahrpläne\" + Range("AO1") + ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.ActivePrinter = "PDFCreator auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator auf Ne00:", Collate:=True
End Sub