Makro löschen - Teil 2
16.01.2008 10:19:18
mtremer
zuerst muss ich mich wegen meiner Ungeduld entschuldigen. Rudi war so freundlich und hat mich auch die richtige Richtung gebracht. Leider ist mein Problem aber noch nicht gelöst.
Sein Tip ist folgender Code gewesen:
ClassModule: Tabelle3
Private Sub CommandButton1_Click()
Worksheets("Tabelle1").Copy
ActiveSheet.OLEObjects.Delete
With ActiveSheet.UsedRange
.Value = .Value
End With
With ActiveSheet.Parent.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
On Error GoTo ERRORHANDLER
ActiveWorkbook.SaveAs Range("B1").Value & "\test.xls"
Exit Sub
ERRORHANDLER:
MsgBox "Die Datei konnte nicht gespeichert werden!"
End Sub
Seinen Tip möchte ich in meinen Code irgendwie einbauen:
Private Sub CommandButton1_Click()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.SentOnBehalfOfName = "kundenservice@xx.de"
.To = Sheets("Tabelle1").Range("B12")
.CC = Sheets("Tabelle1").Range("B13")
.Subject = "Betreffzeile"
.Attachments.Add ActiveWorkbook.FullName
strTxt = "Sehr geehrte Damen und Herren," & "
.Htmlbody = strTxt
.Display
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
If Workbooks.Count = 1 Then Application.Quit
End Sub
Leider kenne ich mich in VBA noch nicht gut genug aus, dass ich das beides selber kombinieren kann.
Dazu bitte ich um Eure Hilfe.
Das Ergebnis soll ein Code sein, der nach Schreiben der E-Mail Die Codes innerhalb dieses Arbeitsblattes löscht. Dies kann auch gerne unwiderruflich sein, da dieses Arbeitsblatt danach nicht mehr verwendet wird.
Danke.
Viele Grüße
Marco