Copieren ohne Makro,s
Paul
war mit der Frage schon mal im Forum und fcs (Franz) hat meinen Code wie unten stehend bearbeitet, bis gestern auch alles gut, gut heißt, der Code ausgeführt über einen Buton, erstellt eine Copie der Tabelle "Übersicht" mit den Inhalten Format und Werte in eine neue Mappe (Mappe1) und versendet diese eine Tabelle frei von Macro's und Formeln per Mail.
Nur heute auf einmal wird wieder die komplette Datei mit beiden Tabellen, Macro,s und Formeln verschickt, ich kann mir einfach keinen Reim darauf machen, hat einer eine Idee?
Sub Übersicht_senden()
Dim Pw As String, PwFix As String, wksCopy As Worksheet, wbCopy As Workbook
Dim wbAktiv As Workbook
Set wbAktiv = ActiveWorkbook
wbAktiv.Sheets("Übersicht").Copy
Set wbCopy = ActiveWorkbook
Set wksCopy = wbCopy.Worksheets(1)
wksCopy.UsedRange.Value = wksCopy.UsedRange.Value
wbCopy.SendMail [MailAdd], ["Tagesauswertung Service Gesamt"]
wbCopy.Close savechanges:=False
wbAktiv.Save
wbAktiv.Close
Set wbCopy = Nothing: Set wksCopy = Nothing: Set wbAktiv = Nothing
End Sub