Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1700to1704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

mehrere Tabellenblätter versenden

mehrere Tabellenblätter versenden
10.07.2019 14:33:53
Tim
Hallo zusammen,
ich habe einen Code der mir ein bestimmtes Tabellenblatt via Mail versendet, jedoch funktioniert das nur mit einem Blatt.
Neu ist, dass ich mindestens zwei Blätter versenden will, mit unterschiedlichen Blattnamen. Da ich auf Google keine richtige Lösung dazu gefunden habe, würde ich gern auf eure Unterstützung bauen.
Der aktuell funktionierende Code sieht wie folgt aus:
Sub Mail_versenden()
Application.DisplayAlerts = False
Dim strBlatt As String
Dim strDatei As String
Dim OutApp As Object
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String
Set OutApp = CreateObject("Outlook.Application")
Set Mail = OutApp.CreateItem(0)
strPfad = "O:\"
strBlatt = Worksheets("Summe").Name
Sheets(strBlatt).Copy
For Each wks In Worksheets
With wks
.Cells.Copy
.Cells.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Next wks
Application.CutCopyMode = False
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
strDatei = ActiveWorkbook.FullName
With Mail
.To = "Test@Test.de"
.Subject = "Hallo Test " & Date & " " & Time 'Betreff
.Body = "Hallo zusammen," & vbCrLf & "im Anhang findest du die ....."
.Attachments.Add strDatei 'Anhang
End With
Workbooks(Dir(strDatei)).Close
Kill (strDatei)
Mail.Display
Application.DisplayAlerts = True
End Sub

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

Betreff
Datum
Anwender
Anzeige
Benutze den Makrorekorder...
10.07.2019 15:11:45
Beverly
Hi Tim,
...und zeichne auf, wie du 2 Tabellenblätter in eine neue Mappe kopierst.


AW: mehrere Tabellenblätter versenden
10.07.2019 15:29:46
Rudi
Hallo,
die ausgewählten Sheets:
Sub Mail_versenden()
Application.DisplayAlerts = False
Dim wks As Worksheet
Dim strBlatt As String
Dim strDatei As String
Dim wkbATTACH As Workbook
Dim OutApp As Object
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String
Set OutApp = CreateObject("Outlook.Application")
Set Mail = OutApp.CreateItem(0)
strPfad = "O:\"
ActiveWindow.SelectedSheets.Copy
Set wkbATTACH = ActiveWorkbook
For Each wks In wkbATTACH.Worksheets
With wks
.Cells.Copy
.Cells.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
Next wks
With wkbATTACH
.SaveAs strPfad & "\" & ActiveSheet.Name, FileFormat:=xlOpenXMLWorkbook
strDatei = .FullName
.Close
End With
With Mail
.To = "Test@Test.de"
.Subject = "Hallo Test " & Date & " " & Time 'Betreff
.Body = "Hallo zusammen," & vbCrLf & "im Anhang findest du die ....."
.Attachments.Add strDatei 'Anhang
.display
End With
Kill (strDatei)
Application.DisplayAlerts = True
End Sub

Gruß
Rudi
Anzeige
AW: mehrere Tabellenblätter versenden
10.07.2019 16:03:23
Tim
Hallo Rudi,
deine Lösung habe ich probiert jedoch passiert nichts. Ich versende die Mail aus einer Userform heraus und möchte gern die Tabellenblätter welche ich versenden will, direkt ansprechen.
AW: mehrere Tabellenblätter versenden
10.07.2019 20:47:07
Rudi
Hallo,
dann anstatt
ActiveWindow.SelectedSheets.Copy
z.B.
Sheets(Array("Tabelle1","Tabelle2")).copy
Gruß
Rudi
AW: mehrere Tabellenblätter versenden
11.07.2019 07:59:50
Tim
Perfekt, danke!

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige