Office: Einzelnes Tabellenblatt als Mail schicken

FelixG · 4. August 2019

Hallo zusammen,

ich kann leider die Test-Datei nicht hochladen, da sie zu groß ist.

Ich habe folgendes Problem, aus einer Arbeitsmappe soll nur ein bestimmtes Tabellenblatt als E-Mail Anhang versendet werden (strBlatt = "Tagesübersicht").

Der Empfänger hat das Problem, dass in der Empfangsdatei externe Bezüge drin sind, ist es möglich das Tabellenblatt nur mit Werten und Formatierung zu kopieren?

Code:

Sub einzelnes_Blatt_senden()
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
'** Gewünschtes Tabellenblatt in neue Arbeitsmappe kopieren
strBlatt = "Tagesübersicht"
'** 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

'** Mail erzeugen
With Mail
.To = "test@web.de"
'.CC = ""
.Subject = "Streichungen" & " " & Sheets("Tagesübersicht").Range("B1").Value 'Betreff
.BodyFormat = 2
.htmlBody = "Guten Tag zusammen," & _
"anbei findet Sie die Auflistung die heutigen Streichungen." & _
"Mit freundlichen GrüßenTest" & olOldBody ' Body. "" = Zeilenumbruchanweisung
.Attachments.Add strDatei 'Anhang

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.

Schon mal Danke im Vorraus!

Felix

:)

Luschi · 5. August 2019

Hallo Felix,

bei solchen Fragestellungen frage ich mich immer wieder, warum der Fragesteller nicht einfach mal goo....gelt, denn würde man diesen Link finden:
http://www.excel-ist-sexy.de/vba-zel...wert-kopieren/

Gruß von Luschi
aus klein-Paris

wb425 · 5. August 2019

Hallo FelixG,
das ist jetzt einfach ein aufgezeichnetes und leicht bearbeitetes Makro, deshalb vermutlich nicht gerade elegant...
Den Code kannst du nach Code:

Sheets(strBlatt).Copy
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

einsetzen.
Code:

ActiveSheet.Range(Cells(1, 1), ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ähnlich müsstest du, falls vorhanden, Namen und bedingte Formate behandeln.

Case_Germany · 5. August 2019

Hallo, *Smilie

schreibe nach...
Code:

Sheets(strBlatt).Copy
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... noch...
Code:

ActiveWorkbook.Worksheets(1).UsedRange.Value = ActiveWorkbook.Worksheets(1).UsedRange.Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Servus
Case

FelixG · 12. Januar 2021

von Luschi

Hallo Felix,

bei solchen Fragestellungen frage ich mich immer wieder, warum der Fragesteller nicht einfach mal goo....gelt, denn würde man diesen Link finden:
http://www.excel-ist-sexy.de/vba-zel...wert-kopieren/

Gruß von Luschi
aus klein-Paris
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo Luschi,

das habe ich das Problem ist ich habe kaum Wissen über VBA und würde komme meistens mit den Infos nicht klar, dass ist auch nur ein Skript, welches ich aus dem Internet habe und nur diverse Sachen abgeändert habe.
Aber dieses Jahr ist für mich ein VBA-Grundkurs geplant *Smilie.

Grüße

Felix

Mase · 12. Januar 2021

von FelixG

Hallo Luschi,

das habe ich das Problem ist ich habe kaum Wissen über VBA und würde komme meistens mit den Infos nicht klar, dass ist auch nur ein Skript, welches ich aus dem Internet habe und nur diverse Sachen abgeändert habe.
Aber dieses Jahr ist für mich ein VBA-Grundkurs geplant *Smilie.

Grüße

Felix
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hi Felix,

warum so lange warten?
Check this out:
Visual Basic für Applikationen - Das VBA-Tutorial
VBA Articles - Excel Macro Mastery

Office: Einzelnes Tabellenblatt als Mail schicken

Einzelnes Tabellenblatt als Mail schicken

Einzelnes Tabellenblatt als Mail schicken

Einzelnes Tabellenblatt als Mail schicken

Einzelnes Tabellenblatt als Mail schicken - Similar Threads - Einzelnes Tabellenblatt Mail

Einzelnes Tabellenblatt manuell berechnen per Button

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

Excel Einzelnes Tabellenblatt speichern unter

Mit VBA einzelne Tabellenblätter aus Excel separat speichern

Einzelne Seite eines Tabellenblattes versenden

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

Versand eines einzelnen Tabellenblattes per Mail