Zur Verdeutlichung:
Modul Modul1Option Explicit
Sub Mach_et_Otze()
Worksheets("MeinBlatt").Copy 'erstellt eine neue Mappe mit der Kopie von "MeinBlatt"
ActiveSheet.UsedRange.Copy
ActiveSheet.Cells(1).PasteSpecial xlPasteValues 'tauscht Formeln gegen Wert
Application.DisplayAlerts = False 'Warnmeldung ausschalten
ActiveWorkbook.SaveAs "DeinPfad_nebst_Dateiname_ohne_Dateiendung", xlOpenXMLWorkbook 'als .xlsx speichern
End Sub
Hallo Ralf,
vielen Dank für den Code.
Versuche ihn einzubinden bei meinen Code...doch ich komme irgendwie nicht weiter....meine unwissenheit zwingt mich auf die Knie :72:
Könntest du bitte mir helfen, deine Code bei meinen einzubinden? ... somit könnte ich es in jedem Monatsblatt einbinden und von dort aus mit button aufrufen, so das jeder monat sein eigenen Button und e-mail blatt hat, statt es in ein modul einzubinden.
Code:
Sub Excel_Workbook_via_Outlook_Senden()
Me.Unprotect ("s0nne")
Dim Nachricht As Object, OutApp As Object
Dim GruppenName, KasseMonat As String
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
AWS = ThisWorkbook.FullName
ActiveSheet.UsedRange.Copy
Cells(1).PasteSpecial xlPasteValues
GruppenName = ThisWorkbook.Sheets("Januar").Range("I3")
KasseMonat = Month(CDate(ThisWorkbook.Sheets("Januar").Range("B1"))) & "/" & Year(CDate(ThisWorkbook.Sheets("Januar").Range("B1")))
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "Abrechnung@mail.de"
.Subject = "Abrechnung - Kollege: " & GruppenName & " - Monat: " & KasseMonat & " - " & Date & Time
.Attachments.Add AWS
.Body = "Bitte Drücke auf Senden und die E-Mail wird automatisch gesendet." & vbCrLf & "Vielen Dank."
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
MsgBox "NICHT VERGESSEN!!!" & vbNewLine & "Drucke aus.", vbInformation, "Be Friend"
Me.Protect ("s0nne")
End Sub
Danke dir für deine Hilfe
.
Niko