Hallo liebe Experten,

ich versuche seit geraumer Zeit einen kopierten Bereich aus Excel in den Body meiner E-Mail zu kopieren. Dabei soll die Formartierung der Tabelle erhalten bleiben.

Kann mir diesbzgl. jemand weiterhelfen? Meine Recherche hat mir leider keinen Erfolg gebracht.

Mein bisheriger Code sieht wie folgt aus und funktioniert bis auf das Einfügen der Zwischenablage.

Sub xxx()

Windows("xxx").Activate
Sheets("xxx").Select

ActiveSheet.Range("$A$1:$i$1").AutoFilter Field:=1, Criteria1:="<>xxx", _
Operator:=xlAnd
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlToTop

Sheets("xxx").ShowAllData

Range("B1:I1").Select
Range(Selection, Selection.End(xlDown).Offset(1, 0)).Select
Selection.Copy


Dim strHTML As String
Dim OutApp As Object
Dim OutMail As Object

With Application
.ScreenUpdating = False
.EnableEvents = False
End With


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
.getInspector
.To = "xxx"
.Subject = ("xxx")
.HTMLBody = "

" & "Hallo," & "

" & "anbei sende ich eine Tabelle." & "
" & strHTML & .HTMLBody
.display '.send 'or use .Display
End With

Set OutMail = Nothing
Set OutApp = Nothing

With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

Besteht die Möglichkeit diesn Code irgendwie anzpassen)

Vielen Dank im Voraus!

Gruss

Thomas