Mehrere Sheets von einer Mappe per E-Mail senden

Hallo an alle,
Habe ein kleines Problem :-) brauche ein bisschen Hilfe.
Habe den unteren Code bei einer Arbeitsmappe eingebaut, es sendend die ganze Arbeitsmappe per E-Mail an den vorgegebenen Empfänger.
Möchte aber dass es nur 3 Arbeitsblätter (Sheet 1: Jahreskasse Sheet 2: Monatskasse Sheet 3: Tageskasse) von der ganzen Mappe versendet.
Die Blätter haben Makros und Formeln, also sollen die Werte und das Format eins zu eins in die versendete blätter bzw. mail mappe eingefügt werden, ohne Makros und Formatist es möglich?

Sub Excel_Workbook_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Dim GruppenName, KasseMonat As String
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
AWS = ThisWorkbook.FullName
GruppenName = ThisWorkbook.Sheets("Menu").Range("B127")
KasseMonat = Month(CDate(ThisWorkbook.Sheets("Menu").Range("A123"))) & "/" & Year(CDate( _
ThisWorkbook.Sheets("Menu").Range("A123")))
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "kassenabrechnung@kasseleer.de"
.Subject = "Abrechnung - Team: " & TeamName & " - Monat: " & KasseMonat & " - " & Date  _
& Time
.Attachments.Add AWS
.Body = "Bitte Drücken Sie auf Senden und die Kasse wird automatisch gesendet." &  _
vbCrLf & "Vielen Dank."
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
MsgBox "NICHT VERGESSEN!!!" & vbNewLine & "Drucken Sie  alle nötigen Dokumente falls benötigt.", _
vbInformation, "LEER - KASSE"
End Sub

Danke im Voraus,
Niko

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Niko,
Du siehst es richtig! Zitat: ...Lichtstrahl in meine VBA Tunnel?
Genau da steckst du, im Tunnel. Mach die Augen auf. Wie würdest du es machen, ohne VBA?
1. Mappe sichern als .xlsx. Damit geht der VBA-Code den Bach runter.
2. In der neuen Mappe alle Blätter löschen, die nicht gebraucht werden.
3. In allen übriggebliebenen Blätter die benutzten Zellen selektieren, kopieren und Inhalte einfügen. Damit werden die Formeln in Werte umgewandelt.
4. Diese Mappe per Mail verschicken.
So: Wenn du diese Schritte durchführst mit eingeschaltetem Makro-Rekorder, hast du ein Framework, in dem du die Vorgaben für deinen Code hast. Ein paar kleine Anpassungen, wie z.B. Warnungen ausschalten ( Application.DisplayAlerts = True) und den Code als Vorlauf zu deinem existierenden Code einfügen.
Ich weiss nicht wie Anfrage auf die Idee kommen, mit (nichtssagenden) Codeschnipseln, aber ohne Beispielmappe, auf die Idee kommen, dass Ihnen fix-fertige VBA Lösungen präsentiert werden.
Gruess, schönes Wochenende und Glück auf
Hansueli

Sub Mail_Sheets_Array() 'Working in Excel 2000-2016 'For Tips see: http://www. _ rondebruin.nl/win/winmail/Outlook/tips.htm Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim OutApp As Object Dim OutMail As Object Dim sh As Worksheet Dim TheActiveWindow As Window Dim TempWindow As Window With Application .ScreenUpdating = False .EnableEvents = False End With Set Sourcewb = ActiveWorkbook 'Copy the sheets to a new workbook 'We add a temporary Window to avoid the Copy problem 'if there is a List or Table in one of the sheets and 'if the sheets are grouped With Sourcewb Set TheActiveWindow = ActiveWindow Set TempWindow = .NewWindow .Sheets(Array("Sheet1", "Sheet3")).Copy End With 'Close temporary Window TempWindow.Close Set Destwb = ActiveWorkbook 'Determine the Excel version and file extension/format With Destwb If Val(Application.Version)

Beliebteste Forumthreads (12 Monate)

Mehrere Sheets von einer Mappe per E-Mail senden

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrere Sheets von einer Mappe per E-Mail senden

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread