Office: (Office 2013) Einzelne Seite eines Tabellenblattes versenden

Pauu · 9. August 2016

Hallo,
Gerne würde ich erneut etwas von euch lernen und zwar:
Ich habe eine Datei mit mehreren Tabellenblätter. Wie kann ich per Mail die makierte/aktuelle Seite per Mail versenden ohne die ganze Mappe versenden zu müssen?
danke euch im voraus *Smilie

:)

DubWay · 10. August 2016

Moin,

Code:

Sub einzelnes_Blatt_senden()
'** Das aktive Tabellenblatt wird über Outlook versendet
'** Dimensionierung der Variablen
Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
'** Pfad für temporäre Zwischenspeicherung angeben
strPfad = "C:\Temp" 'entsprechend anpassen
'** Aktuelles aktives Blatt in neue Arbeitsmappe kopieren
strBlatt = ActiveSheet.Name
'** Gewähltes Tabellenblatt kopieren
Sheets(strBlatt).Copy
'** Blatt temporär in vorgegebenes Verzeichnis abspeichern
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name

'** Pfad und Dateiname der neuen Datei zwischenspeichern
strDatei = ActiveWorkbook.FullName

'** Body-Text festlegen
strBodyText = _
"Mit freundlichen Grüßen" & Chr(13) & Chr(13) & _
"Alois Eckl" & Chr(13) & _
"Excel-Inside Solutions, Grabbestr. 25, 90427 Nürnberg" & Chr(13) & _
"Auftragsprogrammierung - Anwendungsentwicklung" & Chr(13) & _

'** Mail erzeugen
With Mail
'.To = ""
'.CC = ""
.Subject = "" 'Betreff
.BodyFormat = 2 '2 = HTML, 1 = Text
.Attachments.Add strDatei 'Anhang
.Body = strBodyText 'Bodytext / Signatur
End With

'** Erzeugte Datei schließen
Workbooks(Dir(strDatei)).Close

'** Erzeugte Datei wieder löschen
Kill (strDatei)

'** E-Mail anzeigen
Mail.Display
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Quelle: http://www.excel-inside.de/vba-loesu...mail-versenden

Gruß Carsten

xlph · 10. August 2016

Das geht auch direkt aus Excel heraus:

Code:

Public Sub Start_ExcelMailSenden()
Dim bytWichtigKeit As Byte

'bytWichtigKeit = 0 ' Niedrig
bytWichtigKeit = 1 ' Normal
'bytWichtigKeit = 2 ' Hoch

' An:= 0: .Attachments.Remove 1: Wend
If Not IsArray(Anhang) Then Anhang = Array(Anhang)
For Each Att In Anhang
If Len(Att) Then _
If Len(Dir(Att)) > 2 Then _
.Attachments.Add Att
Next
.Send
End With
End With
End With
objActiveSheet.Activate
Set objActiveSheet = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Pauu · 10. August 2016

Dankeschön xlph, aber leider klappt es mit dem speichern nicht. ich verstehe nicht warum er das nicht hin bekommt aber es klappt nicht

Auch danke an dich Dub Way aber auch hier klappt es nicht, da er mir sag dass weder der Sub noch Function definiert sind.

Falls ihr meinen Fehler erkennt, würde ich über jeden Tip dankbar sein!

xlph · 10. August 2016

was heißt hier Speichern, du willst es doch versenden.

DubWay · 10. August 2016

Hast du auch die Excel-Datei mit Makros abgespeichert?

Ansonsten is mir grad ein Fehler aufgefallen..

Code:

Sub einzelnes_Blatt_senden()
'** Das aktive Tabellenblatt wird über Outlook versendet
'** Dimensionierung der Variablen
Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
'** Pfad für temporäre Zwischenspeicherung angeben
strPfad = "C:\Temp" 'entsprechend anpassen
'** Aktuelles aktives Blatt in neue Arbeitsmappe kopieren
strBlatt = ActiveSheet.Name
'** Gewähltes Tabellenblatt kopieren
Sheets(strBlatt).Copy
'** Blatt temporär in vorgegebenes Verzeichnis abspeichern
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name

'** Pfad und Dateiname der neuen Datei zwischenspeichern
strDatei = ActiveWorkbook.FullName

'** Body-Text festlegen
strBodyText = "Test"

'** Mail erzeugen
With Mail
'.To = ""
'.CC = ""
.Subject = "" 'Betreff
.BodyFormat = 2 '2 = HTML, 1 = Text
.Attachments.Add strDatei 'Anhang
.Body = strBodyText 'Bodytext / Signatur
End With

'** Erzeugte Datei schließen
Workbooks(Dir(strDatei)).Close

'** Erzeugte Datei wieder löschen
Kill (strDatei)

'** E-Mail anzeigen
Mail.Display
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So müsste es klappen

Office: (Office 2013) Einzelne Seite eines Tabellenblattes versenden

Einzelne Seite eines Tabellenblattes versenden

Einzelne Seite eines Tabellenblattes versenden

Einzelne Seite eines Tabellenblattes versenden

Einzelne Seite eines Tabellenblattes versenden - Similar Threads - Einzelne Tabellenblattes versenden

Einzelnes Tabellenblatt manuell berechnen per Button

Tabellenblatt in UserForm anzeigen um einzelne Zeilen in ein weiteres Tabelleblatt zu

Einzelnes Tabellenblatt als Mail schicken

Excel Einzelnes Tabellenblatt speichern unter

Mit VBA einzelne Tabellenblätter aus Excel separat speichern

Tabellenblätter einzeln als PDF speichern

VBA einzelne Tabellenblätter nur mit Pin/Passwort bearbeiten können