VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Tabellenblattbereich als Email versenden

Gruppe

Extern

Bereich

Email

Thema

Tabellenblattbereich als Email versenden

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

    


Beiträge aus dem Excel-Forum zu den Themen Extern und Email