ich möchte den Druckbereich der aktiven Tabelle per E-Mail versenden. Die ganze Seite klappt prima,
wenn ich den Inhalt mit dem Befehl
"ActiveWorkbook.Worksheets(ActiveSheet.Name).Copy" übergebe.
Wie muß ich den Befehl anpassen dass nur der Druckbereich kopiert wird?
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