Registriert seit: 12.10.2014
Version(en): 365 Insider (64 Bit)
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 25.11.2018
Version(en): 2016 Plus
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
