ich möchte den Bereich Tabelle2!A1:B25 in den Body einer Email einfügen und diese dann via Outlook versenden.
Die Email wird generiert und auch versendet. Soweit so gut.
Nur schaffe ich es nicht den gewünschen Bereich in diese Email zu packen.
Mit nur einer Zelle funktioniert es.
Aber es soll ja der komplette Bereich vonA1 bis B25 verschickt werden.
Kann mir da bitte wer Helfen?
Bisher siet das Makro so aus:
Sub Mail()
' On Error GoTo ErrHandler
' SET Outlook APPLICATION OBJECT.
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
' CREATE EMAIL OBJECT.
Dim objEmail As Object
Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
.to = "test1@email.de;test2@email.de"
.cc = "test2@email.de"
.Subject = "KW: " & Range("Tabelle3!B25").Value & "/" & Range("Tabelle3!D25").Value
.Body = Range("Tabelle2!A1").Value
' .Display
.Send
End With
' CLEAR.
Set objEmail = Nothing: Set objOutlook = Nothing
ErrHandler:
End Sub
Schonmal Danke für die Hilfe!!!!