Druckbereich per E-Mail vers.

Hier der ganze Code (von Bernd Held aus dem Buch VBA mit Excel)
Sub EmailAktivesTabellenblatt()
Dim s As String
Dim s2 As String
ActiveWorkbook.Worksheets(ActiveSheet.Name).Copy
s = InputBox _
("Bitte geben Sie den Adressaten ein!", "Adressat")
If s = "" Then MsgBox "Sie haben abgebrochen!": _
Exit Sub
s2 = InputBox _
("Bitte geben Sie den Titel der E-Mail ein!", "Titel")
If s2 = "" Then MsgBox "Sie haben abgebrochen!": _
Exit Sub
Application.Dialogs(xlDialogSendMail).Show s, s2
ActiveWorkbook.Close savechanges:=False

End Sub

Danke im Voraus!!
Bernhard