Deutsch fragte, ob es eine Möglichkeit gibt, ein Arbeitsblatt in einer Arbeitsmappe als E-Mail-Anhang zu senden, ohne die gesamte Arbeitsmappe zu senden. Die kurze Antwort lautet: Sie können nicht – ein Arbeitsblatt allein kann nicht als „Entität“

existieren dass Sie an eine E-Mail anhängen können. Sie können Dateien nur als Anhänge an E-Mails senden. Dies bedeutet, dass Sie eine Arbeitsmappendatei zum Senden benötigen.

Natürlich ist es einfach, eine Arbeitsmappe aus einem einzigen Arbeitsblatt zu erstellen. Wenn Sie dies nur gelegentlich tun müssen, ist es am einfachsten, die folgenden Schritte auszuführen:

  1. Klicken Sie mit der rechten Maustaste auf die Registerkarte für das Arbeitsblatt, das Sie per E-Mail senden möchten.

  2. Wählen Sie im daraufhin angezeigten Kontextmenü die Option Verschieben oder Kopieren. Excel zeigt das Dialogfeld Verschieben oder Kopieren an. (Siehe Abbildung 1.)

  3. Wählen Sie in der Dropdown-Liste Zu buchen die Option Neues Buch.

  4. Stellen Sie sicher, dass das Kontrollkästchen Kopie erstellen aktiviert ist.

  5. OK klicken.

Zu diesem Zeitpunkt sollte eine neue Arbeitsmappe mit einem einzelnen Arbeitsblatt angezeigt werden – eine Kopie des Arbeitsblatts, das Sie senden möchten. Senden Sie diese Arbeitsmappe per E-Mail, und Sie haben erreicht, was Sie tun wollten. Sobald es per E-Mail versendet wurde, können Sie die Arbeitsmappe löschen, da sich Ihr Arbeitsblatt ebenfalls noch in der ursprünglichen Arbeitsmappe befindet.

Wenn Sie das aktuelle Arbeitsblatt routinemäßig per E-Mail an eine andere Person senden müssen, möchten Sie möglicherweise ein Makro erstellen, das die Aufgabe für Sie erledigt. Das von Ihnen erstellte Makro hängt vom verwendeten E-Mail-Programm ab. Aus diesem Grund ist es in diesem Tipp nicht möglich, eine umfassende makrobasierte Antwort zu geben. Es kann jedoch lehrreich sein, ein Beispiel für ein Makro anzugeben, mit dem ein Arbeitsblatt mit Outlook als E-Mail-Programm per E-Mail versendet werden kann.

Sub EmailWithOutlook()

Dim oApp As Object     Dim oMail As Object     Dim WB As Workbook     Dim FileName As String     Dim wSht As Worksheet     Dim shtName As String

Application.ScreenUpdating = False

' Make a copy of the active worksheet     ' and save it to a temporary file     ActiveSheet.Copy     Set WB = ActiveWorkbook

FileName = WB.Worksheets(1).Name     On Error Resume Next     Kill "C:\" & FileName     On Error GoTo 0     WB.SaveAs FileName:="C:\" & FileName

'Create and show the Outlook mail item     Set oApp = CreateObject("Outlook.Application")

Set oMail = oApp.CreateItem(0)

With oMail         'Uncomment the line below to hard code a recipient         '.To = "[email protected]"

'Uncomment the line below to hard code a subject         '.Subject = "Subject Line"

'Uncomment the lines below to hard code a body         '.body = "Dear John" & vbCrLf & vbCrLf & _           '"Here is the file you asked for"

.Attachments.Add WB.FullName         .Display     End With

'Delete the temporary file     WB.ChangeFileAccess Mode:=xlReadOnly     Kill WB.FullName     WB.Close SaveChanges:=False

'Restore screen updating and release Outlook     Application.ScreenUpdating = True     Set oMail = Nothing     Set oApp = Nothing End Sub

Beachten Sie, dass das Makro effektiv das tut, was in den vorherigen Schritten getan wurde:

Das Arbeitsblatt wird in eine neue Arbeitsmappe kopiert und anschließend per E-Mail an diese Arbeitsmappe gesendet. Anschließend wird die Arbeitsmappe gelöscht und Sie kehren zu Ihrer normalen Verwendung von Excel zurück.

Wenn Sie eine ausführlichere Diskussion darüber wünschen, wie Sie ein Arbeitsblatt mit verschiedenen Programmen per E-Mail versenden können, sollten Sie unbedingt die folgende Webseite besuchen:

http://www.rondebruin.nl/win/section1.htm

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3273) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier: