Hallo zusammen,

ich benötige Eure Unterstützung, ich komme nämlich nicht weiter.

Wenn in der Zelle C10 z. B. Erstes-Interview steht, dann sollen, nachdem auf eine Schaltfläche geklickt wird, entsprechende Bereiche/Zellen als E-Mail versendet werden. Leider kann ich aber nicht mehrere Bereiche (die von einander getrennt sind, als eine E-Mail versenden.

Was mach ich falsch?

Vielen Dank vorab.

Mein Code:

Sub Mail_Versand()

Sheets("Template").Select

   If Range("C10").Value = "Kaffee-Date" Then

    ActiveSheet.Range("B12:D21").Select

  End If

     If Range("C10").Value = "Erstes-Interview" Then

    ActiveSheet.Range("B23:D23,B26:D33").Select

  End If

  ActiveWorkbook.EnvelopeVisible = True

    With ActiveSheet.MailEnvelope

   .Item.To = "xxx"

   '.Item.cc =

   '.Item.bcc =

   .Item.Subject = Range("C10").Value & " / Bitte um weitere Bearbeitung"

   .Item.Send

  End With

  End Sub