Gruppe
Extern
Problem
Wie kann ich einen vorgegebenen Bereich eines Arbeitsblattes per Email versenden?
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