Wie versende ich aus Excel heraus nur ein einzelnes Arbeitsblatt per Outlook?
Möchten Sie ein einzelnes Arbeitsblatt aus einer Excel-Arbeitsmappe schnell per E-Mail über Outlook versenden – etwa als Anhang, im Nachrichtentext oder als PDF? Gibt es noch effizientere Lösungen dafür direkt in Excel?
Einzelnes Arbeitsblatt als Anhang aus Excel mit VBA-Code versenden
Einzelnes Arbeitsblatt als PDF-Dateien aus Excel mit VBA-Code versenden
Einzelnes Arbeitsblatt als Nachrichtentext aus Excel mit dem Befehl „An E-Mail-Empfänger senden“ versenden
Excel ermöglicht es Ihnen, das aktive Arbeitsblatt direkt als Nachrichtentext per E-Mail zu versenden – und zwar mit dem Befehl „An E-Mail-Empfänger senden“. So geht’s:
Wenn Sie Excel 2007, 2010 oder 2013 verwenden, müssen Sie zunächst den Befehl An E-Mail-Empfänger senden zur Symbolleiste für den Schnellzugriff hinzufügen.
1. Klicken Sie auf das Symbol Symbolleiste für den Schnellzugriff anpassen und wählen Sie Weitere Befehle. Siehe Screenshot:
2. Im Dialogfeld Excel-Optionen wählen Sie in der Dropdown-Liste Befehle auswählen aus die Option Befehle, die nicht im Menüband enthalten sind und dann den Befehl An E-Mail-Empfänger senden. Klicken Sie anschließend auf die Schaltfläche Hinzufügen >>, um diesen Befehl hinzuzufügen, und abschließend auf OK, um die Einstellung zu speichern. Siehe Screenshot:
3. Der Befehl An E-Mail-Empfänger senden wurde in die Symbolleiste für den Schnellzugriff eingefügt. Siehe Screenshot:
4. Klicken Sie dann auf die Schaltfläche An E-Mail-Empfänger senden, woraufhin ein Dialogfeld erscheint. Aktivieren Sie im E-Mail-Dialogfeld das Kontrollkästchen Senden Sie das aktuelle Arbeitsblatt als Nachrichtentext, und klicken Sie auf OK. Siehe Screenshot:
5. Anschließend erscheint oberhalb der Arbeitsblattdaten ein E-Mail-Bearbeitungsfeld, in das Sie Empfänger, Betreff und eine Einleitung in die entsprechenden Felder eingeben können. Siehe Screenshot:
6. Klicken Sie anschließend auf Dieses Blatt senden, um das aktive Arbeitsblatt als Nachrichtentext an die gewünschte Person zu versenden.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Einzelnes Arbeitsblatt als Anhang aus Excel mit VBA-Code versenden
Möchten Sie das aktive Arbeitsblatt als Anhang per E-Mail versenden, unterstützt Sie der folgende VBA-Code dabei.
1. Aktivieren Sie das Arbeitsblatt, das Sie versenden möchten.
2. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
3. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Aktuelles Arbeitsblatt als Anhang aus Excel versenden
Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add Wb2.FullName
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub
Hinweis: Im obigen Code können Sie die folgenden Informationen ganz einfach an Ihre Anforderungen anpassen.
- .To = „skyyang@extendoffice.com"
- .CC = „"
- .BCC = „"
- .Subject = „kte features"
- .Body = „Bitte prüfen und lesen Sie dieses Dokument."
4. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Ein Dialogfeld erscheint; klicken Sie auf Zulassen, sobald die Fortschrittsanzeige abgeschlossen ist. Danach wird das aktuelle Arbeitsblatt als Anhang an Ihren Empfänger gesendet.
Einzelnes Arbeitsblatt als PDF-Dateien aus Excel mit VBA-Code versenden
Manchmal müssen Sie Ihren Arbeitsblattbericht an andere Personen versenden, möchten aber verhindern, dass diese Änderungen daran vornehmen können. In einem solchen Fall können Sie das Arbeitsblatt direkt aus Excel als PDF-Datei senden.
1. Aktivieren Sie das Arbeitsblatt, das Sie senden möchten.
2. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
3. Klicken Sie auf Einfügen>Modul, und fügen Sie den folgenden Code in das Modulfensterein.
VBA-Code: Aktuelles Arbeitsblatt als PDF-Dateien aus Excel versenden
Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add FileName
.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Hinweis: Im obigen Code können Sie die folgenden Informationen ganz einfach an Ihre Anforderungen anpassen.
- .To = „skyyang@extendoffice.com"
- .CC = „"
- .BCC = „"
- .Subject = „kte features"
- .Body = „Bitte prüfen und lesen Sie dieses Dokument."
4. Drücken Sie anschließend die Taste F5, woraufhin ein Dialogfeld erscheint. Sobald die Fortschrittsanzeige abgeschlossen ist, klicken Sie auf Zulassen. Danach wurde das aktive Arbeitsblatt als PDF-Datei an die gewünschte Person gesendet.
Hinweise:
1. Diese Funktionen stehen ausschließlich zur Verfügung, wenn Sie Outlook als Ihr E-Mail-Programm nutzen.
2. Nach dem Senden des aktuellen Arbeitsblatts können Sie in Outlook prüfen, ob die E-Mail erfolgreich versendet wurde.
Mailing-Liste erstellen Anschließend E-Mails versenden |
| Die Kutools für Excel's Mailing-Liste erstellen – Mit diesen Funktionen können Sie in einem Arbeitsblatt schnell eine Mailing-Liste erstellen und anschließend denselben Betreff, denselben Inhalt und dieselben Anhänge an mehrere E-Mail-Adressen versenden.Senden-E-Mails- |
 |
 |
 |
Verwandte Artikel:
Wie versende ich die aktuelle Arbeitsmappe direkt aus Excel über Outlook?
Wie versende ich einen Zellbereich aus Excel über Outlook?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins