[eitch100]

@erebos76
TE hat leider 0 Plan von VBA... daher wird er es sich nicht anpassen können....

Dieser Code kopiert z.B. den markierten Bereich in eine email... und wenn Outlook geöffnet ist, kann man anstatt .Display auch .Send verwenden, damit es sofort verschickt wird...

Private Sub CommandButton1_Click()
Dim bereich As Range, a, z, s, zeile, gesamt, alles
Set bereich = Range("A4:C12")
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 = Range("B1").Value
.Subject = Range("B2").Value
.Body = alles
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

In meiner Beispieldatei aus dem vorletzten Post kann er sich über ein Dropdown einen Lieferanten auswählen... Email und Betreff werden automatisch in die Email übernommen... mit Klick auf "Email öffnen", werden alle offenen Bestellungen des gewählten Lieferanten kopiert, der Status von "offen" auf "bestellt" geändert und unter "bestellt am:" das Bestelldatum eingetragen... den einen Klick auf "Einfügen" in der geöffneten Mail wird er verkraften...