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 gegen Spambots geschützt! JavaScript muss aktiviert werden, damit sie angezeigt werden kann. ", "Betreffzeile"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub