Mailversand über Excel - Bestimmte Zeilen/Bereiche durch VBA?
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
1 Antwort
Hallo, du machst nichts falsch, getrennte Bereiche können nicht versendet werden.
Du brauchst also einen Workaround.
A. Du könntest in einer Hilfstabelle die Bereiche zusammenführen mit =Tabelle1!:B23, usw. und dann die Hilfstabelle verschicken.
B. Weil A ein Problem mit den Formeln verursachen könnte, kannst du auch mit 2 Schleifen die Bereiche auslesen und direkt im Mail als Bodytext verwenden.