CommandButton beim kopieren entfernen
28.01.2008 19:12:52
BuStü
Ich habe ein Tabellenblatt mit 3 CommandButton
welches als Sicherung gespeichert werden soll. Einmal beim Versenden von E-Mails
und einmal beim Drucken.
Die beiden Vba Code funktionieren, aber leider bekomme ich die Button nicht raus. Hier mein Code:
Private Sub Bestellung_Click()
Dim Nachricht As Object, OutApp As Object
Dim SavePath As String
Dim AWS As String
SavePath = "C:\Dokumente und Einstellungen\PC\Eigene Dateien\Bestellungen" '" Pfad muß angepasst werden"
Set OutApp = CreateObject("Outlook.Application")
ActiveSheet.Copy
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") & ".xls"
AWS = ActiveWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "xyz@nichts.de"
.Subject = "Bestellung Warenausgabe " & Date & Time
.Attachments.Add AWS
.HTMLBody = "Sehr geehrter Herr xyz," & vbCrLf & "anbei unsere Bestellung." & vbCrLf & "Mit freundlichen Grüssen Firma 123"
.Display
.Send
ActiveWorkbook.Close
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Private Sub Teilebestellung_drucken_Click()
Dim SavePath As String
SavePath = "C:\Dokumente und Einstellungen\PC\Eigene Dateien\Bestellungen"
ActiveSheet.Copy
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") & ".xls"
Variable = Application.Dialogs(xlDialogPrint).Show
ActiveWorkbook.Close
End Sub
Hat vielleicht einer eine Idee wie ich die beiden Code verändern kann.
Mit freundlichen Grüßen
bustue