Tabellenblatt ohne Formel senden
05.05.2016 10:24:00
Tippi
Hallo
Ich habe mal wieder ein Problem und komm nicht weiter.
und zwar möchte ich ein tabellenblatt per email verschicken klappt auch super nur das er mir die Formeln mit versendet.
Private Sub CommandButton9_Click()
Dim objOL As Object
Dim objMail As Object
Dim Bezeichnung As String
Dim EMailan As String
Dim strName As String
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
Bezeichnung = ActiveWorkbook.Name
EMailan = "e-mail adresse"
strName = ActiveWorkbook.Path & "\Senden " _
& Format(Date, "DD.MM.YYYY") & ".xls"
' Range("G38").Value = strName
Application.ScreenUpdating = False
Sheets("Senden").Copy
ActiveSheet.Name = "Senden"
ActiveWorkbook.SaveAs strName
With objMail
.To = EMailan
.Subject = Bezeichnung
.Body = "Bestand"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
ActiveWorkbook.Close
Kill (strName)
MsgBox ("Tabelle wurde erfolgreich versendet.")
Application.Goto Sheets("Senden").Range("A1")
Application.ScreenUpdating = True
ThisWorkbook.Activate
Worksheets("Haupttabelle").Activate
Unload Me
End Sub