VBA - Teil einer Seite abschicken
17.01.2022 12:31:42
Patrik
Ich habe eine xls Datei - bestehend aus 4 Seiten
Ziel ist es -nur einen Teil der ersten Seite (Bezeichnung "DATA") per Macro zu senden.
Es gelingt mir nicht den Teil der Seite zu wählen (Range)
Hier die VBA Programmierung die ich benutze. Es wird die komplette erste Seite versendet.
Falls jemand mir helfen könnte diese zu ergänzen/abzuändern um nur einen Teil abzuschicken- wäre toll.
Vielen Dank im vorraus.
Patrik
Sub speichern_und_absenden_Blatt_durch_outlook()
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = .......@........de"
.CC = ".......@......de;..........@.com;.......@.de"
.BCC = ""
.Subject = "REPORT" & Date
.Body = "REPORT"
.Attachments.Add Wb2.FullName
.Display
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub