Hallo Mase,
Sub EMail(Zelle As String, Zellinhalt As String)
Dim bereich As Range, a, z, s, Zeile, gesamt, alles
Set bereich = Range("A43:A53", "C43:C54")
For Each a In bereich.Areas
For z = 1 To a.Rows.Count
For s = 1 To a.Columns.Count
Zeile = Zeile & " " & a.Cells(z, s)
Next
gesamt = gesamt & vbCrLf & Zeile
Zeile = ""
Next
alles = alles & vbCrLf & gesamt
gesamt = ""
Next
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.to = "Vorname.Nachname@test.de "
.Subject = "Betreff"
.Body = "Hallo" & vbCrLf & vbCrLf & _
"Es haben sich Änderungen ergeben." & vbCrLf & _
Worksheets("Mika").Select
Set startcell = Range("A43")
startcell.CurrentRegion.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
In dem fett markierten Teil wird der Bereich markiert und als Bild ausgeschnitten. Das funktioniert. Wie bekomme ich aber jetzt den ausgeschnittenen Teil, den ich in Excel verschieben kann, in die Mail eingefügt?
Grüße
|