ich erstelle in mehreren Sub' s ein neues Workbook und füge dort einen Commandbutton ein.
Der Code für das Eingügen des CommandButtons ist aber immer der selbe. Ist es möglich diesen nur einmal zu erstellen und aus jeder Prozedur aufzurufen? Es muss aber ein Rücksprung erfolgen um die eigentliche Prozedur weiter zu verarbeiten.
Die Prozedur ist nicht vollständig hier abgedruckt. Nach dem Aufruf von Schalter_einfuegen gehts nicht weiter.
Sub Angebot2()
Columns("A:E").EntireColumn.AutoFit
Columns("C").ColumnWidth = 3
Schalter_einfuegen 'CommandButton erstellen
Loletzte = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(1, 1), Cells(Loletzte, 5)).Select
Selection.Copy
ActiveWorkbook.Saved = True
End Sub