habe folgenden Code zum senden,
Sub Makro1()
Sheets("Umbuchen Stunden").Select
Sheets("Umbuchen Stunden").Copy
Sheets("Umbuchen Stunden").Select
ActiveSheet.DrawingObjects.Delete
Sheets("Umbuchen Stunden").Protect
ActiveWorkbook.Close SaveChanges:=False
ThisWorkbook.SendMail _
Recipients:="xxx@yahoo.com", _
Subject:="Stunden umbuchen"
ActiveWorkbook.Close
End Sub
...ich habe bloß ein Problem damit,dass er mir aus dem Kopierten und das zu senden Blatt die Objekte nicht rauslöscht. Desweiteren soll er die Makros auch nicht mit übertragen. Hoffe jemand kann mir helfen und mir den Code so umstellen das er endlich funktioniert.
Vielen DAnk für Eure hilfe im Vorraus !!!!
Gruß Alex