Copoe per Mail versenden
Paul
folgenden Code habe ich gebastelt um, gestartet über einen Button auf Sheet 1 eine Copy von Format und Werte des Sheets "Übersicht zu erstellen und diese dann frei von Macro's an die im Feld "MailAdd" stehenden Empfänfer zu senden
Das funktioniert soweit auch, nur kommt es auf für mich unerklärliche Weise immer wieder dazu, dass nicht eine Kopie desBlaates "Übersicht" als "Mappe1.xls" versendet wird, sondern, eine Kopie der gesamten Datei incl. der Macros allerdings ohne Formeln. Kann mir jemand sagen woran das liegen kann?
Option Explicit
Sub Übersicht_senden()
Dim Pw As String, PwFix As String
Sheets("Übersicht").Copy
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
ActiveWorkbook.SendMail [MailAdd], ["Tagesauswertung Service Gesamt"]
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub