habe einen Code zum verschicken meiner Datei. Der das blatt kopiert in eine neue Arbeitsmappe und dann versendet. leider werden beim versenden auch die codes aus "Tabelle1" mit übersendet und da die Userformen und Makros beim Kopieren nicht mit kopiert werden erhalte ich nachher in dem versanden blatt immer Fehlermeldungen da er die UserForm nicht findet. Diese sollen aber auch nicht übertragen werden. Meine Frage ist jetzt wie bekomme ich es hin das die codes aus "Tabelle1" nicht mit übertragen werden beim senden. Kann man mit hilfe eines codes die vorher aus dem kopierten blatt löschen lassen.
Hoffe ihr habt eine idee und Dank im voraus
Gruß Alex
P.S. hier noch der Code den ich bis jetzt habe zum versenden
Sub Mailsenden()
Sheets("Tabelle1").Copy
ActiveSheet.Shapes("Picture 18").Select
Selection.Delete
ActiveSheet.Shapes("Picture 19").Select
Selection.Delete
With ActiveSheet
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.Zoom = 100
.Protect
End With
ActiveWorkbook.SendMail _
Recipients:=Array("xxx@yahoo.com"), _
Subject:="Besprechungsprotokoll T2S" & "_" & Cells(2, 1) & "KW" & "_vom_" & Cells(5, 4)
ActiveWorkbook.Close SaveChanges:=False
ActiveWorkbook.Close SaveChanges:=False
End Sub