Manchmal m�chte man nicht die gesamte Arbeitsmappe,
sondern nur eine Tabelle versenden.
Dieses Beispiel demonstriert, wie einfach es ist.

Die Routine kopiert Tabelle1 in eine neue Arbeitsmappe,
versendet diese und schlie�t sie anschlie�end ohne Speicherung:

Sub Blatt_senden()
    Sheets("Tabelle1").Copy
    ActiveWorkbook.SendMail "[email protected]", "Betreffzeile"
    Application.DisplayAlerts = False
    ActiveWindow.Close
    Application.DisplayAlerts = True
End Sub