Codes Löschen aus VBA Tabelle 1

Guten Morgen Excelgurus,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Alex,
so:
Sub Mailsenden()
    Sheets("Tabelle1").Copy
    ActiveSheet.Shapes("Picture 18").Delete
    ActiveSheet.Shapes("Picture 19").Delete
    With ActiveSheet
        ActiveWindow.View = xlPageBreakPreview
        ActiveWindow.Zoom = 100
        .Protect
    End With
    With ActiveWorkbook
        With .VBProject.VBComponents(Tabelle1.Name).CodeModule
            .DeleteLines 1, .CountOfLines
        End With
        .SendMail Recipients:=Array("xxx@yahoo.com"), _
            Subject:="Besprechungsprotokoll T2S" & "_" & _
            Cells(2, 1) & "KW" & "_vom_" & Cells(5, 4)
        .Close SaveChanges:=False
    End With
    ThisWorkbook.Close SaveChanges:=False
End Sub

Gruß
Nepumuk
Excel & VBA Beispiele

Sub code_löschen() Dim vb As Object Dim n As Integer Dim rc As Variant Dim mdlName As String mdlName = "Tabelle1" Set vb = ActiveWorkbook.VBProject.VBComponents(mdlName).CodeModule n = vb.CountOfLines If n > 0 Then rc = MsgBox("Soll der Code im Modul" & vbLf & vbLf & _ UCase(mdlName) & vbLf & vbLf & "wirklich gelöscht werden?", 4) If rc <> 7 Then While vb.CountOfLines > 0 vb.DeleteLines 1 Wend End If End If End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

76 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Codes Löschen aus VBA Tabelle 1

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

76 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread