Einzelnes Tabellenblatt per Email versenden

102004

Dieses Makro versendet das ausgewählte Tabellenblatt per Mail.

Sie müssen nur die laufende Nummer des gewünschten Blatts eingeben, anschließend wird

dieses automatisch nach Outlook übergeben.

Eine sinnvolle Erweiterung des Codes könnte die Eingabemöglichkeit der E-Mail-Adresse darstellen.


Sub einzelnes_Blatt_senden()
Dim blatt As Integer
blatt = InputBox("Welches Blatt möchten Sie senden?" & Chr(13) & _
"Bitte die laufende Blattnummer eingeben")
Sheets(blatt).Copy
ActiveWorkbook.SendMail " Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! ", "Betreffzeile"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub