Z.b möchte ich das der Bereich immer aus E5 und E6 gezogen wird.
E5 = A5
E6 = Z15
Zusammen A5:Z15
Das ist mein Code, im Moment ist alles definiert. Wie gesagt der Bereich soll sber immer aus den o. G Zellen bezogen werden.
Vielen Dank
Sub Update_versenden()
Dim objNachricht As Object
Dim objMail As Object
Dim rngBereich As Range
Set rngBereich = ActiveSheet.Range("A5:Z15")
Set objMail = CreateObject("Outlook.Application")
Set objNachricht = objMail.CreateItem(0)
With objNachricht
.To = "Emailempfänger"
.Subject = " Betreff " & Date
.HtmlBody = vbLf & RangetoHTML(rngBereich)
.ReadReceiptRequested = False
.Display
'.Send
End With
Set objNachricht = Nothing
Set objMail = Nothing
Set rngBereich = Nothing
End Sub