Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Tabellenblattbereich als Email versenden

Gruppe

Email

Problem

Wie kann ich einen vorgegebenen Bereich eines Arbeitsblattes per Email versenden?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub EmailVersand()
  Dim rng As Range
  Dim sAddress As String
  Application.ScreenUpdating = False
  Set rng = Range("A3:F18")
  sAddress = Range("B1").Value
  Workbooks.Add 1
  rng.Copy Range("A1")
  Columns.AutoFit
  ActiveWorkbook.SendMail sAddress, "Test"
  ActiveWorkbook.Close savechanges:=False
  Application.ScreenUpdating = True
End Sub