AW: Excel- Daten löschen vorm Speichern VBA
29.06.2023 16:24:42
Mo
ich habe jetzt folgenden Code geschrieben, klappt alles aber noch nicht, wie ich das will. das Problem jetzt, die eingetragenen Daten werden in der angehängten Datei in der Mail auch schon gelöscht, da ich das Makro zum Löschen einer bestimmten Spalten drin habe (ClearContent).
mit dem Makro StartMakro führe ich beide Makros gleichzeitig aus, deswegen werden die Daten auch beim Mail Erzeugen gelöscht. ich brauche jetzt nur ein Trick, wo die Daten erst nachdem die Email erzeugt ist, gelöscht werden und nicht vorher, da die Datei ohne Daten gespeichert werden soll.
Sub CommandButton1_Click()
Dim Nachricht As Object, OutlookApplication As Object
Set OutlookApplication = CreateObject("Outlook.Application")
Dim Anhang As String
Anhang = ThisWorkbook.FullName
Set Nachricht = OutlookApplication.CreateItem(0)
With Nachricht
.To = ""
.BCC = ""
.Subject = "XXXXX"
.attachments.Add Anhang
.Body = "abcdef"
.Display
'.Mail.Send
End With
Set OutlookApplication = Nothing
Set Nachricht = Nothing
Saved = True
End Sub
Sub Zellinhalte_löschen()
Range("B4:B23").ClearContents
End Sub
Sub StartMakro()
CommandButton1_Click
Zellinhalte_löschen
End Sub