✔ CommandButton

[Outsider77]

Hallo! Ich möchte in ein bestehendes Excel-Blatt einen CommandButton einfügen,
der beim Anklicken dann folgenden Code ausführt:

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

Wie kann ich das realisieren? Danke

 

[Zvoni]

aus dem "Private Sub...." ein "Public Sub..." machen,
dann in Excel die Symbolleiste für die MS-Steuerelemente einblenden,
einen Button auf dem Excel-Blatt zeichnen,
Rechtsclick auf den Button,
das Makro zuweisen,
fertig.

 

[Outsider77]

Jo super...danke, hat geklappt