Ich habe eine Tabelle, die ich ohne zu speichern verschicken möchte. Alle Zellbezüge müssen gelöscht werden und ebenfalls alle Makros im Hintergrund.
Wenn ich nun einfach die Tabelle in eine neue Tabelle kopiere, so verschwinden die Zellbezüge und die Makros, doch wird der Name des Workbooks "Book8.xls", was ich nicht möchte.
Also habe ich es anders gemacht, wie der Code unten zeigt, doch nun kann ich nicht automatisch den Body-Text einfügen, was ich aber tun sollte.
Sub AktiveTabelleAlsEmilVersenden()
Application.ScreenUpdating = False
Dim Empfaenger As String
Dim SubjectMessage As String
Empfaenger = "" ' So wird das eMail gezeigt
SubjectMessage = "Im Anhang: Tabelle"
ActiveWorkbook.ActiveSheet.Copy
Application.EnableEvents = False
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Shapes("Button 2").Select
Selection.Delete ' Verschickbutton wird gelöscht
Range("A1").Select
Application.EnableEvents = True
ActiveWorkbook.SendMail Recipients:=Empfaenger, _
Subject:=SubjectMessage
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Wie kriege ich es hin, dass die Tabelle verschickt wird, wobei sie einen bestimmten Namen hat, dass alle Makros im Hintergrund gelöscht werden und, dass auch im Body automatisch Text erfasst werden kann?
Vielen Dank für Tipps, Eda