Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Arbeitsblatt an variable Email-Adresse per Outlook versenden
Gruppe
Outlook
Problem
Das in Zelle C1 genannte Arbeitsblatt soll mit dem in Zelle B1 genannten Betreff an die in Zelle A1 genannte Emailadresse gesandt werden.
Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1 Sub SendTab() Dim wks As Worksheet Application.ScreenUpdating = False Set wks = ActiveSheet Worksheets(Range("C1").Value).Copy ActiveWorkbook.SendMail wks.Range("A1").Value, wks.Range("B1").Value ActiveWorkbook.Close savechanges:=False Application.ScreenUpdating = True End Sub